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Amplie a capacidade musical de seu 
micro reduzindo os dados necessários 
à execução de uma melodia. 

As técnicas apresentadas aplicam-se à 
compressão de diferentes tipos de dados. 


Tocar música utilizando o computa- 
dor é uma experiência fascinante, prin- 
cipalmente quando se é o autor da pe- 
ça. Existem, porém, várias dificuldades 
a superar, e uma delas é a quantidade 
de dados que um programa requer para 
executar determinada melodia — mais 
de uma tela cheia de números, na maio- 
ria dos casos. Além de serem difíceis de 
digitar, esses dados ocupam muito es- 
paço na memória, Neste artigo, você ve 








PROGRAMAÇÃO BASIC 


COMPRESSÃO 
DE MELODIAS 


rá como comprimir os dados de suas 
melodias dentro dos programas BASIC, 
de maneira que eles tomem o menor es- 
paço possível, liberando parte da memó- 
ria RAM para outro uso. 

A aplicação das técnicas de compres- 
são de dados não se restringe, natural- 
mente, aos programas destinados à exe- 
cução de música. Estende-se a dados de 
todo tipo, desde que sejam repetitivos 
e limitados a certos valores. 





A 





SN 


Seja qual for seu estilo, as melodias 
que o computador toca seguem um cer- 
to padrão que permite sua compressão. 
Tomemos como exemplo uma música 
simples, com um total de doze compas- 











PROGRAMAÇÃO DE UMA MELODIA 
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sos. Para executá-la, precisaremos escre- 
ver um programa em BASIC contendo 
um determinado número de linhas DA- 
TA, como o apresentado a seguir: 


10 LET T=.2 

20 RESTORE 100 

30 READ D 

50 IF D=255 THEN GOTO 20 

60 SOUND T,D 

70 GoTo 30 

DATA 12,12,15,16,19,19,21, 


DATA 12,24,22,21,19,17,16, 
DATA 12,12,15,16,19,19,21, 
DATA 12,24,22,21,19,17,16, 


DATA 17,17,20,21,24,24,26, 














24 
150 DATA 
14 
160 DATA 
19 
170 DATA 
14 
180 DATA 
23 
190 DATA 
21 
200 DATA 
19 
210 DATA 
14 
220 DATA 


17,24,22,21,19,17,16, 
12,12,15,16,19,19,21, 
12,24,22,21,19,17,16, 
19,19,23,24,26,26,24, 
17,17,20,21,24,24,20, 
12,12,15,16,19,19,21, 
12,24,22,21,19,17,16, 


255 


10 SOUND 7,56:SOUND 8,15 

20 SOUND 1,0:RESTORE 

30 READ D 

50 IF D=255 THEN 20 

60 SOUND 0,D 

70 FOR T=0 TO 100:NEXT:GOTO 30 
100 DATA 213,213,179,169,142,14 
2,126,142 

110 DATA 213,106,119,126,142,15 
9,169,189 

120 DATA 213,213,179,169,142,14 
2,126,142 

130 DATA 213,106,119,126,142,15 
9,169,189 

140 DATA 159,159,134,126,106,10 
6,94,106 

150 DATA 159,106,119,126,142,15 


9,169,189 

160 DATA 213,213,179,169,142,14 
2,126,142 

170 DATA 213,106,119,126,142,15 
9,169,189 

180 DATA 142,142,112,106,94,94, 
106,112 

190 DATA 159,159,134,126,106,10 
6,134,126 

200 DATA 213,213,179,169,142,14 
2,126,142 

210 DATA 213,106,119,126,142,15 
9,169,189 

220 DATA 255 


10 RESTORE :T = 80 
20 FORI = 0 TO 22: 
KE 800 + I,A: NEXT 
30 DATA 160,0,174,133,3,238,4 
8,192,136,208,5,206,132,3,240,6 
+202,208,245,76,34,3,96 

40 READ D 

50 IF D= 255 THEN 10 

60 POKE 900,T: POKE 901,D: CAL 
L 800 

70 coro 40 
100 DATA 


READ A: PO 


47,47,40,37,31,31,28 
DATA 47,23,26,28,31,35,37 
DATA 47,47,40,37,31,31,28 


DATA 47,23,26,28,31,35,37 





Notei on E DO Raças HE E E E A 


140 DATA J35,35,29,28,23,23,21 
,23 

150 DATA 35,23,26,28,31,35,37 
,42 

160 DATA 47,47,40,37,31,31,2 
8,31 

170 DATA 47,23,26,28,31,35,3 
7,42 

180 DATA J31,31,25,23,21,21,23 
.25 

190 DATA 35,35,29,28,23,23,29 
.28 

200 DATA 47,47,40,37,31,31,2 
8,31 

210 DATA 47,23,26,28,31,35,3 
7,42 

220 DATA 255 

10 T=3 

20 RESTORE 

30 READ D 


50 IF D=255 THEN 20 

60 SOUND D,T 

70 Goto 30 

100 DATA 175,175,189,193,204,20 
4,210,204 

110 DATA 175,218,213,210,204,19 
7,193,185 

120 DATA 175,175,189,193,204,20 
4,210,204 

130 DATA 175,218,213,210,204,19 
7,193,185 

140 DATA 197,197,207,210,218,21 
8,223,218 





150 DATA 197,218,213,210,204,19 
7,193,185 

160 DATA 175,175,189,193,204,20 
4,210,204 

170 DATA 175,218,213,210,204,19 
7,193,185 

180 DATA 204,204,216,218,223,22 
3,218,216 

190 DATA 197,197,207,210,218,21 
8,207,210 

200 DATA 175,175,189,193,204,20 
4,210,204 

210 DATA 175,218,213,210,204,19 
7,193,185 

220 DATA 255 


Se quiserem, os usuários do TK-2000 
poderão modificar este e os próximos 
programas a fim de usar o comando 





SOUND. Mas isto não é nece: io: tal 
como estão, os programas funcionam 
tão bem em seu micro quanto no Apple. 

Em geral, o MSX requer o dobro dos 
dados utilizados pelos outros micros, já 
que emprega dois bytes para definir a 
nota musical — o byte mais significati- 
vo e o menos significativo. A melodia 
que escolhemos, no entanto, é tão sim- 
ples que o byte mais significativo de to- 
das as suas notas é igual a 0, o que nos 
permite especificar só os bytes menos 
significativos. 

A variável T estabelece um fator de 
tempo para a velocidade da música, A 


linha 20 acerta o apontador das notas 
no início dos dados. O laço FOR ... 
NEXT entre as linhas 30 e 70 lê os valo- 
res das notas — os números nas linhas 
DATA —, colocando-os dentro do co- 
mando musical apropriado na linha 60. 
A linha S0 detecta o fim da melodia, 
marcado por um valor arbitrário — 255 

Se quisermos introduzir pausas no 
meio da melodia, podemos definir um 
outro valor arbitrário, 254 por exemplo, 
e incluir um teste para esse valor na li- 
nha 40. Ao surgir uma pausa no meio 
dos dados, a linha 40 desviaria o pro- 
grama para uma outra linha. Esta pro- 
duziria um certo atraso, voltando depois 
para a linha 30 a fim de continuar a exe- 
cução da música 

Tal como o programa está, as notas 
são fornecidas aos comandos musicais 
do BASIC e emitidas conforme vão sen- 
do lidas nas linhas DATA 

Embora esse processo funcione a 
contento, ele exige um número muito 
grande de dados, mesmo para uma me 
lodia curta. Além de dificultar a digita 
ção e tomar espaço na memória, o ex- 
cesso de dados traz ainda um outro in- 
conveniente: enquanto a música está 
sendo lida e processada, o computador 
não pode se ocupar com outra tarefa 

Alguns micros, como o MSX, solu- 
cionam parcialmente esse problema com 


um buffer musical, capaz de guardar al- 
gumas notas. Se houver espaço no buf- 
fer para o som que está sendo emitido, 
o computador é liberado para outras ati- 
vidades. Porém, havendo mais notas a 
processar, o micro fica novamente com- 
prometido. Seja como for, o buffer não 
alivia o trabalho de digitação das linhas 
DATA nem reduz o espaço por elas ocu- 
pado na memória 

Para contornar efetivamente esses 
problemas, o usuário só tem uma alter- 
nativa: encontrar um meio de compri- 
mir os dados, tornando mais fácil seu 
processamento e economizando espaço 


A compressão de dados é viabiliza- 
da pela existência, em uma melodia, de 
padrões que se repetem. Quanto mais 
padrões pudermos reconhecer, maior se- 
rá o grau de compressão 

Para identificar esses padrões de da- 
dos, convém, em primeiro lugar, ouvir 
ou tocar a melodia em um instrumen 
to, tentando distinguir as passagens que 
se repetem. Depois, escreva a música em 
um papel, preocupando-se apenas com 
a frequência das notas — ignore pautas, 
claves, compassos etc 

Não há dificuldade em escrever, em 

















sequência, as letras equivalentes às no- 
tas, se estas têm sempre a mesma dura- 
ção. Mas, e se as notas tiverem duração 
variada? Nesse caso, o trabalho torna- 
se um pouco mais complicado, pois pre- 
cisaremos levar em conta, além da to- 
nalidade, o tempo de cada uma — o que 
duplicará o volume de dados. 

Outra saída consiste em repetir as no- 
tas de maior duração. Se, por exemplo, 
uma nota dura duas batidas, ela será re- 
gistrada duas vezes. Esta foi a alterna- 
tiva que utilizamos ao transcrever a me- 
lodia do programa anterior. Obtivemos 
a seguinte tabela: 


TABELA 1 
G GAH BDDE DG 
GPB DG A 
GOA BD DE sDG 
q FE DEB A 
Cc CDs E G2G2 A GC 
GG rE D CR A 
6 GA B DD E DG 
OF E DCBA 
D DFx G2 AZAZG2 Fx 
Cc CDx E G2G2Dx E 
G GAH BDDE DG 
qr E DCBA 


Se você examinar a tabela 1 com 
atenção, verá que a melodia se compõe 
de apenas cinco segiiências, ou minime- 
lodias — identificadas como T1, T2, 
etc., como mostra a tabela 2 —, em sua 
maioria tocadas repetidas vezes. 

TABELA 2 
GASBDD E DG 
RREO D CB A 
Cc De E G2G2 A GC 
D Fx GLAZ AZ G2 Fx 


Cc De E G2 G2 Dt E 


Ti=G 
T2=02 
T3=C 
Tá=D 
T5=C 
Podemos agora utilizar uma técnica 
de compressão: as minimelodias não se- 
rão digitadas sempre que aparecem na 


música completa, mas uma única vez, 
junto a códigos que especificam a se- 


giiência em que devem ser tocadas. Co- 
mo costuma ocorrer quando comprimi- 
mos dados, o programa que lê a melo- 
dia assim digitada é maior que a an- 
terior: 


10 LET C=0: LET T=.2 

20 RESTORE 100 

30 FOR N=1 TO C+l: READ P: 
NEXT N 

40 IF P=0 THEN GOTO 10 

50 RESTORE P 

60 READ N 

70 IF N>=255 THEN LET C=C+l: 
coro 20 

80 SOUND T.N 

90 goto 60 

100 DATA 110,120,110,120,130, 

120,110,120,140,150,110,120,0 

110 DATA 12,12,15,16,19,19,21, 

19,12,255 

120 DATA 24,22,21,19,17,16,14, 

255 

130 DATA 17,17,20,21,24,24,26, 

24,17,255 

140 DATA 19,19,23,24,26,26,24, 

23,255 

150 DATA 17,17,20,21,24,24,20, 

21,255 


sy 


1 SOUND 7,56:SOUND 8,15 

2 SOUND 1,0 

10 C=0:T=120 

20 RESTORE 

27 FORZ=1TOC+1:READP:NEXT 

28 IFP=OTHENIO 

29 RESTORE:FORW=1TOP:READWW:NEX 


F 
30 READK: IFK=255THENC=C+1:GOTOZ 


50 SOUND 0,K 

60 FORZ=1TOT:NEXT 

70 coTO30 

100 DATA 13,23,13,23,31,23,13,2 
3,41,50,13,23,0 

110 DATA 213,213,179,169,142,14 
2,126,142,213,255 

120 DATA 106,119,126,142,159,16 
9,189,255 

130 DATA 159,159,134,126,106,10 
6,94,106,159,255 

140 DATA 142,142,112,106,94,94, 
106,112,255 

150 DATA 159,159,134,126,106,10 
6,134,126,255 

10013 ,23,13,23,0 


[6] [ó] 


1 FORI = O TO 22: READ A: POK 
E 800 + I,A: NEXT 
2 DATA 160,0,174,133,3,238,4 








8,192,136,208,5,206,132,3,240,6 
,202,208,245,76,34,3,96 

10 C=- = 100 

20 RESTORE 

27 FORZ=1TOC+ 24: READP 


+ NEXT 
28 IFP = O THEN 10 


29 RESTORE : FORW=1 TOP + 
23: READ WW: NEXT 

30 READ K: IF K = 255 THEN C = 
c+ 1: coro 20 
40 POKE 900,T: 
50 CALL 800 
70 goto 30 
100 DATA 13,23,13,23,31,23,13 
+23,41,50,13,23,0 


POKE 901,K 


110 DATA 47,47,40,37,31,31,2 
8,31,47,255 

120 DATA 23,26,28,31,35,37,4 
2,255 

130 DATA 35,35,29,28,23,23, 
21,23,35,255 

140 DATA 31,31,25,23,21,21,2 
3,25,255 

150 DATA 35,35,29,28,23,23,2 
9,28,255 

220 DATA 255 





1 DIM A(5,1):FOR K=1 TO 13:READ 
P:NEXT:GOTO 3 

2 READ P:IF P<>255 THEN 2 

3 N=N+1:A(N,0)=PEEK (51) :A(N,1)= 
PEEK(52):IF N<5 THEN 2 

10 C=0:T=3 

20 RESTORE 

30 FOR N=1 TO C+1:READ P:NEXT 
40 IF P=0 THEN 10 

50 POKE 51,A(P,0):POKE 52,A(P,1 


60 READ N 

70 IF N=255 THEN C=C+1:GOTO 20 
80 SOUND N,T 

90 GoTO 60 

100 DATA 1,2,1,2,3,2,1,2,4,5,1, 
2,0 

110 DATA 175,175,189,193,204,20 
4,210,204,175,255 

120 DATA 218,213,210,204,197,19 
3,185,255 

130 DATA 197,197,207,210,218,21 
8,223,218,197,255 

140 DATA 204,204,216,218,223,22 
3,218,216,255 

150 DATA 197,197,207,210,218,21 
8,207,210,255 


Note que o número de dados neces- 
sários para a execução da melodia foi 
muito reduzido — no Spectrum, por 
exemplo, diminuiu de 97 para 59 bytes. 
Rodando o programa, você verá que a 
música é exatamente a mesma do pro- 
grama anterior. Os usuários do Spec- 
trum vão estranhar o andamento da me- 
lodia, mas logo terão uma explicação. 

Os dados que definem as minimelo- 
dias estão nas linhas 110 a 150 e a se- 
quência principal — isto é, a ordem em 
que as minimelodias são executadas — 
fica na linha 100. O laço na linha 30 
acerta o valor de P (variável de traba- 
lho utilizada na leitura das linhas DA- 
TA) de acordo com a segiiência princi- 
pal, definindo a minimelodia a ser to- 
cada. Na realidade, a segiência princi- 


pal é uma lista de números — ou de va- 
lores que, combinados com uma cons- 
tante, resultam em números de linha — 
correspondentes às linhas onde se encon- 
tram as minimelodias. 

Identificada a minimelodia a ser exe- 
cutada, a linha SO calcula o número da 
linha DATA correspondente, Só o Spec- 
trum permite o uso da instrução RES- 
TORE durante a leitura do bloco de da- 
dos. O Apple e o MSX empregam laços 
FOR...NEXT e o TRS-Color tem os 
pontos de entrada gravados na linha 3. 

A linha 10 utiliza a variável C para 
a contagem do número de minimelodias 
já tocadas. A duração de cada nota é 
controlada por T, que também determi- 
na o andamento da música. A linha 40 
(28, no Apple e no MSX) verifica a úl- 
tima minimelodia, que é marcada com 
O na linha 100. O número 255 assinala 
o final de cada minimelodia. Ao 
encontrá-lo, o computador volta à se- 
quência principal para saber qual será 
a próxima minimelodia. 

Existem várias alternativas para a di- 
visão de uma música em segiiência prin- 
cipal e minimelodias. De um modo ge- 
ral, quanto menores as minimelodias, 
maior é a segiiência principal. Devemos 
buscar um equilíbrio entre esses dois ele- 
mentos, a fim de evitar que minimelo- 
dias muito curtas exijam uma segiiên- 
cia principal tão longa que anule as van- 
tagens da compressão. 


CM 


A segunda técnica de compressão é 
ainda mais eficiente. Ela parte do prin- 
cípio de que, embora os micros possam 
tocar um grande número de notas — ge- 
ralmente 256 —, poucas delas são de fa- 
to utilizadas durante a execução de uma 
melodia. Assim, não nos interessa — e 
não é econômico — empregar um siste- 
ma planejado para aceitar um grande 
número de notas. 

Cada posição de memória em seu mi- 
crocomputador de oito bits é capaz de 
armazenar um número inteiro entre O e 
255. Restringindo a quantidade de no- 
tas a serem armazenadas, será possível 
colocar duas delas em cada posição — 
uma em cada quatro bits. Por exemplo, 
o número binário 10100010, de oito bits, 
pode ser interpretado como um só va- 
lor decimal — 162 — ou como dois va- 
lores — 10 (1010 em binário) e 2 (0010 
em binário). 

Dividir por dois o espaço disponível 
diminui drasticamente o intervalo de va- 
lores que podemos armazenar: O a 15. 
Contudo, muitas vezes isso é suficien- 
te, pois o número de notas diferentes em 


uma melodia simples raramente ultra- 
passa dezesseis. 

Para utilizar essa técnica de compres- 
são, precisamos reduzir o número de no- 
tas a quinze, deixando o 16º valor co- 
mo um código de controle. Já comen- 
tamos que, quanto mais comprimidos os 
dados, maior é o programa necessário 
para interpretá-los. Aqui, o programa 
deve decifrar cada nota abreviada que 
vai lendo nas linhas DATA. 

O usuário, por sua vez, terá o traba- 
lho de selecionar as notas que serão usa- 
das na melodia, classificando-as em or- 
dem crescente, conforme a fregiiência, 
a partir da nota mais baixa da primeira 
oitava — nesse caso, Gl. Em seguida, 
precisará calcular os números codifica- 
dos que aparecerão nas linhas DATA, 
Nossa melodia inclui doze notas: G, A, 
A&,B,C,D, D&,E,F,Fx, G2e AZ. 

Digite o terceiro programa e veja o 
sistema em ação. 


12 GOSUB 1000: LET T=.15: LET 
NT=130: LET M$=170: LET MT= 
210: GOSUB 300 

90 STOP 

100 DATA 12,14,15,16,17,19,20, 

21,22,23,24,26,0,0,0,0 

200 DATA 1,2,1,2,3,2,1,2,4,5,1 


12,0 

210 DATA 0,35,85,117,15,255 
220 DATA 168,117,67,31,255 
230 DATA 68,103,170,186,79,255 
240 DATA 85,154,187,169,255 
250 DATA 68,103,170,103,255 
310 RESTORE NT 

320 FOR N=23410 TO 23425 
330 READ X: POKE N,X: NEXT N 
345 LET NM=0 

350 RESTORE MS: LET HL=23426 
360 READ X 

365 IF X>NM THEN LET NM=X 
370 IF X=0 THEN GOTO 400 
380 POKE HL,X: LET HL=HL+1: 
goTo 360 

400 POKE HL,X: LET HL=HL+1 
401 LET X=HL: GOSUB 600 

402 POKE 23403,LSB 

403 POKE 23404,MSB 

430 RESTORE MT 

440 FOR N=1 TO NM 

450 READ X 

460 IF X=255 THEN GOTO 500 
470 POKE HL,X: LET HL=HL+1: 
coro 450 

500 POKE HL,X: LET HL=HL+ 
510 NEXT N 

511 RAND USR 23371 

512 POKE 23409,0 

530 LET X=USR 23296 

540 IF X=255 THEN RETURN 
550 SOUND T,X: GOTO 530 
600 LET MSB=INT (X/256) 

610 LET LSB=X-(MSB*256) : 
RETURN 


1000 RESTORE 2000: 
T L=2000 

1030 FOR N=23296 TO 23296+111 S 
TEP 8 

1040 FOR K=0 TO 7: READ A: LET 
TO=TO+A: POKE K+N,A: NEXT K 
1050 READ A: IF A<>TO THEN GOT 
o 1080 

1060 LET L=L+O: 
N 


LET TO=0: LE 


LET TO=0: NEXT 


1065 RESTORE : RETURN 

1080 PRINT "ERRO DE DADOS NA LI 
NHA ";L: STOP 

2000 DATA 42,109,91,235,42,111, 
91,58,779 

2010 DATA 113,91,70,183,202,24, 
91,175,949 

2020 DATA 8,35,62,15,160,195,36 
+91,602 

2030 DATA 61,1,8,203,56,203,56, 
203,791 

2040 DATA 56,203,56,120,254,15, 
202,65,971 


2050 DATA 91,34,111,91,235,34,1 
09,91,796 

2060 DATA 8,50,113,91,33,114,91 
,22,522 

2070 DATA 0,8,95,25,126,6,0,79, 
339 

2080 DATA 201,26,19,183,194,81, 
91,1,796 

2090 DATA 255,0,201,17,130,91,1 
95,65,954 

2100 DATA 91,71,42,107,91,43,62 
+255,762 

2110 DATA 16,5,35,175,195,10,91 
+35,562 

2120 DATA 190,194,103,91,195,88 
+91,35,987 


2130 DATA 195,96,91,0,0,0,0,0,3 
82 


hy 


10 SOUND 7,56:SOUND 8,15 

20 SOUND 1,0 

23 DIM X(16) :RESTORE:FOR N=1 TO 
16:READ X(N) :NEXT 

25 C=0:T=100 

26 RESTORE1000 

27 FORZ=1TOC+1:READP:NEXT 

28 IFP=OTHENZS 

29 RESTORE1010:FORW=1TOP+2:READ 
WW:NEXT 

50 READN:SS=N 

60 N=INT(N/16) 

70 IFN=15THENC=C+1:GOTO26 

80 GOSUB130 

90 N=SS:N=15ANDN 


100 IFN=15THENC=C+1:GOTO26 

110 GosUB130 

120 goToso 

130 SOUNDO,X(N+1) 

140 FORZ=1TOT:NEXT 

150 RETURN 

450 DATA 213,189,179,169,159,14 


2,134,126,119,112,106,94,0,0,0, 
o 


1000 DATA 5,10,5,10,15,10 
1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 
1120 DATA 168,117,67,31,255 











1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 


[e] (GS) 


1 FORI = 0 TO 22: READA: POK 
E 800 + I,A: NEXT 

2 DATA 160,0,174,133,3,238,4 
8,192,136,208,5,206,132,3,240,6 
+202,208,245,76,34,3,96 

23 DIM X(16): FOR N = 1 TO 16: 
READ X(N): NEXT 

25 C=0:T=100 





26 RESTORE 

27 FORZ=1TOC+ 40: READP 
2 NEXT 

28 IF P = O THEN 25 

29 RESTORE : FORW = 1 TO P+ 


47: READ WW: NEXT 

50 READ N:SS = N 

60 N = INT (N/ 16) 

70 IF N= 15 THENC=C+I:G 
oTo 26 

80 GOSUB 130 

90 N=SS-N*16 


100 IF N= 15 THENC=C+ãaI: 
Goro 26 

110 GOSUB 130 

120 coro 50 

130 POKE 900,T: POKE 901,X(N + 
1) 

140 CALL 800: RETURN 

450 DATA 47,42,40,37,35,31,29 


,28,26,25,23,21,0,0,0,0 


1000 DATA 5,10,5,10,15,10 
1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 
1120 DATA 168,117,67,31,255 
1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 





10 DIM A(5,1),X(16):FOR K=1 TO 
16:READ X(K) :NEXT:A(0,0)=PEEK(5S 
1):A(0,1)=PEEK(52) 

15 FOR K=1 TO 13:READ P:NEXT:GO 
TO 30 

20 FOR K=1 TO 5:READ P:NEXT 

30 N=N+1:A(N,0)=PEEK(51) :A(N,1) 
=PEEK(52): IF N<5 THEN 20 

40 C=0:T=3 

50 POKE 51,A(0,0):POKE 52,A(0,1 
):FOR N=1 TO C+1:READ P:NEXT:IF 
P=0 THEN 40 

60 POKE 51,A(P,0):POKE 52,A(P,1 


65 READ N:S=N 

70 N=INT(N/16) 

75 IF N=15 THEN C=C+1:GOTO 50 
BO GOSUB 130 

90 N=S:N=15 AND N 

100 IF N=15 THEN C=C+1:GOTO 50 
110 GOSUB 130 

120 Goto 65 

130 SOUND X(N+1),T:RETURN 

450 DATA 175,185,189,193,197,20 
4,207,210,213,216,218,223,0,0,0 
0 

1000 DATA 1,2,1,2,3,2 

1010 DATA 1,2,4,5,1,2,0 


1110 DATA 0,35,85,117,15 

1120 DATA 168,117,67,31,255 
1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 


Os valores das frequências dessas no- 
tas estão codificados na linha 450 (100 
no Spectrum). Essa linha deve conter de- 
zesseis valores. No MSX, poderíamos 
precisar de 32 valores para outras me- 
lodias, já que ele requer dois parâmetros 
para um valor de nota. 

Em todas as versões, codificamos só 
doze notas; assim, quatro espaços são 
preenchidos com 0. Os quatro dígitos bi- 
nários (chamados nybble) que formam 
cada nota das minimelodias estão codi- 
ficadas nas linhas 1000 e 1010 (200 e 210 
no Spectrum). Para entender como se 
calculam esses valores, tomemos como 
exemplo a minimelodia T1. Veja os nú- 
meros da segiiência principal na linha 
450 (100 no Spectrum). Chamemos a 
primeira nota dessa linha de 0, a segun- 
da de 1 e assim por diante, até a última 
nota, que será 15. Se escrevermos a mi- 
nimelodia Tl com esses códigos, tere- 
mos Ti = 0,0,2,3,5,5,7,5,0, 15. 
O número 15, no caso, indica o final da 
minimelodia, e não uma nota. Cada um 
desses valores cabe em um nybble; as- 
sim, precisamos combiná-los em pares 
para obter os bytes. 

O primeiro par de nybbles é 0 e 0, va- 
lores que correspondem em binário, a 
0000 e 0000. Combinados em um byte, 
resultam no decimal 0. O primeiro va- 
lor da linha DATA 1110 (210 no Spec- 
trum), que equivale a T1, é, portanto, 0. 
O próximo par é 2 e 3 — em binário, 
0010 e 0011. Combinados, esses valores 
resultam em 00100011, ou 35 em deci- 
mal. Este é o segundo valor da linha 
110 (ou 210). Procedendo dessa manei- 
ra com a minimelodia seguinte, teremos 
T2 = 10,9,7,5,4,3,1, 15. Combina- 
dos, os valores 10 e 9 — 1010 e 1001 em 
binário — resultam 168 em decimal. Es- 
te é o primeiro valor de T2 na linha 1120 
(220 no Spectrum). 

Utilizamos esse método para calcu- 
lar os valores correspondentes às mini- 
melodias, armazenados nas linhas 1110 
a 1150 (210 a 250 no Spectrum). Como 
no programa anterior, a segiúência prin- 
cipal (linhas 1000 e 1010, ou 200 no 
Spectrum) aponta para as linhas DATA 
onde estão as minimelodias, na ordem 
em que devem ser tocadas. 


Re ESSO) 


Outra parte importante do programa 
é a que se encarrega de extrair os nybbles 


MAIS MELODIAS 


Como exercício, tente codificar outras 
melodias, utilizando o último programa 
deste artigo. Identifique as minimelo- 
dias e as sequências principais, calcu- 
le os valores correspondentes e colo- 
que-os em linhas DATA. Será preciso 
redefinir as matrizes — X( ) — da se- 
quência principal para cada nova me- 
lodia, o que pode exigir a renumeração 
do programa. 





dos números decimais lidos nas linhas 
DATA. O Spectrum faz isso colocando 
o valor em uma variável (linha 401) e 
chamando, em seguida, uma sub-rotina 
(linhas 600 e 610) que separa os dois 
nybbles do byte. Devidamente proces- 
sados, esses valores são utilizados para 
emitir duas notas. 

Nos outros micros, as linhas SO a 100 
cuidam da decodificação. Primeiro, o 
byte em exame, N, é armazenado na li- 
nha 50. A linha 60 extrai o nybble mais 
significativo e a linha 70 verifica o có- 
digo de final de melodia. A linha 80 cha- 
ma a sub-rotina que executa a nota cor- 
respondente e a linha 90 extrai o nybble 
menos significativo, usando a operação 
lógica AND (menos no Apple e no 
TK-2000, cuja função AND não permi- 
te o cálculo de valores diferentes de 0 e 
1). A nota é então emitida. Note que o 
byte em exame é preservado, sem o que 
não seria possível recuperar o segundo 
nybble. 

Ao executar esse programa, Os usuá- 
rios do Spectrum observarão que os pro- 
blemas de andamento causados pela 
compressão já não ocorrem. O defeito 
era provocado por um tempo extra de 
processamento, necessário ao realinha- 
mento dos ponteiros, ou seja, ao uso de 
RESTORE. O programa reduziu esse 
tempo de processamento por meio de 
uma rotina em código, armazenada nas 
linhas 1000 a 2130. Esta é a razão das 
diferenças de tamanho e numeração en- 
tre o Spectrum e os demais micros. 

Para alterar a velocidade de execu- 
ção, altere o valor de T. Ele fica na li- 
nha 12, no Spectrum, e na linha 40, nos 
outros computadores. Observe, porém, 
que o intervalo de tempo entre o final 
de uma minimelodia e o início da seguin- 
te torna-se mais acentuado à medida que 
T diminui. 
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AS CINCO VIDAS 


DE WILLIE 


Mesmo que você seja um exímio jo- 
gador, mais cedo ou mais tarde a morte 
levará Willie. Mas não se afobe. Ele tem 
cinco vidas — nem tantas como um ga- 
to; bem mais, porém, do que os pobres 
mortais. Quando a fatalidade atingir 
Willie definitivamente, você deverá 
enterrá-lo, imprimir o placar final e 
ajustar todas as variáveis. 

Os sons emitidos pelo Spectrum são 
muito simples, acompanhando a execu- 
ção dos programas. O TRS-Color pode 
produzir sons sofisticados. Mas, como 
para isso é necessário utilizar o proces- 
sador, não se pode tocar um som e exe- 
cutar O jogo simultaneamente. 


A rotina apresentada a seguir promo- 
ve a morte de Willie e verifica se ele po- 
de ser ressuscitado. 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 


org 59652 

die ld de,196 

ld h1,1086 

call 949 

ld de,131 

ld h1,1646 

call 949 

dead ld h1,(57332) 





A morte vem para todos — mas não tão 
insistentemente como para Willie. 

Ele morre cinco vezes em cada jogo... 

e está sempre pronto a reiniciar | 
a aventura na hora que você quiser! 


90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 


ld bc, 15616 
ld a,45 
call 58217 
ld de,32 
add hl,de 
ld (57332),h1 
ld bc,57000 
ld a,40 

ld de,258 
call 58970 
ld de,30 

ld n1,878 
ld a,r 





“ 


gs 



























o = NOTAS FUNEBRES DE WILLIE 
m DESCIDA PARA E FUNERAL 

O INFERNO E IMPRESSÃO 

n PERDENDO VIDAS DO PLACAR 

m A ULTIMA MORTE SONS FINAIS 



















ld l,a ld a,142 480 REM call 949 
230 REM call 949 360 REM ld b,11 490 REM 1d a,50 


240 REM 1d hl, (57332) 370 REM 1d 1x,57992 500 REM ld (58732) ,a 
“ 250 REM ld de,704 380 REM call me 510 REM jp 58576 
260 REM sbc hl,de 390 REM call 58939 
270 REM 5r c,dead 400 REM 1d de, 261 Se Willie se atogou no mar, caiu num 
280 REM ld a,9 410 REM 1d h1,1646 É pi 
290 REM ld (60005) ,a 420 REM call 949 intao: foi piada uma Cora LOS 
300 REM ld a, (57343) 430 REM ld de, 392 PE ra a 


anunciando sua morte. Para que soem 


310 REM dec a 440 REM 1d h1,1086 ç , 
320 REM ld (57343) ,a 450 REM call 949 as duas badaladas fúnebres, a rotina 
330 REM 5p nz,58606 460 REM ld de,261 BEEPER é chamada em 949 duas vezes 
340 REM ld h1,330 470 REM 1d h1,1646 — em cada uma delas, com parâmetros 


diferentes nos pares HL e DE. 


DESCIDA PARA O INFERNO 


Quando Willie morre, ele desce para 
o inferno, que se situa no fundo da te- 
la. Para criar esse efeito, começamos 
por apagar sua cabeça — se não o fizer- 
mos, teremos uma coluna de cabeças 
descendo até o fundo da tela! 

Assim, a posição de Willie na tela — 
que aponta para a posição de sua cabe- 
ça — é carregada da variável em 57332 
e 57333 para o par HL. BC é carregado 
com o endereço de um caractere limpo 
de céu do topo da tela, A é ajustado pa- 
ra ciano sobre ciano. Finalmente, a ro- 
tina print em 58217 é chamada, apagan- 
do a cabeça de Willie. 

O valor 32 é então somado ao apon- 
tador de tela em HL, através do par DE, 
o que o faz se mover para a linha de bai- 
xo da tela. O resultado é colocado de 
volta em 57332 e 57333 para ajustar 
também a variável, 

BC é carregado com o endereço ini- 
cial da figura de Willie com as pernas 
juntas. A é ajustado com o código da 
cor de Willie, azul sobre ciano. DE é 
carregado com 258, especificando um 
bloco de um por dois — o conteúdo do 
registro D define a largura do bloco, e 
o conteúdo do registro E, sua profun- 
didade: 1x 256 + 2 = 258. A rotina de 
impressão de bloco em 58970, blk, é 
chamada, exibindo na tela a figura de 
Willie com as pernas juntas, uma posi- 
ção abaixo da que ele ocupava antes. 

Enquanto Willie desce, ouve-se uma 
música “celestial”. Mais uma vez, os 
pares de registros HL e DE são carre- 
gados com parâmetros que a rotina 
BEEPER utilizará, quando for chama- 













































da em 949. Desta vez, porém, em vez de 
um som constante, o programa precisa 
de um som intermitente. Para isso, 
carrega-se o conteúdo do registrador R 
na parte menos significativa de HL, que 
é o registro L. A operação é realizada 
via acumulador porque não existe ne- 
nhuma instrução ld 1,r. 

Usamos o registro R para manter a 
memória dinâmica. Este é um recurso 
do hardware com o qual você não pre- 
cisa se preocupar. Para nossos fins, bas- 
ta saber que o valor desse registro é va- 
riável. Assim, cada vez que esta parte da 
rotina for acessada irá produzir um som 
diferente. 


Pa da 


A posição da cabeça de Willie é car- 
regada da variável em 57332 e 57333 pa- 
ra o par HL; 704 é carregado em DE e 
subtraído do conteúdo de HL. O núme- 
ro 704 — 32 x 22 — indica o começo 
da penúltima linha. Como Willie tem 
dois caracteres de altura, essa subtração 
colocará o valor 1 na baliza carry até 
que os pés de Willie tenham tocado o 
fundo da tela. 

Enquanto a baliza carry contiver 1, 
a instrução jr e, dead manda o proces- 
sador de volta ao início da rotina de en- 


terro do personagem. Willie será afun- 
dado mais uma posição e os sinos vol- 
tarão a tocar — num tom diferente. 
Quando os pés de Willie tocarem o in- 
ferno, ele estará completamente enter- 
rado. A baliza carry não será ajustada 
com 1 pela subtração, não haverá salto 
e o processador passará a executar a 
próxima instrução. 

Tendo Willie chegado ao seu destino 
final, convém tocar uma canção confor- 
tadora. Assim, carrega-se A com 9 e a 
rotina sound em 60006 é chamada. Ela 
executa uma versão curta da melodia 
inicial do jogo. Para obter maiores de- 
talhes sobre rotina da música, reveja o 
artigo da página 788. 

Como nosso personagem perdeu uma 
vida, precisamos reajustar — ou me- 
lhor, decrementar — o número de vidas. 
O valor dessa variável é carregado de 
57343 para o acumulador, decrementa- 
do e recolocado em 57343. 

Se Willie ainda dispõe de alguma vi- 
da, a instrução jp nz manda o proces- 
sador de volta ao programa de iniciali- 
zação, em 58606. Caso contrário, con- 
tinua na rotina de nova partida. 














ACABARAM-SE AS VIDAS 


Quando Willie tiver morrido pela 
quinta vez, o jogo acaba. Precisamos, 
então, imprimir a mensagem “GAME 
OVER!”. Para isso, chamamos a roti- 
na de mensagens, ou me, em 58155. Co- 
mo sempre, os parâmetros devem ser co- 
locados nos registros HL, A, B e IX. 

A posição de impressão é carregada 
em HL. A cor é ajustada em A. B car- 
rega o comprimento da mensagem e IX 
é usado como apontador de dados. Os 
dados para a mensagem estão em 57892. 

A rotina que imprime o escore em 
58939 é chamada para imprimir o pla- 
car. Em seguida, ouve-se o toque que 
marca O final do som no jogo. Para 


































produzi-lo, a rotina BEEPER é chama- 
da em 949 três vezes, com valores dife- 
rentes em HL e DE a cada vez. 

Para reajustar o atraso inicial, 
carrega-se o acumulador com 50 e 
transfere-se o valor na posição 58732. 
Esse endereço ainda não foi menciona- 
do: ele pertence à rotina final do jogo 
e é incumbido de controlar o atraso ge- 
ral. O processador salta para 58578, 
ajustando-o de maneira que você possa 
dar reinício à aventura, se quiser. 


A rotina a seguir coloca Willie em seu 
túmulo: 


10 ORG 20560 
20 DIE LDA 4136 











30 LDX 4140 
40 JSR SOUND 
50 LDA 4131 
60 LDX 4213 
70 JSR SOUND 
80 DI LDX 18249 
90 LDU 41536 
JSR CHARPR 
LEAX 254,X 
STX 18249 
LDU 417774 
JSR CHARPR 
LEAX 254,X 
JSR CHARPR 
LDA 430 
LDX 4113 
JSR SOUND 
LDX 18249 
CMPX 46912 
BLO DI 

DEC 18239 
LBNE NLV 


250 PB LDA 45 

260 PAA LDX 465535 
270 LEAX -1,X 

280 BNE PAA 

290 DECA 

300 BNE PB 

310 JSR CLS 

320 LDA SFF22 

330 ANDA 415 

340 STA SFF22 

350 STA SFFC2 

360 STA SFFC4 

370 STA SFFC6 

380 LDY 4+550B 

390 LDX 48701 

400 STX ,Y++ 

410 LDX 45D05 

420 STX ,Y++ 

430 LDX 45200F 
440 STX ,Y++ 

450 LDX 431605 
460 STK ,Y++ 

470 LDX 451221 
480 STX ,Y++ 

490 LDA 4200 

500 LDX 4255 

510 JSR SOUND 
520 LDA 4200 

530 LDX 4200 

540 JSR SOUND 

550 LDA 4255 

560 LDX 4255 

570 JSR SOUND 
580 LDA 4100 

590 STA DLL+ 

600 LBRA GBIN 

610 SOUND EQU 85133 
620 CHARPR EQU S4BCA 
630 DLL EQU $51ED 
640 GBIN EQU $4BEZ 
650 NLV EQU S4BF7 
660 CLS EQU S4ACC 


OS SINOS 


Quando a rotina começa, ouve-se um 
sino bater duas vezes. A homenagem so- 
nora ao finado Willie, porém, é promo- 
vida pela rotina SOUND, que será for- 
necida no próximo artigo de Avalanche. 

Antes de testar o programa aqui 
apresentado, lembre-se de colocar um 
RTS no endereço inicial de SOUND, 
$5133. Caso contrário, haverá um erro. 

SOUND requer dois parâmetros que 
especifiquem o tipo e a duração do som. 
Eles são utilizados pela rotina nos regis- 
tradores A e X. Como as duas notas 
produzidas diferem uma da outra, a ro- 
tina SOUND trabalha com parâmetros 
distintos a cada chamada. 


[ja jon Rd 


Willie descerá na tela em direção ao 
inferno. Sua figura anterior deve, assim, 
ser apagada. 

X é carregado com o conteúdo de 


18249, que aponta para a posição que 
o personagem ocupa na tela; U é carre- 
gado com 1536, o endereço do céu no 
topo da tela. Em seguida, a rotina 
CHARPR é chamada e imprime um 
bloco de céu, apagando a metade supe- 
rior da figura de Willie. O conteúdo de 
X é então adicionado a 254 e recoloca- 
do em 18249, para que o apontador de 
Willie desça um caractere na tela. 

U é carregado com 17774, o endere- 
ço inicial dos dados para a figura de 
Willie com as pernas juntas. Depois, o 
processador salta para a rotina 
CHARPR, que imprime a metade supe- 
rior de Willie uma posição abaixo da úl- 
tima impressão. Novamente, X é incre- 
mentado com 254 e CHARPR é chama- 
da para imprimir a metade inferior da 
figura. 

Enquanto Willie está descendo na te- 
la, ouve-se um grito de agonia — para 
isso, A e X são carregados de novo e o 
processador salta para SOUND. 

Willie deve chegar ao fundo da tela. 
Verificamos se isso já ocorreu carregan- 
do X com o conteúdo de 18249 e com- 
parando esse valor com 6912, o início 
de 28º linha da tela, Se a posição de Wil- 
lie em X for menor do que 6912, a ins- 
trução BLO manda o processador rei- 
niciar o laço DI e move Willie um ca- 
ractere para baixo. Caso contrário, o 
processador segue em frente, pois Wil- 
lie chegou ao fundo da tela. 

O conteúdo de 18249 — que arma- 
zena o número de vidas que restam a 
Willie — é então decrementado e LBNE 
NLY manda o processador para a roti- 
na que dá nova vida a Willie e traz de 
volta a última tela. Uma instrução de 
desvio longo é usada neste ponto, por- 
que a rotina NLV encontra-se numa 
parte bem anterior do programa — cer- 
tamente mais do que 128 bytes, o limite 
para um desvio curto. 


o A 


Se o conteúdo de 18249 foi reduzido 
a 0, Willie não tem mais nenhuma vi- 
da, o jogo terminou e o processador exe- 
cuta a instrução seguinte. 

A é carregado com 5; X é carregado 
com 65535 e, depois, decrementado, O 
processador fica nesse laço até que X se- 
ja O. Em seguida, A é decrementado e 
X volta a ser carregado com 65535. O 
processo se repete até que A também te- 
nha sido reduzido a 0. 

O processador fica nesse laço S x 
65535 vezes — pausa suficiente para que 
o jogador medite sobre o trágico desti- 
no de Willie. Ao sair do laço de atraso, 
o processador salta para a rotina CLS, 
que limpa a tela. 





O conteúdo de $FF22 é então carre- 
gado em A, onde se executa a operação 
lógica AND com o valor 15. O resulta- 
do é armazenado nas posições de memó- 
ria $FF22, $FFC2, $FFC4 e $FFC6. 

Informamos, assim, ao VDG (gera- 
dor do sinal de vídeo) e ao SAM (multi- 
plexador síncrono de endereços) que es- 
tamos voltando ao modo texto. O pro- 
cedimento é o inverso do que utilizamos 
ao mudar para o modo gráfico. 

Y é carregado com $50B, posição on- 
de iremos imprimir a expressão “GA- 
ME OVER!”. X, por sua vez, é carre- 
gado com $701, códigos de tela para as 
letras GA. Essas letras são colocadas na 
tela na posição apontada por Y, que é 
incrementado duas vezes. 

Em seguida, X é carregado com os 
códigos de tela para ME e as duas letras 
são impressas na nova posição aponta- 
da por Y, dois blocos à direita do início 
de GA. Por fim, os últimos caracteres 
— O, VE e R! — são carregados e im- 
pressos nas posições adequadas. 

Um som anuncia o fim do jogo. Co- 
mo esse som é formado por três notas, 
Ae X são carregados e a rotina SOUND 
é chamada três vezes. 

O número 100 é carregado no acumula- 
dor e armazenado em $51EE. Com isso, 
ajustamos o atraso com o valor inicial. 
Quando o jogo for novamente executa- 





do, começará com a mesma velocidade. 

Encerrando a execução da rotina, o 
processador faz um longo desvio para 
o início do programa em GBIN 


1), RE 1 


A rotina a seguir enterra Willie e ve- 
rifica se pode ser ressuscitado: 


10 org 55334 

20 ld h1,(-5205) 
30 1d de, (62407) 
ao add hl,de 

50 inc hl 

60 ld a,255 

70 push h1 

so call 77 

90 pop hl 





100 dec hl 
110 dec hl 
120 ld a,255 
130 push h1 
140 call 77 
150 pop h1 
160 ld de,32 
170 add hl,de 
180 ld a,255 
190 push hl 
200 call 77 
210 pop hl 
220 inc hl 
230 inc hl 
240 ld a,255 
250 push h1 
260 call 77 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
4s0 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570. 


580 
590 
600 
610 
620 


pop h1 

inc h1 

ld a,255 
call 77 

mo ld h1l,(-5205) 
push h1 

ld de, (62407) 
add hl,de 

ld a,255 
call 77 

pop h1 

ld de,32 

add hl,de 

ld (-5205),hl 
ld de, (62407) 
add hl,de 

ld a,0 

push h1 

call 77 

pop h1 

ld de,32 

add hl,de 

ld a,l 

call 77 

ld b,255 

atr ld a,255 
dl dec a 

àr nz,dl 
dinz atr 

ld h1,(-5205) 
1d de,704 
sbc hl,de 

3r como 

ld a,(-5221) 
dec a 

1d (-5221),a 











630 5p nz,53888 
640 ld de,234 
650 ld a,114 
660 ld b,12 
670 tt push bc 
680 push de 

690 push af 

700 ld h1, (62407) 
710 add hl,de 
720 call 77 
730 pop af 

740 inc a 

750 pop de 

760 inc de 

770 pop bc 

780 dinz tt 

790 ld b,30 

800 tu ld a,255 
810 du ld c,255 
820 su dec c 
830 3r nz,su 
840 dec a 

8so 3r nz, du 
860 djnz tu 
870 call 54023 
880 ld a,50 

890 ld (54133),a 
900 »p 53855 
910 end 





Essa rotina é executada quando nos- 
so personagem morre — depois de se 
afogar no mar, cair num buraco, ser pi- 
cado por uma cobra ou ser atingido e 
esmagado por uma pedra. 


á E A com 255 e repete o processo até que 


IRS ASAS 


Antes de mandar Willie para o infer- 
no, a rotina apaga seus vestígios na su- 
perfície. Se ele foi atingido por uma pe- 
dra, esta também será apagada, evitan- 
do a deformação de figuras. Para isso, 
coloca-se o padrão do céu, código 255, 
em cinco posições ao redor de Willie. 
Examinando todas as situações de coli- 
são, você verá que essas são as posições 
necessárias. 

O par HL é carregado com a posição 
de Willie na tela, que está no apontador 
em —5205 e — 5204; DE é carregado 
com o endereço inicial da TN da VRAM 
e somado em HL, o apontador na im- 
pressão. Em seguida, a rotina 77 da 
ROM é chamada cinco vezes, com o va- 
lor de HL apontando para cinco di 
rentes posições ao redor de 
Lembre-se de que a rotina 77 — utiliza- 
da no decorrer do jogo para imprimir 
um padrão na tela — coloca o valor 
de A no endereço da VRAM apontado 
por HL. 


DESCIDA PARA O INFERI 


Willie chega até o fundo da tela, em 
sua descida ao inferno. Para criar esse 
efeito, começamos por apagar sua ca- 
beça — se não o fizermos, veremos no 
vídeo uma coluna de cabeças! 

A posição de Willie, que aponta pa- 
ra a sua cabeça, é carregada da variável 
em — 5205 e — 5204 para HL, par de re- 
gistros guardado na pilha. O endereço 
inicial da TN na VRAM é carregado em 
DE e somado em HL. A rotina 77 colo- 
cao padrão 255 nessa posição, apagan- 
do a cabeça de Willie. A posição é re- 
cuperada da pilha para HL, sendo so- 
mada a 32 através de DE e colocada de 
volta em — 5205 e — 5204. Assim, Wil- 
lie afunda uma posição na tela. 

Esse novo valor é somado com o en- 
dereço inicial da TN na VRAM através 
de DE. O acumulador é carregado com 
0, o código do primeiro padrão da fi- 
gura de Willie com as pernas juntas. O 
apontador é colocado na pilha e a roti- 
na 77 é chamada. O apontador é recu- 
perado da pilha e somado com 32, mo- 
vendo-se para a posição de baixo. A é 
carregado com 1, o código do segundo 
padrão da figura de Willie. Chama-se a 
rotina 77 e Willie desce uma posição. 

Em seguida, Be A são carregados 
com 255. O acumulador é decrementa- 
do até O no laço dl. Quando chega a es- 
se valor, o processador, por meio da ins- 
trução djnz atr, decrementa B, reajusta 















B também seja 0. Esse laço é executado 





255 x 255 vezes e tem como único fim 
atrasar a descida de Willie, para que o 
jogador possa vê-la. 

A posição de Willie é carregada da 
variável em — 5205 e — 5204 para HL, 
onde é subtraída de 704 através de DE. 
Esse valor indica o começo da penúlti- 
ma linha na tela. Como Willie tem dois 
caracteres de altura, a subtração irá co- 
locar o valor 1 na baliza carry até que 
seus pés tenham tocado o fundo da te- 
la. Enquanto a baliza tiver esse valor, 
a instrução jr c,mo manda o processa- 
dor de volta ao início da rotina do en- 
terro, que afunda Willie mais uma po- 
sição. Quando seus pés tocarem o chão, 
ele estará completamente enterrado; a 
baliza carry não terá mais o valor 1 e 
não haverá o saltó. O processador pas- 
sa, então, a executar a próxima ins- 
trução. 

O número de vidas precisa ser reajus- 
tado — ou melhor, decrementado, pois 
o pobre Willie perdeu uma vida. O nú- 
mero de vidas é carregado no acumula- 
dor em — 5221, decrementado e recolo- 
cado no mesmo endereço. Se ainda res- 
tam vidas a Willie, o processador salta 
para o programa de inicialização, em 
53888. Caso contrário, continua na ro- 
tina de nova partida. 


CAIA IS 


Quando Willie tiver consumido suas 
cinco vidas, o jogo acaba. Devemos, en- 
tão, imprimir “NOVA PARTIDA”, 
com os padrões previamente colocados 
na tabela de padrões da VRAM pela ro- 
tina fornecida no artigo da página 1001. 

O par DE é carregado com 234, po- 
sição da tela onde a primeira letra será 
impressa. A contém o código de padrão 
da primeira letra; B, o número de pa- 
drões (doze, incluindo o espaço em 
branco). O laço tt é executado doze ve- 
zes, usando a rotina 77 para imprimir 
a mensagem no centro da tela. Note que 
este trabalho foi bem simplificado, por- 
que os padrões para a mensagem já es- 
tavam na VRAM, em seqiiência. 

Depois, o laço formado por tu, du e 
su é executado 30 x 255 x 255 vezes, pro- 
movendo o atraso necessário para à 
mensagem ser lida na tela. A rotina que 
imprime o escore em 54023 é chamada 
para imprimir o placar final. 

Para reajustar o atraso geral do jo- 
go, carregamos o acumulador com 50 e 
transferimos esse valor para 54133 — 
endereço que pertence à rotina final e 
controla a velocidade do jogo. 

o processador salta para 53855, o iní- 
cio da rotina principal, para que você 
tente de novo, se quiser, 











A linguagem BASIC tem excelentes 
recursos para programação com variá- 
veis literais (alfanuméricas). Diversas 
funções de manipulação de cadeias de 
caracteres (string) garantem a essa lin- 
guagem uma grande versatilidade. Va- 
mos relembrar, resumidamente, o que 
faz cada uma dessas funções. 


Funções gerais 
LEN(XS) - Retorna 0 comprimento 
da cadeia X$ (um núme- 
ro inteiro entre O e 255). 
Existe para todas as ver- 
sões de BASIC. Nos mi- 
crocomputadores ZX-81 e 
Spectrum não é necessá- 
rio colocar X$ entre pa- 
rênteses. 
Retorna o código ASCII 
(um número inteiro entre 
0 e 255) do primeiro ca- 
ractere da cadeia X$. No 
micro Sinclair ZX-81 de- 
nomina-se CODE. 
CHRS(X) - Tem a função inversa de 
ASC, ou seja, retorna o 
caractere correspondente 
ao código ASCII indica- 
do pela variável X. 
STRINGS(X,Y) - Retorna uma cadeia com 
X caracteres iguais, com 
código ASCII estipulado 
por Y. Não existe para os 
microcomputadores das 
linhas Apple, Sinclair 
ZX-81 e Spectrum. 


ASCI(XS) 


Funções 'de subcadeias 


CCI TO 


LEFTS (X$,N) -Extrai os N primeiros ca- 
racteres da cadeia X$. 

RIGHTS (X$,N)-Extrai os N últimos carac- 
teres da cadeia X$. 

MIDS (X$,N,L) -Extrai L caracteres a par- 
tir da posição N da cadeia 
X$. Pode ser utilizado 
também no formato 
MIDS(XS,N), extraindo 
então todos os caracteres 
que existirem na cadeia 
X$, a partir da posição N. 


Nos micros da linha Sinclair — 
ZX-81 e Spectrum — não são necessá- 
rias funções especiais para tratamento 
de subcadeias. Damos, abaixo, a equi- 
valência entre a referência padronizada 
a subcadeias na linha Sinclair e as fun- 
ções anteriores mencionadas. 


XS( TO N) e LEFTS(X$,N) 
XS(LEN X$-N TO +1) + RIGHTS(XS,N) 
XS(N TO N+L-1) e MIDS(X$,N,L) 
XS(N TO) + MIDS(X$,N) 
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INSTR (X$,Y$) - A função instring retorna 

a posição em que se está 

o caractere Y$ (ou o pri- 

meiro caractere da cadeia 

Y$), dentro da cadeia X$. 

Essa função pode ser simulada nos 

computadores onde não existe, por meio 

de um laço de repetição em que cada ca- 

ractere em X$ é extraído, sucessivamen- 

te, sendo comparado com Y$. Isso po- 

de ser feito com a função MIDS(XS, 1,1), 
onde 1 é o indicador do laço. 


Funções de conversão 


Ss sy dis) 


Números podem ser representados 
na forma de uma cadeia de dígitos, 
mais os sinais de ponto (.), mais (+), 
menos (-), e as letras E ou D (notação 
científica em precisão simples ou dupla, 
respectivamente. Esta última só existe 
nos micros das linhas TRS-80, TRS- 
Color e MSX). Para efetuar a convi 
são da representação numérica para Ca- 
deia, ou vice-versa, existem duas fun- 
ções especiais em ASCII: 





STRS(X) - Retorna a cadeia corresponden- 
te ao número X. Um espaço em 
branco é adicionado ao início da 
cadeia. 

VAL (X8$)- Efetua a operação inversa, ou 
seja, retorna o valor numérico 
correspondente à cadeia X$. Se 
XS$ não contiver um número, 
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OPERAÇÕES 
COM CADEIAS 


A programação dos blocos básicos de 
um processador de textos em BASIC 
não é difícil. Aprenda aqui a remover 
espaços em branco e a converter 
maiúsculas em minúsculas e vice-versa. 


não ocorre erro: o valor que se 
retorna é igualado a 0. 

Nem todas as versões do BASIC di- 
põem do conjunto completo de funções 
string. Além disso, faltam certas fun- 
ções, necessárias para a programação 
avançada com cadeias (sobretudo em 
processamento de textos): 


* eliminação de espaços em branco no 
começo ou no fim de uma cadeia; 

* conversão de minúsculas para maiús- 
culas e vice-versa; 

* extração de palavras de uma frase. 


Neste artigo, examinaremos como re- 
solver alguns dos problemas menciona- 
dos acima por meio de pequenas sub-ro- 
tinas, que podem ser acrescentadas a 
qualquer programa. 


REMOÇÃO DE ESPAÇOS 





Para muitas aplicações de processa- 
mento de cadeias, é preciso remover an- 
tes os espaços em branco existentes no 
começo ou no final de um string. A sub- 
rotina que apresentamos a seguir mos- 
tra como remover brancos à direita. Ne- 
la, a variável A$ contém a cadeia que 
deve ser processada, e B$, o resultado 
da rotina: 


ma mala) sy 


1000 FOR I=LEN(AS) TO 1 STEP -1 
1010 IF MIDS(AS,1,1)<>" ” THEN 
1030 

1020 NEXT I 

1030 BS=LEFTS (AS,1): RETURN 


1000 FOR I=LEN AS TO 1 STEP -1 
1010 IF AS(I TO I)<>” ” THEN 
GoTo 1030 

1020 NEXT I 

1030 LET BS=AS(TO 1) 

1040 RETURN 


Para testar a rotina, acrescente este 
pequeno programa: 


SS asashyidi(o) 


10 PRINT "ENTRE A CADEIA "; 
20 INPUT AS 








30 GOSUB 1000 
40 PRINT BS 
50 Goro 10 


A linha 1000 da sub-rotina percorre 
a cadeia de caracteres do fim ao come- 
ço, recuando um caractere por vez. A 
linha 1010 verifica se o caractere é um es- 
paço em branco, Enquanto for, o laço 
se repete. A ocorrência do primeiro ca- 
ractere não branco causa a interrupção 
do laço e a extração dos I caracteres à 
esquerda (linha 1030). 

Ao testar o programa nos micros das 
linhas TRS-80, TRS-Color, MSX, Apple 
ou TK-2000, não se esqueça de digitar 
a cadeia entre aspas, pois, normalmen- 
te, o comando INPUT já realiza a fun- 
ção de retirar os espaços colocados à di- 
reita da mesma. 

Nas versões do BASIC que permitem 
funções programadas (DEF FN), a ro- 
tina anterior pode ser substituída por al- 
go bem mais compacto: 


5 DEF FNTBS(AS)=LEFTS (AS, INSTR( 
SR Nm ")=1) 

Para fazer um teste, troque a linha 
30 do programa de verificação por: 


30 BS=FNTBS (AS) 


Observe que a função só opera cor- 
retamente se não houver mais do que 
um espaço em branco entre as palavras 
de uma cadeia. 

Para remover os espaços em branco 
à esquerda podemos usar a seguinte 
versão da rotina anterior: 


am mala) [có) sa 


1200 FOR I=1 TO LEN(AS) 

1210 IF MIDS(AS,I,1)<>" " THEN 
1230 

1220 NEXT I 

1230 BS=MIDS(AS,1) : RETURN 


1200 FOR I=1 TO LEN AS 

1210 IF AS(I TO I)<>”" ” THEN 
Goro 1230 

1220 NEXT 1 

1230 LET BS=AS(I TO) 

1240 RETURN 


Para testar a rotina, substitua a li- 
nha 30 do programa de verificação por 
GOSUB 1200. 











m MANIPULAÇÃO DE 


ELIMINAÇÃO DE 





CADEIAS DE CARACTERES 


ESPAÇOS EM BRANCO 





EE CONJUNTO DE FUNÇÕES STRING 
NOVAS ROTINAS 
DE PROCESSAMENTO DE TEXTOS 


Note que apenas a primeira e a últi- 
ma linhas da sub-rotina são diferentes, 
pois é necessário percorrer a cadeia do 
primeiro ao último caractere, até en- 
contrar o primeiro não branco. Feito is- 
so, eliminam-se todos os caracteres à 
direita. 


LUSA 


Outro recurso útil é a conversão de 
todas as letras minúsculas de uma cadeia 
em maiúsculas, ou vice-versa. Lembre- 
se de que o código ASCII de uma letra 
minúscula é igual ao código da maiús- 
cula correpondente, mais o valor 32. O 
código de A, por exemplo, é 65, e o de 
a, 97. Portanto, para converter maiús- 
culas em minúsculas, precisamos apenas 
somar 32 ao código das letras — quan- 
do o código ASCII for menor do que 65, 
que é a letra A, ou maior do que 90, que 
éa letra Z, o caractere não deve ser con- 
vertido. 


am maio sy 


1300 B$="" 

1305 FOR I=1 TO LEN(AS) 
1310 C=ASC(MIDS(AS,1,1)) 
1320 IF C>64 AND C<91 THEN 
C=C+32 

1330 B$=BS+CHRS(C) 

1340 NEXT I:RETURN 


1300 
1305 


LET b$S="" 
FOR 1=1 TO LEN aS 


1310 LET c=ASC as(i TO 1) 

1320 IF c>64 AND c<91 THEN LET 
c=c+32 

1330 LET b$=bS+CHRS c 

1340 NEXT à 


1350 RETURN 


Não apresentamos uma versão para 
os compatíveis com o ZX-81, pois estes 
não têm letras minúsculas. 

Para testar a rotina acima, substitua 
a linha 30 de nosso programa de verifi- 
cação por GOSUB 1300. 

O funcionamento da rotina é simples: 
o laço que vai de 1305 a 1340 percorre 
a cadeia de entrada, tomando um carac- 
tere de cada vez, na linha 1310, Se o seu 
código estiver entre 65 e 90, trata-se de 


CONVERSÃO PARA 


- MAIÚSCULAS 
BE CONVERSÃO PARA MINUSCULAS 








Como uma cadeia é armazenada na 
memória do computador? 

A cadeia é uma estrutura de dados 
muito útil, pois não exige um espaço 
fixo para armazenagem de cada variá- 
vel literal, como acontece com as va- 
riáveis numéricas. Uma variável de pre- 
cisão simples sempre ocupa quatro 
bytes na memória; uma variavel de pre- 
cisão dupla (quinze decimais) ocupa 
seis bytes e assim por diante. 

Manter esse esquema de alocação 
fixa de espaço na memória para as ca- 
deias levaria a um grande desperdício, 
pois o comprimento das cadeias usa- 
das em um programa pode variar mui- 
to. Assim, o interpretador BASIC colo- 
ca todas as cadeias em um único es- 
paço, reservado para esse fim, 

Para saber onde começa e acaba ca- 
da cadeia, o interpretador mantém 
duas outras estruturas de dados: uma 
série de apontadores indica as locações 
de memória onde começam as cadeias. 
No byte O da cadeia está indicado o seu 
comprimento, em bytes. É por isso que 
o comprimento máximo de uma cadeia, 
no dialeto Microsoft BASIC, é 255 (o 
maior número decimal representável 
em oito bits). 








uma letra maiúscula; portanto, devemos 
somar 32 ao mesmo. A linha 130 con- 
catena o novo caractere à cadeia de saída. 

Para converter minúsculas em maiús- 
culas basta alterar apenas uma linha da 
rotina: 


ESasaaiy dio) 


1320 IF C>96 AND C<123 THEN 
C=c-32 

A rotina verifica se o código ASCII 
do caractere está compreendido entre 97 
e 122 (letras a a z, minúsculas). Se esti- 
ver, simplesmente subtrai 32 desse có- 
digo. 












Com o programa apresentado neste 
artigo, os usuários do TRS-Color terão 
acesso direto à informação contida 
nos disquetes, podendo alterá-la ou 
recuperá-la em caso de acidente. 
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E ACESSO DIRETO O PROGRAMA 
o LEITURA E GRAVAÇÃO LEITURA 
B FORMATO DO DISCO DE UM SETOR 
B O DIRETÓRIO E EXECUTANDO 
B - COMO UTILIZAR AS ALTERAÇÕES 














A tarefa de gravar e ler arquivos em 
um disquete é gerenciada pelo sistema 
operacional de disco (DOS). Em geral, 
o modo como se organiza a informação 
no disco ou como se dá a transferência 
de dados não constitui problema para 
o usuário — o DOS cuida de tudo, 
transformando a unidade de disquete 
em uma extensão do computador. 

No entanto, podemos acessar partes 
individualizadas do disco, manipulando 
e alterando diretamente a informação 
nele contida. Este é um recurso ofereci- 
do pelo DOS que abre inúmeras possi- 
bilidades de aplicação. Permite, por 
exemplo, que se alterem itens de um di- 
retório e nomes ou dados de arquivos. 
Sua aplicação mais interessante talvez 
seja a recuperação de informações: com 
o acesso direto você pode, entre outras 
coisas, recuperar arquivos que foram 
apagados, fechar arquivos ou restabe- 
lecer apontadores, corrigindo o enca- 
deamento dos setores que compõem um 
arquivo em particular. 

O acesso direto a blocos individuais 
de informação em um disco funciona de 
modo semelhante a um monitor desti- 
nado a examinar a memória do micro. 

A operação do monitor de disco (ou 
editor de disco) é viabilizada, basica- 
mente, pela armazenagem temporária, 
em uma parte da memória, da informa- 
ção lida do disco ou a ser gravada. En- 
quanto está na memória, a informação 
pode ser alterada à vontade, sendo, em 
seguida, substituída no disco. 


Re Te] 


Algum conhecimento sobre a distri- 
buição dos dados no disco é fundamen- 
tal para a manipulação do bloco de in- 
formações em uma trilha ou setor deter- 
minado. O diagrama, normalmente re- 
ferido como formato do disco, é defi- 
nido pelas rotinas de formatação do 
DOS. 

Usa-se a notação em hexadecimal em 
todas as referências sobre acesso direto 
ao disco — por isso, nossas referências 
também adotarão essa notação. Como 
não empregaremos a notação decimal 
em nosso programa, será útil ter uma ta- 
bela de conversão de decimais para hex 
e outra de hex para ASCII. 





ILS 


Para utilizar nosso programa-editor, 
você deverá ter um mapa do formato do 
disco. Veremos aqui seus aspectos mais 
relevantes; outros detalhes serão encon- 
trados no manual do DOS. 

Se você vai trabalhar com um disco 
que reúne dados importantes, recomen- 
damos que faça uma cópia dele. Qual- 
quer erro cometido ao usar este progra- 
ma poderá danificar toda a informação 
nele armanezada. 

O TRS-Color tem uma interface es- 
pecial que contém o sistema operacio- 
nal. Este não precisa, assim, estar gra- 
vado no disco para ser lido quando se 
liga o computador — como ocorre com 
a maioria dos micros. 

O disco divide-se em 34 trilhas, cada 
uma com dezoito setores de 338 bytes. 
Destes, apenas 256 são usados para ar- 
mazenamento de dados; os 82 restantes 
são utilizados para controle do sistema 
operacional. 

O diretório, que controla os arquivos 
do disco, fica armazenado na trilha 17. 
Ele pode ser acessado por meio do co- 
mando DIR, que mostra todos os arqui- 
vos, discriminando seu tipo e também 
o número de blocos empregados. Veja- 
mos como está dividida a trilha 17, a 
partir do setor 3: 





Conteúdo 





Nome do arquivo. Ocupando 
um número de bytes menor que 
oito, é preenchido por espaços 
em branco. Byte O igual a O in- 
dica arquivo apagado. Byte O 
igual a FF significa que este e 
os próximos itens do diretório 
ainda não foram usados. 


8-10 


Extensão do nome do arquivo 


11 Tipo de arquivo: 
O programa BASIC; 
1 arquivo de dados BASIC; 
2 programa em linguagem de 
máquina; 
3 arquivo de texto. 


12 00arquivo em formato binário. 
FF arquivo em formato ASCII, 











Número do primeiro bloco do 
arquivo (0-67). 


Número-de bytes em uso no úl- 
timo setor do arquivo. 


16-31 Sem uso. 


Para distribuir os arquivos no disco, 
o computador usa como referência blo- 
cos, que nada mais são que metade de 
uma trilha. Assim, o bloco O será com- 
posto pelos setores | a 9 da trilha 0; o 
bloco 1, pelos setores 10 a 18 da trilha 
0; o bloco 2, pelos setores 1 a 9 da tri- 
lha 1 e assim por diante, até a trilha 16. 
A trilha 17 — que contém o diretório — 
não é levada em consideração, mas a di- 
visão recomeça a partir da trilha 18 — 
onde os setores 1 a 9 compõem o bloco 
34 — e, com isso, prossegue até o fim 


do disco... : 
A identificação dos blocos livres pa- 


ra uso é feita por meio do setor 2 da tri- 


lha 17. Os primeiros 68 bytes desse se- 
tor representam os blocos de O a 67. 
Quando determinado byte contém o va- 
lor FF, o bloco está livre. Um valor de 
00 a 43 indica sua ocupação por um ar- 
quivo cuja referência é dada pelo núme- 
ro decimal obtido após a conversão do 


valor. Um valor de CO a C9 indica que 
o bloco em questão é o único ou o últi- 
mo do arquivo; o segundo dígito esp: 
cifica o número de setores que estã 
ocupados no bloco. 

Essas informações são importantes, 
especialmente quando se trata de recu- 
perar arquivos apagados por engano — 
tarefa, aliás, nada fácil, mas que pode 
ter bons resultados se realizada com um 
pouco de paciência. 

No caso da recuperação de um arqui- 
vo pequeho, que não ocupa mais de um 
bloco, o trabalho é mais simples. Em 
primeiro lugar, você deve localizar o 
programa desejado no diretório. Para 
restaurar seu nome inicial, substitua o 
00 da primeira posição pela letra ade- 
quada. Depois procure o 13º byte do 
item (o terceiro após a última letra da 
extensão do nome do arquivo). Trans- 
forme seu valor hexadecimal em dec 
mail, para identificar o bloco usado pe- 
lo seu programa. Em seguida, grave e: 
sa informação no setor e carregue o se- 
tor 2 da trilha 17. Procure pelo byte cor- 
respondente ao bloco (lembre-se de que 
a contagem começa no 0). Ele deve ter 
o valor FF. Substitua esse valor por C9 
e grave no setor. Saia do programa- 
editor, carregue o seu programa na me- 
mória e volte a gravá-lo, para que to- 
dos os apontadores sejam atualizados. 


Pronto, seu programa está totalmente 
recuperado! 

Quando o programa que você quer 
recuperar é maior, a operação torna-se 
complicada, pois o DOS passa para FF 
o valor de todos os blocos usados pelo 
programa que foi apagado. Assim, co- 
meçamos o trabalho conhecendo apenas 
o primeiro bloco. Os demais têm que ser 


procurados no disco, setor por setor. O 
programa só poderá ser carregado na 
memória do computador quando tiver- 
mos montado a segiiência correta de 
blocos. Inicie a busca pelos blocos vizi- 
nhos do inicial e vá se afastando até ter 
localizado todos eles. É um trabalho ár- 
duo, mas, certamente, haverá casos em 
que valerá a pena. 





10 CLEAR 5000:DIM AS(1),DS(1), 
(160) :C$="""+CHRS (10) +CHRS (8) +C 
HR$ (9) +"AH”+CHRS (13)+” ":D=1 
15 TP$(0)="BAS":TPS(1)="DAD":TP 
S(2)="LMA”:TPS(3)="TXT” 

20 CLS:PRINT €13,"menu” 

30 PRINT 6105,"cARREGAR SETOR" 
PRINT €169,"vER/EDITAR SETOR” 
RINT 6233," sALVAR SETOR”:PRINT 
8297," dIRETORIO” 


40 R$=INKEYS:IF R$="" THEN 40 
50 R=INSTR("CUSD",R$):IF R=0 
EN 40 

60 IF SL=0 AND (R=2 OR R=3) THEN 
PRINT:PRINT"NENHUM SETOR CARRE 
GADO”: FOR K=1 TO 2000:NEXT:GOTO 
20 

70 CLS:ON R GOSUB 1000,2000,300 
0,4000 

80 coro 20 


218 V$=CHRS (VAL ("&H"+HS)) :P=H+Y 
*11+X 

1000 SL=1:GOSUB 5000 

1010 DSKIS D S,AS(0) ,AS(1) 
1020 RETURN 

2000 F=1:H=1:CLS:PRINT"aSCII OU 
hEX ?” 

2010 RS=INKEYS:IF R$<>"A” 

$<>"H” THEN 2010 

2020 AZ=0:IF R$="A” THEN AZ=1 
2030 IF F=0 THEN 2050 

2040 PK=96:CP=1535:IF AZ=1 GOSU 
B 2320 ELSE GOSUB 2280 

2050 POKE CP, PK:CP=1024+y*32+%* 
: PK=PEEK (CP) :POKE CP,239 

2060 PRINT €321,"BYTE SUPERIOR= 
";H 
2070 
70 


AND R 


R$=INKEYS:IF R$="" THEN 20 


2080 R=INSTR(C$S,R$):IF R=0 THEN 
2070 

2090 F=0:0N R GOTO 2100,2110,21 
20,2130,2140,2150,2160,2170 
2100 Y=Y-1:GoTo 2210 

2110 Y=Y+1:GOTO 2210 

2120 X=X-1:GoTO 2210 

2130 X=X+1:GOTO 2210 

2140 AZ=1:GOTO 2040 

2150 AZ= OTO 2040 

2160 RETURN 

2170 PRINT €384,"NOVO CONTEUDO 
(HEX) ";: INPUT HS 

2180 VS=CHRS (VAL ("&H"+HS)) :P=H+ 
Y*11+X 

2190 MIDS(AS(P/128),P+128*(P>12 
8), 1)=vs 

2200 F=1:GOTO 2030 

2210 IF Y<O THEN H=H-44:Y=0 
2220 IF Y>7 THEN H=H+44:Y=7 
2230 IF X<O THEN X=10:Y=y-1 

Y<O THEN H=H-11:Y=0:F=1 
2240 IF X>10 THEN X= 
Y>7 THEN Y=7:H=H+11:F=] 
2250 IF H= 10 OR H=-43 THEN 

: :ELSE IF H<l THEN H=1:F=1 
2260 IF H=179 OR H=212 THEN H=1 
68:F=0 ELSE IF H>168 THEN H=168 
:P 


=Y+1: 


sPsl 
2270 GoTo 2030 
2280 CLS:FOR J=H TO H+87 STEP 1 


1:FOR TT=0 TO 10 

2290 PRINT RIGHTS ("0"+HEXS (ASC( 
MIDS (AS (J/128), J+TT+128* ((J+TT) 
>128)))),2);" "; 

2300 NEXT:PRINT CHRS$(8);:NEXT 
2310 RETURN 

2320 cL OR J=H TO H+87 STEP 1 
1:FOR TT=0 TO 10 

2330 G=ASC (MIDS (AS (J/128), J+TT+ 
128*((J+TT)>128))):IF G<32 THEN 
2350 

2340 PRINT " 
o 2360 

2350 PRINT LEFT$("0"+HEXS(G),2) 


";CHRS(G);” ";:GOT 


2360 NEXT:PRINT CHRS (8); :NEX 
ETURN 

3000 CLS:PRINT"SALVAR NO MESMO 
SETOR (S/N) 27” 

3010 RS=INKEYS:IF RS<>"S” AND R 
S<>"N” THEN 3010 
3020 IF R$="S” THEN 
030 CLS:GOSUB 5000 


3040 
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3040 PRINT:PRINT"VOCE TEM CERTE 


Za (S/N) ?” 

3050 RS=INKEYS:IF R$<>"S” AND R 
S<>"N” THEN 3050 

3060 IF R$="N” THEN RETURN 

3070 DSKOS D,T,S,AS(0) ,AS(1) 
3080 RETURN 

4000 GOSUB 5050 

4010 PRINT 4PR,TAB(14);" INICIO 
No.” 

4020 PRINT 4PR,” NOME EXT T 
IPO DEL” 


4030 FOR J=0 TO 8:DSKIS D,17,J+ 
3,DS(0),DS(1) 

4040 FOR K=1 TO 256 STEP 32 
4050 GOSUB 6000 

4060 IF ASC(VS)=255 THEN K=256: 
J=8:GOTO 4120 

4065 IF ASC(VS)=0 THEN MIDS(VS, 
1,1)=" ":DT=1 

4070 PRINT 4PR,MIDS(V$,1,8); TAB 
(9);".";MIDS(V$,9,3); 

4080 TP=VAL (MIDS (V$,11,1)) 

4100 PRINT 4PR,TAB(15); TPS(TP); 
TAB (20) CHRS (42*DT) 

4110 DT=0 

4120 NEXT K,J:R$=INKEY$:IF PR=- 
2 THEN 4140 

4130 R$=INKEYS:IF R$="" THEN 41 
30 

4140 RETURN 


5000 INPUT"NUMERO DA TRILHA (0- 
34) ";T 

5010 INPUT"NUMERO DO SETOR (1-1 
8) ";s 

5020 INPUT"NUMERO DO DRIVE (0-3 
)";D 


5030 IF D>3 OR DXO OR T>34 OR T 
<0 OR S>18 OR S<1l THEN 5000 
5040 RETURN 

5050 PR=0:IF(PEEK(150))<>1 THEN 
RETURN 

5060 PRINT"SAIDA PARA A IMPRESS 
ORA (S/N)?” 

5070 RS$=INKEYS:IF R$<>"S” 
S<>"N” THEN 5070 

5080 IF R$="S” THEN PR=- 
5090 RETURN 

6000 VS=MIDS (DS (K/128) ,K+128*(K 
>128),32):IF LEN(V$)<32 THEN VS 
=VS+MIDS (DS (1+K/128),1,32-LEN(V 
s)) 

6010 RETURN 


RETA 


Carregue o programa na memória e 
escolha o disco no qual você vai traba- 
lhar. Enquanto está aprendendo, con- 
vém utilizar um disquete que não con- 
tenha dados importantes. 

Digitando RUN, você terá quatro op- 
ções: Carregar setor (C), Ver/editar s 
tor (V), Salvar setor (S), Diretório (D). 
Pressione D para obter uma listagem de- 
talhada dos arquivos do disco, incluin- 
do os que foram apagados anteriormen- 
te. Estes estarão marcados com um as- 
terisco na coluna DEL. Lembre-se de 
que a inclusão do nome de um arquivo 


AND R 











no diretório não garante que ele esteja 
disponível no disco — os blocos usados 
por ele podem ter sido reutilizados por 
um outro arquivo. Se você tem uma im- 
pressora conectada ao Micro, digite PO- 
KE 150,1 antes de executar o programa 
a opção de imprimir o diretório lhe se- 
rá oferecida. 

Em seguida, digite a tecla C para car- 
regar um setor. Tente primeiro o dir 
tório, pedindo a trilha 17, setor 3. Dig 
te V para visualizar os dados. Pressio- 
nando A ou H, você poderá obter, a 
qualquer momento, os dados no forma- 
to ASCII ou hexadecimal. O primeiro 
é o mais conveniente para a identifica- 








ção de nomes de arquivos e linhas BA- 
SIC. O segundo deve ser usado quando 
se quer encontrar os valores hexadeci- 
mais de um determinado byte. 

As setas movem o cursor .para o pon- 
to que se desejar. Para alterar um va- 
lor, pressione a barra de espaços e for- 
neça o novo byte, sempre em hexadeci- 
mal. Note que apenas uma parte do se- 
tor é exibida. À medida que se movi- 
menta o cursor para baixo, a tela vai ro- 
lando e mostrando o que resta. 

Ao terminar a edição de um setor, 
pode-se gravá-lo usando a opção S do 
menu. Entre as informações solicitadas 
pelo programa... e pronto! 

















UMA TÉCNICA MISTERIOSA? 

À MÁQUINA INTELIGENTE 
PROCEDIMENTOS RECURSIVOS 
LIMITAÇÕES 

COMO EVITAR ERROS 


TÉCNICAS 
DE RECURSÃO 

















Se seu programa possui sub-rotinas 
que são chamadas repetidamente, 

é bem provável que as técnicas de 
recursão possam torná-lo mais rápido 
e eficiente. Veja como utilizá-las. 


A construção de um programa con- 
siste, essencialmente, em achar a melhor 
solução para um determinado problema 
através de uma série de comandos. À 
medida que ganha experiência, o pro- 
gramador aprende que o melhor cami- 
nho para isso é dividir o problema prin- 
cipal em partes menores. Tal método, 
no entanto, pode virar um pesadelo. 
Muitas vezes, ao tentar resolver uma 
etapa do processo, esbarra em outro 
processo e, quando resolve este, surge 
ainda outro e assim por diante. Em cer- 
to momento, o programador pensa em 
desistir, pois imagina estar andando em 
um verdadeiro círculo vicioso. 

Mas um microcomputador não es- 
moreceria tão facilmente: para casos 
desse tipo, em que os problemas pare- 
cem sair uns dos outros, existem técni- 
cas avançadas de programação, as cha- 
madas técnicas de recursão. 


UEL 


Geralmente, programadores inician- 
tes consideram a recursão uma ferra- 


menta complexa e até mesmo misterio- 
sa. A grande dificuldade está na com- 
preensão da própria listagem de um pro- 
grama desse tipo; até mesmo os fluxo- 
gramas mais didáticos parecem obscu- 
ros quando representam processos re- 
cursivos. Apesar de tudo, o princípio 
básico dessa técnica não é tão com- 
plicado. 

Na matemática, a palavra recursão é 
utilizada para designar a repetição de 
uma determinada operação. Em inf 
mática, porém, ela adquire um signi 
cado específico. Basicamente, a recur- 
são é o chamamento sucessivo de uma 
sub-rotina ou de um procedimento, após 
serem estabelecidos alguns parâmetros 
iniciais. Depois de acionada, a sub-ro- 
tina — ou procedimento — chama a si 
mesma, repetidamente, atualizando os 
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parâmetros iniciais a cada vez, até que 
uma certa condição, previamente esta- 
belecida, seja alcancada. 


CI tos 


Imaginemos a seguinte situação: um 
motorista se encontra em uma grande ci- 
dade desconhecida e precisa ir do lugar 
A para o lugar B. Embora tenha o ma- 
pa da cidade, acha muito difícil ir dire- 
tamente ao local desejado. Decide en- 
tão dividir o itinerário em vários tre- 
chos, estudando um por vez. Escolhe, 
assim, um lugar C, em uma posição in- 
termediária. Analisa o trajeto entre A 
eCese dirige para lá. 

Chegando em C, o motorista avalia 
a possibilidade de ir diretamente até B 





Caso isso lhe pareça complicado, pro- 
cura uma outra posição intermediária, 
D. O processo se repete até que ele atinja 
seu destino. 

Esse exemplo demonstra o princípio 
básico da recursão, tal como é aplicada 
em programação: a solução de um pro- 
blema é obtida pela sua subdivisão em 
problemas menores ou mais fáceis. 

Assim que o programa alcança um 
novo nível de recursão, torna-se neces- 
sário armazenar as informações que fo- 
ram conseguidas no nível anterior, pa- 
ra recuperá-las no passo seguinte. Ao 
início de cada nível, um novo conjunto 
de parâmetros é montado e, por meio 
de um teste, verifica-se se tal etapa che- 
gou ao fim. Sem esse teste, O processo 
nunca terminaria. 

Para observar o funcionamento des- 


sa técnica, execute o próximo programa. 
Ele imprime todos os valores inteiros 
positivos de N até 1. 


20 PRINT INVERSE I;TAB 1;" 1 
NTEIROS POSITIVOS DE N ATE 1" 
30 INPUT "DIGITE O INTEIRO A 
PARTIR DO QUAL VOCE QUER €C 
ONTAR REGREDIN- DO ATE 1 (0 P 





ARA SAIR) ";N: LET N=INT N: 
IF N<l THEN STOP 

40 GOSUB 80 

50 Goto 30 

80 IF N=0 THEN RETURN 

90 PRINT ;N;” "; 

100 LET N=N GOSsUB 80 

110 RETURN 

10 cLS 

20 PRINT "INTEIROS POSITIVOS DE 
NAI” 


30 PRINT:PRINT: INPUT"DIGITE O V 
ALOR INTEIRO A PARTIR DO QUAL V 
OCE QUER REGREDIR ATE 1(0 OU N 
EGATIVO PARA TERMINAR) ";N:N=IN 
T(N):IF N<l THEN END 

40 GOSUB 80 

50 GoTo 30 

80 IF N=0 THEN RETURN 

90 PRINT N;”,"; 

100 N=N-1:GOSUB 80 

10 RETURN 










10 
20 


HOME 


PRINT TAB( 7)" INTEIROS POS 








ITIVOS DE 1 AN” 

30 PRINT : PRINT : INPUT "DIGI 
TE UM VALOR INTEIRO PARA A CONT 
AGEM REGRESSIVA (1-23 E O OU ME 
NOS PARA SAIR) ";N:N = INT (N) 
: IF N< 1 THEN END 

40 GOSUB 80 

50 coro 30 

BO IF N= O THEN RETURN 

90 PRINT N;”,”; 

100 N = N- 1: GOSUB 80 

110 RETURN 


ya 


10 cLs 

20 PRINT TAB(5) 
IVOS DE 1 A N” 
30 PRINT:PRINT: INPUT"DIGITE O N 
UMERO PARA A CONTAGEM REGRES-SI 
VA (0 OU MENOS PARA SAIR)" ;N:N= 
INT(N):IF N<1 THEN END 

40 GOSUB 80 

50 GOTO 30 

80 IF N=0 THEN RETURN 

90 PRINT N;”,"; 
100 N=N-1:GOSUB 80 
110 RETURN 


"INTEIROS POSIT 


O programa permite que você intro- 
duza um valor inteiro e, a partir dele, 
faz uma contagem regressiva até 1. 
Qualquer valor menor que 1 interrom- 
pe o programa. No Apple e no TK-2000, 
valores maiores que 23 não funcionarão, 
pois esses micros podem memorizar ape- 
nas 23 desvios para uma sub-rotina. 

A linha 40 chama a sub-rotina recur- 
siva. A primeira linha desta verifica se 
a tarefa foi completamente executada. 
Esse teste é essencial para o término de 
todo o processo. 

No primeiro nível da recursão, a va- 
riável N possui o valor introduzido por 
você. Ele é impresso pela linha 90. O se- 
gundo nível é inicializado pela linha 100, 
que reduz o valor de N em uma unida- 
de e chama a sub-rotina novamente, 
com o valor de N já alterado. O progra- 
ma alterna-se, assim, repetidamente, en- 
tre as linhas 80 e 100. 

Quando N alcança o valor O (na li- 
nha 100), o programa é desviado, como 
de costume, para a linha 80, onde en- 
contra o comando RETURN, que o faz 
retornar da sub-rotina chamada na linha 
100. A próxima instrução, na linha 110, 
também é um comando RETURN, que, 
















































desta vez, faz o programa retornar da 
sub-rotina chamada na linha 40. A linha 
50 executa o programa novamente. 
Note que quando o programa termi- 
na, a variável N contém o valor 0, atri- 
buído na linha 100. Mas a linha 90 
nunca imprime esse valor. Para colo- 
car o último valor impresso na variá- 
vel N, você poderia acrescentar a linha 
105 com o comando N=N+1 (LET 
N=N+1, para o Spectrum). Desse modo, 
N conteria sempre o último valor impresso. 


[ana ABUSA 


Algumas outras linguagens, como o 
PASCAL, incluem o que se chama de 
procedimento (procedure). Trata-se de 
um conjunto de linhas definidas em uma 
certa parte do programa — como uma 
sub-rotina — que recebe um nome. Di- 
ferentemente das sub-rotinas, um pro- 
cedimento é chamado através desse no- 
me. Quando se define um procedimen- 
to, indicam-se também as variáveis que, 
após seu término, retornarão ao estado 
inicial, Este é um bom expediente na 
construção de processos recursivos. 





Os tipos de BASIC com que traba- 
lhamos não permitem que uma variável 
assuma um valor e, ao sair da sub-ro- 
tina, retorne ao valor inicial sem a in- 
terferência de um comando. Assim, so- 
mos obrigados a restabelecer seus valo- 
res iniciais antes de iniciar outra sub- 
rotina. O programa a seguir demonstra 
como contornar esse problema. 


10 DIM N(34): 
20 CLS 


DIM A(34) 





30 PRINT TAB 6; INVERSE 1;"C 
ALCULO DE FATORIAL” 





40 INPUT "DIGITE NUMERO PARA 
FATORIAL (1-33, OU O PARA 
SAIR)" ;NU 


50 IF NU>33 OR NU<X>INT (NU) 
OR NU<XO THEN RUN 

60 IF NU=0 THEN STOP 

70 LET LE=1: LET N(LE)=NU: 
LET AN=NU 

80 GOSUB 150 


90 PRINT AN;"! = ";A(1): 
PRINT : GOTO 40 

150 IF N(LE)=0 THEN LET A(LE) 
=1: GOTO 180 


160 LET LE=LE+1: LET N(LE)=N(L 
E-1)-1: GOSUB 150 
170 LET LE=LE-1: 
E+I)*N(LE) 
180 RETURN 


LET A(LE)=A(L 





10 DIM N(34),A(34) 
20 CLS 












30 PRINT €6,"CALCULO DE FATORIA 
L” 


40 INPUT"DIGITE O NUMERO PARA F 

ATORIAL  (1-33 OU O PARA SAIR) 
"NU 

50 IF NU>33 OR NUS>INT(NU) OR N 

U<O THEN 20 

60 IF NU=0 THEN END 

70 LE=1:N(LE)=NU:AN=NU 

80 GOSUB 150 

90 PRINT AN”! 

TO 40 

150 IF N(LE)=0 THEN A(LE)=1:GOT 

o 180 

160 LE=LE+I:N(LE)=N(LE-1)-1:G0S 

UB 150 

170 LE=LE-1:A(LE)=A(LE+1) *N(LE) 

180 RETURN 


[JL] 


10 DIM N(34),A(34) 

20 HOME 

30 PRINT TAB( 10)"CALCULO DE 
FATORIAIS” 

40 PRINT : INPUT "DIGITE O NUM 
ERO FATORIAL (1-22 OU O PARASAI 
R) "GNU 


= ";A(1):PRINT:GO 


50 IF NU > 22 ORNU< > INT 
(NU) OR NU < O THEN 20 

60 IF NU = O THEN END 

70 LE = 1:N(LE) = NU:AN = NU 


B0 GOSUB 150 





90 PRINT AN”! = ";A(1): PRINT 
: GoTO 40 
150 IF N(LE) 
1: Goto 180 
160 LE = LE + 1:N(LE) 
1) - 1: GOSUB 150 
170 LE = LE - 1:A(LE) 
1) * N(LE) 

180 RETURN 


7 | 


10 DIM N(34),A(34) | 


= O THEN A(LE) = 
= N(LE - 


= A(LE + | 


20 CLS 

30 PRINT TAB(9) "CALCULO DE FAT 
ORIAIS” 
40 PRINT: INPUT” DIGITE O NUMERO 
FATORIAL (1-33 E O OU MENOS PA 
RA SAIR) ";NU 

50 IF NU>33 OR NU<S>INT(NU) OR N 
USO THEN 20 

60 IF NU=0 THEN END 

70 LE=1:N(LE)=NU:AN=NU 

80 GOSUB 150 

90 PRINT:PRINT AN;"! 
RINT:GOTO 40 

150 IF N(LE)=0 THEN A(LE)=1:GOT 
o 180 

160 LE=LE+1:N(LE)=N(LE-1)-1:G0S 
UB 150 

170 LE=LE-1:A(LE)=A(LE+I)AN(LE) 
180 RETURN 


-"GAC(I):P 


Execute o programa e introduza um 
valor qualquer. Lembre-se de que valo- 
res maiores que 22 não funcionarão no 
Apple, nem no TK-2000. 

O programa calcula o fatorial do nú- 
mero que você digitou e o imprime na 
tela. O fatorial de um número é o resul- 
tado da multiplicação, entre si, de todos 
os números inteiros menores que ele e 
ele mesmo. Por exemplo, 5 fatorial 
(escreve-se S!) éiguala 1x 2x 3x 4x 
5, ou seja, 120. O cálculo de fatoriais 
geralmente é necessário em aplicações 
estatísticas. Um método rápido de exe- 
cutá-lo será sempre muito útil. 

Inicialmente, o programa dimensio- 
na algumas variáveis (linha 10), em nú- 
mero suficiente para gerar o fatorial má- 
ximo. A variável N terá como índice o 
nível da recursão (LE) — N(LE). 

A estrutura principal do programa 
começa na linha 70, onde o nível é ini- 
cializado em 1, Nessa mesma linha, o 
número que você introduziu — supo- 
nhamos que seja S — é atribuído a N(1) 
ea AN (variável que irá acumular a res- 
posta). A linha 80 chama então o pri- 
meiro nível da recursão. A primeira li- 
nha da rotina de recursão (linha 150) ve- 
rifica se a tarefa já chegou ao fim, ou 
seja, se N(LE)=0. Como N(LE) ainda 
é5, o programa passa para a linha 160, 
que incrementa o nível (para 2), estabe- 
lece como número corrente o 4 e chama 
a sub-rotina recursiva mais uma vez. 
Quando a linha 160 incrementar o va- 
lor do nível para 6 e decrementar o nú- 
mero corrente para 0, a linha 150 detec- 
tará esse último valor atribuindo 1 a 
N(6) e desviando o programa para a li- 
nha 180. Encontrando um RETURN, a 
execução passará para a linha 170, que 
foi a última a chamar a sub-rotina. Es- 
sa linha reduzirá o valor do nível para 
Se A(5) passará a ter o valor de A(6) 
vezes A(5). Com isso, atribui-se a A(5) 
ovalor de 1x 1, ou seja, 1. A linha 180 
devolve, então, o controle para o final 
da linha 150, onde A(4) assume o valor 
de A(5) vezes A(4). Desse modo, será 
atribuído ao nível da recursão o valor 
1 (calculado acima) vezes 2. 

O laço irá se repetir sempre que o 
GOSUB da linha 160 for chamado. 
Quando o laço estiver completo, LE se- 
rá 1 e o último RETURN apontará p: 
ra a linha 80. A próxima instrução (| 
nha 90) imprimirá então o resultado: 
120. 


LUAS 


Além do problema com as variáveis, 
que não ocorre com os procedimentos, 
os tipos de BASIC com os quais traba- 





lhamos apresentam uma limitação quan- 
to ao número de vezes que uma sub- 
rotina pode chamar outra. A cada cha- 
mada o sistema precisa guardar ha me- 
mória a posição de onde ela foi feita, o 
que requer a utilização de um pontei- 
ro na pilha interna. É por esse motivo 
que o Apple e o TK-2000 não podem 
calcular fatoriais maiores que 22. Já o 
limite de 33 níveis para outros micros 
deve-se simplesmente à capacidade de 
armazenamento de números. O fatorial 
de 34 excede 1.7 x 10 1 38, o máximo 
que um computador pode manipular. 


aU 


Para manter seu programa dentro 
dos limites do micro e evitar uma “'pa- 
ne”, você deve saber como ele se com- 
porta desde o primeiro nível da recur- 
são. Em geral, utiliza-se como teste uma 
informação inicial que culminará em 
uma resposta já esperada. Para facili- 
tar o trabalho, você pode também con- 
siderar a rotina recursiva como um cer- 
to número de sub-rotinas em seqiiência. 
Note que um desvio condicional para 
fora da sub-rotina é desaconselhável, 
pois o ponteiro que marca a volta do 
GOSUB ficaria desorientado. 

Quando você estiver escrevendo uma 
sub-rotina recursiva, procure começar 
sempre com um teste de saída. A fun- 
ção desse teste é decidir se o problema 
(caracterizado pelos parâmetros iniciais) 
pode ser resolvido diretamente, sem a 
necessidade de subdivisões. 

Antes de começar o programa, pla- 
neje com cuidado o que deseja que a 
sub-rotina faça. E, quando já estiver es- 
crevendo o programa, não se preocupe 
com a segiiência exata da execução, le- 
vando em conta apenas dois princípios 
básicos: a condição de saída e a subdi- 
visão em problemas menores. 

Seguindo o método aqui apresenta- 
do, você será capaz de aplicar a recur- 
são aos seus programas sem maiores di- 
ficuldades. Aqui está um exemplo de co- 
mo essa técnica pode melhorá-los,tor- 
nando-os assim mais rápidos e com- 
pactos. 


10 BORDER 1: INK 7: PAPER 1: 
cLs 
20 PRINT TAB 11; INVERSE 1;” 


ORDENACAO ” 
30 INPUT "QUANTOS NUMEROS VOC 
E QUER ORDENAR (1-1000) 


40 IF A<1 OR A>1000 THEN 


GoTo 10 

50 DIM A(A): DIM R(2+SQR (A)) 
60 LET A(A)=100: PRINT 
TABELA DESORDENAD 
: FOR K=1 TO A-1: LET A 
“INT (RND*99): PRINT A(K); 









5: NEXT K 
70 LET L=1: LET LV=1: LET R=A 
-1: GOSUB 1000 
80 PRINT INVERSE 1;''"TABELA. 
ORDENADA :”"'*': FOR K=1 TO A- 
1: PRINT A(K E NEXT K 





90 IF INKEYS<>” ” THEN corto 


90 
100 RUN 
1000 IF R>L THEN LET I=L: LET 
J=R+1: LET V=A(L): GOTO 1010 


1005 RETURN 
1010 LET I=I+1: 
Goro 1010 
1020 LET J=J-1: 
GOTO 1020 
1030 IF J>=I THEN LET T=A(I): 
LET A(I)=A(J): LET A(J)=T: GOTO 
1010 

1040 LET T=A(L): LET A(L)=A(J): 


IF A(I)<V THEN 
IF A(J)>V THEN. 


LET A(J)=T 

1050 LET R(LV)=R: LET LU=LU+1: 
LET R=J-1: GOSUB 1000 

1060 LET LV=LV-1: LET R=R(LV): 
LET L=1: GOSUB 1000 

1070 RETURN 





10 cLs 

20 PRINT 611," ORDENACAO” 

30 PRINT: INPUT” QUANTOS NUMEROS 
VOCE QUER ORDENAR (1-10 
00) ";a 

40 IF A<l OR A>1000 THEN 10 

50 DIM A(A),R(I+SOR(A)) 

60 A(A)=100:PRINT” TABELA DESOR 
DENADA :":FOR K=0 TO A-1:A(K)=R' 
ND(99) : PRINT A(K);:NEXT:PRINT 
70 L=0:R=A-1:GOSUB 1000 

80 PRINT ” TABELA ORDENADA 
OR K=0 TO A-1:PRINT A(K);:NEXT 
90 IF INKEYS<>" ” THEN 90:ELSE 
RUN 

1000 IF R>L THEN I=L:J=R+1:V=A( 
L) ELSE RETURN 

1010 I=I+1:IF A(I)<V THEN 1010 
1020 J=J- F A(J)>V THEN 1020 
1030 IF J>=I THEN T=A(I):A(I)=A 
(J) :A(J)-T:GoTO 1010 

1040 T=A(L) :A(L)=A(J) :A(J)=T 
1050 R(LV)=R:LV=LV+1:R=J-1:GOSU 
B 1000 

1060 LV=LV-1:R=R(LV) :L=I:GOSUB 
1000 

1070 RETURN 


[JL] 


10 HOME 

20 HTAB (11): INVERSE : PRINT 
” ORDENANDO NUMEROS ”: NORMAL 
30 PRINT : INPUT ” QUANTOS NUM 
EROS A SEREM ORDENADOS ? (1-100 
0) ";a 

















40 IFA<1ORA>jl1000THENI 
o 


50 DIM A(A),R(l + SQR (A)) 

60 A(A) = 100: PRINT : PRINT ” 
NUMEROS FORA DE ORDEM :-";: FOR 
K = 0 TOA - L:A(K) = INT (99 
* BND (1)) + 1: PRINT A(K);” 
";: NEXT : PRINT 

70 L = O:LU = 0:R = À - 1: GOSU 
B 1000 

BO PRINT ” NUMEROS NA ORDEM :— 





";: FOR K = 0 TO À - 1: PRINT À 
(K);” "7: NEXT 

90 GET IS: IF IS< >" " THEN 
90 

100 RUN 

1000 IF R>LTHENI=L:J=R 


+ 1:V = A(L): GOTO 1010 
1005 RETURN 


1010 1 = 1 + 1: IFA(I) <V THE 
N 1010 
1020 J = J- 1: IF A(J) > V THE 
N 1020 


1030 IF J> = THENT=ãA(I) 
:A(I) = A(J):A(J) = T: GOTO 101 


o 

1040 T = A(L):A(L) = A(JJ:A(J) 
-7 

1050 R(LV) = R:LV = LU + 1:R = 
J - 1: GOSUB 1000 

1060 LV = LU - 1:R = R(LU):L = 
I: GOSUB 1000 

1070 RETURN 


o] 


10 CLS 

20 PRINT TAB(10) "ORDENAÇÃO DE N 
UMEROS” 

30 PRINT: INPUT"QUANTOS NUMEROS 
SERAO ORDENADOS (1-1000)";A 

40 IF A<l OR A>1000 THEN 10 

50 DIMA(A).R(I+SQR(A)) 

60 A(A)=100:PRINT"NUMEROS FORA 
DE ORDEM:-":FOR K=0 TO A-1:A(K) 
=INT (RND(-TIME) *99) +1: PRINT A(K 
);: NEXT: PRINT 

70 L=0:LV=0:R=A-1:GOSUB 1000 

80 PRINT"NUMEROS ORDENADOS :” : FO 
R K=0 TO A-1:PRINT A(K);:NEXT 
90 IF INKEYS<>" " THEN 90 ELSE 
RUN 

1000 IF R>L THEN I=L:J=R+1:V=A( 
L):GOTO 1010 

1005 RETURN 

1010 I=I+1:IF A(I)<V THEN 1010 
1020 J=J-1:IF A(J)>V THEN 1020 
1030 IF J>=I THEN T=A(I):A(I)=A 
(J) :A(J)=T:GOTO 1010 

1040 T=A(L):A(L)=A(J) :A(J)=T 
1050 R(LV)=R:LVU=LV+1:R=J-1:GOSU 
B 1000 

1060 LU=LV-1:R=R(LV) :L=I:GOSUB 
1000 

1070 RETURN 


PROGRAMA DE ORDENAI 


Compare a listagem do método de or- 
denação tipo bolha do artigo da página 
468 com esta, que utiliza a recursão. 





Nosso programa não contém tantos des- 
vios condicionais do tipo IF... THEN, 
GOTO..., nem tantas variáveis. 

Inicialmente, o programa pede que 
você introduza a quantidade de núme- 
ros randômicos que serão ordenados. A 
linha 50 dimensiona a matriz A(A), que 
armazena esses números, e a matriz R, 
que irá guardar o valor das variáveis du- 
rante o processo recursivo. A linha 60 
gera e imprime os números randômicos, 
ainda fora de ordem, e a linha 70 cha- 
ma a sub-rotina recursiva para ordená- 
los. A linha 80 é responsável pela im- 
pressão final, 

O método baseia-se na junção de 
duas listas, ambas previamente subme- 
tidas a uma ordenação. A lista princi- 
pal, composta de números randômicos 
desordenados, é dividida.em duas outras 
listas (linhas 1010 e 1020). Observe que, 
na linha 1000, há um teste de saída pa- 
ra determinar o fim da recursão. Cada 
uma das listas sofre então uma ordena- 
ção parcial (linha 1030), sendo poste- 
riormente reunidas. A sub-rotina irá 
chamar a si mesma (linha 1050) até que 
a ordenação esteja completa. 

Apesar dos métodos de ordenação 
em BASIC não serem tão rápidos quan- 
to os que empregam linguagem de má- 
quina, este programa pode ser muito efi- 
ciente em tarefas menos extensas. Por 
exemplo, a ordenação de cem números, 
no Spectrum, leva mais ou menos 40 se- 
gundos; a ordenação tipo bolha nos fa- 
ria esperar mais de uma hora. 


A utilidade da recursão vai muito 
além do cálculo de fatoriais e outras 
funções matemáticas. Ela pode ser apli- 
cada na programação de jogos e na 
construção dos mais complexos gráfi- 
cos. Essa técnica também aparece em 
sistemas de inteligência artificial e no 
controle de robôs, além de ser empre- 
gada em processamento de linguagens 
(compiladores e interpretadores). 

Os jogos de estratégia, como o xa- 
drez ou os wargames, constituem uma 
outra área interessante de aplicação. O 
programa que apresentamos a seguir usa 
a recursão na simulação de um jogo 
clássico, As Torres de Hanói. 


10 BORDER 6: PAPER 6: INK O: 
cLs 
20 PRINT TAB 8; INVERSE 1 





TORRES DE HANOIL” 
30 INPUT "DIGITE O NUMERO DE 
ANEIS (2-9)D";N: IF N<2 OR N 


>9 THEN GOTO 30 





35 DIM T(3) 
36 LET A$ ) INK 2: FORM 
=21 TO 21-N STEP -1: PRINT AT 


M,7;AS;AT M, 15;AS;AT M,23;AS: 





NEXT M: INK O 
37 PRINT INK 2Z;AT 21,7;" 
T 21,15;"H :AT 21,23; 





38 FOR M=1 TO N: PRINT INK 7 
; PAPER O;AT 20-T(1),B;N+1-M: 
LET T(1)=T(1)+1: NEXT M 

39 PRINT 41:;AT 0,3;"QUALQUER 
TECLA PARA COMECAR” 
40 PAUSE O: PRINT & 
DDDDODODODDODE 
45 LET TT=2: LET TF= 
3; 









50 GOSUB 90 

70 PRINT AT 10,5;"NUMERO DE M 
OVIMENTOS=(]" ;2"N-1 

80 STOP 

90 IF N=0 THEN RETURN 

100 LET N=N-1: LET W=R: LET R= 
TT: LET TTu= GOSUB 9 
R: LET R=TT: LET TT=W 
110 GosuB 200 

120 LET W=R: LET R=TF: LET TF= 
W: GOSUB 90: LET W=R: LET R=TF 
: LET TF=W 

130 LET N=N+1: RETURN 

200 PRINT AT 20-(T(TF)-1), TE*8 
:"D”; INVERSE 1;AT 20-(T(TT)), 
TT*8;N+1: LET T(TE)=T(TE)-1: 
LET T(TT)=T(TT)+1 

210 SOUND .0l, TIAT(TT)*2 

220 RETURN 








10 CLS:DIM H(3) 

20 PRINT €8,"TORRES DE HANOI”:P 
RINT 

30 PRINT"NUMERO DE ANEIS (2-9) 
2" 

40 AS=INKEYS:IF AS<"2”" OR AS>"9 
” THEN 40 

50 N=VAL (AS) :H(0)=N:PRINT 664 
60 FOR K=0 TO 8:FOR J=0 TO 2:PR 
INT €165+K*32+J*9,CHR$S(175)+" " 
+CHRS (175) ; :NEXT J,K 

70 FOR K=0 TO 2:PRINT 6453+K*9, 
STRINGS (3,175); :NEXT 

80 FOR K=1 TO N:POKE 1478-32*K, 
49+N-K:NEXT 

90 TT=1:TF=0:R=2 

100 GOSUB 1000 

110 PRINT €65,"NUMERO DE MOVIME 
NTOS =";INT(2ºN-1) 

120 PRINT” QUALQUER TECLA PARA 
RECOMECAR” 

130 IF INKEYS="" THEN 130 

140 RUN 

1000 IF N=0 THEN RETURN 

1010 N=N-1:W=R:R=TT:TT=W:GOSUB 
1000:W=R:R=TT:TT=W 

1020 POKE 1478+9*TF-32*H(TF) ,96 
:H(TE)=H(TE)-1:H(TT)=H(TT) +: PO 
KE 1478+9*TT-32*H(TT) ,49+N 

1030 W=R:R=TF:TF=W:GOSUB 1000:W 
=R:R=TF:TF=W 

1040 N=N+1:RETURN 








10 HOME : DIM T(3) 

20 HTAB (14): INVERSE : PRINT 

"TORRE DE HANOI”: NORMAL 

30 PRINT : PRINT : INPUT ” 
NUMERO DE ANEIS (2-9): ";N 

40 IF N<20RN>ÕOS9 THEN RUN 


50 FORJ = 1 TO3: INVERSE : V 
TAB (16): HTAB (J * 10): PRINT 
J: NEXT : NORMAL 

60 FORI = 1 TON: HTAB (10): 


VTAB (16 - I): PRINT N - I: NEX 


71 

70 T(1) = 15 - N:T(2) = 15:T(3) 
-15 

80 TT = 2:TF = 1:R = 3: GOSUB 1 
10 

90 HTAB (14): VTAB (20): PRINT 
"MOVIMENTOS=";2 " N-1 








100 END 

110 IF N= O THEN RETURN 

120 =R:R=TTTT= 
W: -R:ReTTTT= 
w 

130 GOSUB 160 

140 W = R:R = TE:TF = W: GOSUB 
110:W = R:R = TF:TF = q 

150 N = N + 1: RETURN 

160 T(TF) = T(TF) + 1: HTAB (TF 
* 10): VTAB (T(TF)): PRINT” ” 
170 HTAB (TT * 10): VTAB (T(TT 
)): PRINT N:T(TT) = T(TT) - 1 


180 RETURN 


| 


10 KEY OFF:CLS:DIM T(3) 
20 PRINT TAB(13)"TORRE DE HANÓI 


30 PRINT:PRINT: INPUT” 
ANEIS (2-9): ";N 

40 IF N<2 OR N>9 THEN RUN 

50 FOR I=1 TO N:LOCATE 10,16-I: 
PRINT N-I:NEXT I 

60 T(1)=15-N:T(2)=15:T(3)=15 

70 TT=2:TF=1:R=3:GOSUB 100 

B0 LOCATE 14,20:PRINT” MOVIMENT 
08=";2"N-1 

90 END 

100 IF N=0 THEN RETURN 

110 N=N- =R:R=TT:TT=W:GOSUB 1 
00:W=R:R=TT:TT=W 

120 GOSUB 150 

130 W=R:R=TF:TF=W:GOSUB 100:W=R 
:ReTF:TF=W 

140 N=N+1:RETURN 

150 T(TE)=T(TF)+1:LOCATE TFE*10, 
T(TE):PRINT” 

160 LOCATE TT*IO,T(TT):PRINT N: 
T(TT)=T(TT)-1 

170 RETURN 


NUMERO DE 








Quando o jogo começa, vários discos - 


de diâmetros diferentes acham-se empi- 
lhados sobre a primeira de três varetas 
montadas sobre o tabuleiro. O objetivo 
é passar todos os discos para a segunda 


vareta, movendo um por vez e sem dei- 
xar um disco maior sobre um menor. A 
terceira vareta serve como apoio tempo- 
rário durante O processo. 

O computador mostrará uma simu- 
lação animada, pedindo, inicialmente, 
o número de discos que sairão da p 
meira vareta, A transferência destes se- 
rá bastante rápida, o que dificulta a 
sualização dos movimentos. Caso quei- 
ra observar melhor o processo, faça as 
modificações que se seguem. Para o 
Spectrum, introduza esta linha: 








215 PAUSE O 


Para o TRS-Color, adicione este co- 
mando ao final da linha 1020: 


: SOUND 50+H (TT) 410,12 
No Apple e no TK-2000, acrescente: 


175 FOR I=1 TO 800:NEXT 

Para o MSX, adicione esta linha: 
165 BEEP:FOR I=1 TO 800:NEXT 

O programa é semelhante aos ante- 
riores. A rotina recursiva executa cada 


dy ENE CA 
e 








As Torres de Hanói e seus nove discos. 


movimento sucessivamente, até que to- 
dos os discos estejam na segunda vare- 
ta. No fim, o computador também exi- 
be o total de movimentos realizados. 
Apesar de poderosa, a recursão po- 
de ser inconveniente quando há uma 
grande limitação de memória, rouban- 
do mais espaço e mais tempo do que o 
necessário. Porém, se não há tal impe- 
dimento e se em seu programa uma sub- 
rotina é chamada mais de duas vezes, 
procure aperfeiçoá-lo com essa técnica. 









































AVALANCHE: 
PONTOS GANHOS 


Nenhum outro aventureiro conheceu 
tantos infortúnios quanto Willie. Nos- 
so personagem já experimentou até a 
morte e a descida para o inferno. Mere- 
ce, agora, uma recompensa: finalmen- 
te, ele conseguirá alcançar o topo da 
montanha e recuperar mais uma parte 
do lanche perdido, conquistando, assim, 
alguns pontos no placar. 


A pequena rotina inicial executa a 
melodia da recompensa, coloca Willie 
no próximo nível, aumenta a velocida- 
de do jogo e incrementa o placar. 


10 REM org 59788 

20 REM rwd ld de,523 
30 REM ld h1,806 
40 REM call 949 

SO REM ld a, (57344) 
60 REM inc a 

70 REM res 2,a 

80 REM ld (57344) ,a 
90 REM 1d a, (58732) 
100 REM dec'a 

110 REM ld (58732) ,a 
120 REM 1d a,2 

130 REM ld b,5 

140 REM call 59900 
150 REM 5p 58601 


As três primeiras instruções, encar- 
regadas da música, usam a rotina BEE- 
PER no endereço 949 da ROM. Os pa- 


râmetros da duração e da tonalidade são 
fornecidos pelo método usual, através 
dos pares de registros DE e HL. 


onda oo) 


O nível de dificuldade do jogo é car- 
regado da variável correspondente, em 
57334, para o acumulador. O conteúdo 
do acumulador é em seguida incremen- 
tado, Precisamos, porém, impedir que 
seu valor seja maior do que 3, já que 
existem só quatro níveis de dificuldade. 
Para isso, usamos a instrução res 2, à 
que ajusta com 0 o bit 2 do acumula- 
dor. Quando o valor deste chega a 4, o 
bit 2 é colocado em 0. O conteúdo do 
acumulador volta, assim, a 0, trazendo 
o jogo para o primeiro nível. 

O resultado dessa operação é arma- 
zenado no endereço 57334, onde será 
utilizado ao se ajustar o jogo. 


RdaR aa 


O valor do atraso do jogo — que fi- 
ca no endereço 58732 — é carregado no 
acumulador, decrementado e armazena- 
do de volta em 58732, Aceleramos, as- 
sim, O jogo, uma vez que o tempo gas- 
to pelo processador no laço de atraso da 
rotina principal diminui. 

O atraso foi originalmente ajustado 


Nem tudo é desastre no caminho 

de Willie. Para que não se desespere 
totalmente, às vezes é recompensado, 
conseguindo chegar ao topo da 
montanha e recuperar seu lanche. 





com 50. Como Willie não chegará à re- 
compensa mais do que cinquenta vezes, 
o jogo se tornará cada vez mais rápido 
— e, portanto, mais difícil, Cada vez 
que você enfrentar os mesmos quatro ní- 
veis, eles estarão mais rápidos. 


USAS 


Por ter alcançado o prêmio, Willie re- 
cebe mais 500 pontos. Para isso, chama- 
mos a rotina do escore no endereço 
58900 e fornecemos os parâmetros nos 
registros A e B. 

O valor 2 colocado em A especifica 
o segundo digito a partir da esquerda — 
o das centenas —, que será incrementa- 
do. O valor 5 em B informa à rotina o 
número de vezes que esse dígito deve ser 
aumentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. 

Em seguida, o processador volta pa- 
ra a rotina de nova vida — rotulada nlv 
—, em 58601, e coloca nosso persona- 
gem na base da encosta. 


O PLACAR 


A pequena rotina apresentada a se- 
guir acerta o placar de Willie quando ele 
alcança uma recompensa ou escala uma 
outra parte da encosta. 

























a) 


10 REM 

, 20 REM 
) 30 REM 
40 REM 
50 REM 

60 REM 

70 REM 

80 REM 

| 90 REM 
100 REM 

110 REM 

120 REM 

130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
; 200 REM 
210 REM 


A posição de memória 57337 corres- 
ponde ao início da variável do escore, 
que é carregada com O pela rotina de ini- 








org 59900 

scn ld ix,57337 
ld d,0 

ld e,a 

add ix,de 

scr push ix 
call sdi 

pop ix 

dijnz scr 

call 58939 

ret 

sdi ld a, (1x+0) 
inc a 

cp 10 

3r nz,sno 

ld a,0 

ld (ix+0),a 
dec ix 

àr sdi 

sno ld (ix+0),a 
ret 








NÍVEL DE DIFICULDADE 





O PRÊMIO 




















n 

m FUNDO MUSICAL IM CONTAGEM DE PONTOS 

mn ACELERAÇÃO DO RITMO EM EXIBIÇÃO DO PLACAR 
DO JOGO E ALTERAÇÃO DOS DÍGITOS 

m WILLIE ALCANÇA E DE VOLTA AO SOPÉ 














cialização dada no artigo da página 995. 
O registro D é carregado com 0 e E, com 
o conteúdo do acumulador. Lembre-se 
de que o acumulador carrega o número 
de coluna quando o processador entra 


nesta rotina, 


O conteúdo do par DE é adicionado 
ao conteúdo de IX e o resultado perma- 





















nece em IX. Isso faz com que o aponta- 
dor de dados percorra os dígitos arma- 
zenados a partir de 57337, até chegar ao 
especificado pelo conteúdo de A. A po- 
sição é temporariamente armazenada, 
colocando-se o conteúdo de IX na pilha. 
A rotina sdi é chamada. 


RIA A 


A rotina sdi é a que trata dos dígitos. 
Ela começa carregando o acumulador 
com o dígito apontado por IX, O des- 
locamento do O é necessário aqui por 
causa do formato da instrução. 

O dígito é então incrementado e com- 
parado com 10. Se ele for 10, será pre- 
ciso incrementar também no próximo 
dígito. Caso contrário — ou seja, se O 
primeiro dígito ainda não foi incremen- 
tado até 10 —, a instrução jr nz manda 
o processador para o rótulo sno, que 
volta a armazenar o dígito incrementa- 
do na posição de onde veio. 

Se o dígito que você está alterando foi 
incrementado até 10, o salto não ocor- 
re-e o processador continua com a pró- 
xima instrução. O valor O é armazena- 
do no dígito apropriado. Em seguida, 
IX é decrementado, passando a apon- 
tar para o dígito imediatamente à es- 
querda. A instrução jr sdi manda então 
o processador de volta para sdi, inician- 
do novamente a rotina de incremento no 
próximo dígito. 

Se este foi incrementado até 10, o 
processador continua no laço. Mas, ce- 
do ou tarde, um dígito que não chegou 
a 10 será encontrado. O processador irá 
então para sno, armazenando o último 
dígito e retornando para o lugar da ro- 
tina ser de onde sdi foi chamada. 


UNESA 


Quando o processador retorna da ro- 
tina, o apontador IX é recuperado da pi- 
lha outra vez. Você pode agora perce- 
ber por que precisamos armazená-lo ali: 
se o dígito foi incrementado até.10, sdi 
terá deslocado o apontador IX para o 
dígito seguinte; caso você tente incre- 
mentá-lo mais uma vez, irá alterar o dí- 
gito errado. 

O laço desta parte da rotina é fecha- 
do por uma instrução djnz, que decre- 
menta o conteúdo de B até zerá-lo. Co- 
mo você deve se lembrar, B carrega o 
número de vezes que o dígito do escore 
tem que ser incrementado quando o pro- 
cessador entra na rotina. 

O processador continua no laço atua- 
lizando o escore o número de vezes ini- 

EM cialmente especificado por B. Quando 








B chega a 0, a rotina de impressão em 
58939 é chamada, imprimindo o novo 
escore na tela. 

Em seguida, o processador retorna. 


Esta pequena rotina executa a melo- 
dia da recompensa, coloca Willie no 
próximo nível, acelera o jogo e acrescen- 
ta pontos no placar. 


10 oRG 20721 

20 RWD LDA 4255 
30 LDX 4150 

40 JSR SOUND 
50 LDA 18238 
60 INCA 

70 ANDA 43 





47 CODIGO DEMÁQUINA 47 


80 STA 18238 
90 DEC DLL+1 


100 LDB 45 

110 LDA 43 

120 JSR SCI 

130 LBRA NLV 

140 SCI EXG A,B 
150 SCT LDX 418240 
160 ABX 

170 PSHS A,X 

180 JSR SDI 

190 PULS A,X 

200 DECA 

210 BNE SCT 

220 JSR PRSC 

230 RTS 

240 SDI LDA,X 
1250 INCA 

[260 cMPA 410 

270 BNE SNO 

280 CLR,X 

290 LEAX -1,X 

300 BRA SDI 

310 SNO STA ,X 
320 RTS 

330 SOUND PSHS A 
340 LDA SFFO1 

350 ANDA 4247 

360 STA SFFO1 

370 LDA SFF03 

380 ANDA 4247 

390 STA $FF03 

400 LDA $FF23 

410 ORA 48 

420 STA SFF23 
430 ORCC 4850 
440 PULS A 

450 PsHS X 

460 LDB 4252 

470 SBN STB SFF20 
480 SC LEAX -1,X 
490 BNE sC 

500 LDX,S 

510 LR $FF20 

520 SD LEAX -1,X 
530 BNE SD 

540 LDX,S 

550 DECA 

560 BNE SBN 

570 ANDCC 45AF 
580 PULS X 

590 RTS 

600 CLICK LDX 498 
610 LDA 44 

620 JSR SOUND 
630 RTS 

640 DLL EQU S51ED 
650 NLV EQU S4BF7 
660 PRSC EQU $4C77 


As três primeiras instruções, encar- 
regadas da música, usam a rotina 
SOUND, chamada pela linha 40, Os pa- 
râmetros da duração e da tonalidade são 
fornecidos pelo método usual, através 
de números carregados em A e X. 


E) 


A é carregado com o conteúdo de 
18238, a posição de armazenamento do 


nível de dificuldade. Esse valor é incre- 
mentado e a operação AND é feita com 
o número 3, Apagamos, assim, os seis 
bits mais significativos e evitamos que 
o nível do jogo ultrapasse o valor 3. O* 
resultado é armazenado de volta na po- 
sição 18238. 

Em seguida, a variável na posição de 
memória $51EE é decrementada e o jo- 
go se torna um pouco mais rápido. 

Para atualizar o escore, carrega-se 5 
em Be3em A; a rotina SCI, fornecida 
a seguir, é então chamada. B carrega o 
número de vezes que o dígito será incre- 
mentado e A identifica esse dígito. Desta 
vez, portanto, acrescentamos 500 pon- 
tos ao escore, 

Finalmente, o processador volta pa- 
raa rotina NLV, que irá colocar o pró- 
ximo nível na tela, 


CÁLCUI 





Para serem utilizados na próxima ro- 
tina, os conteúdos dos registradores A 
e B precisam ser trocados. Isso é feito 
pela instrução EXG. X é então carrega- 
do com 18240, o endereço inicial dos va- 
lores do escore. 

ABX adiciona a X o conteúdo de B 
— que é o número do dígito a ser incre- 
mentado, Em outras palavras, essa ins- 
trução desloca o apontador em X, que 
estava no início dos dados do escore, pa- 
ra a posição do dígito que se pretende 
incrementar. O conteúdo de A (o núme- 
ro de vezes que o dígito será incremen- 
tado) e o de X (a posição de memória 
desse dígito) são colocados na pilha de 
máquina. Em seguida, o processador 
salta para a sub-rotina SDI que executa 
o incremento. Os conteúdos de A e X 
são recuperados da pilha, 

A é decrementado e, se não tiver che- 
gado a 0, a instrução BNE SCT manda 
o processador continuar no laço. A ro- 
tina de incremento do dígito é executa- 
da A vezes, incrementando o dígito 
apropriado a cada volta do laço. 

Com:A reduzido a O e o escore acer- 
tado, o processador sai do laço e vai pa- 
ra a rotina PRSC, que imprime o resul- 
tado na tela. Depois disso, o processa- 
dor encontra RTS e retorna para a roti- 
na principal. 


Si 


A é carregado com o conteúdo da po- 
sição de memória apontada por X. Es- 
te corresponde ao número contido no di- 
gito apropriado do escore. 

O número é incrementado e o resul- 
tado é comparado com 10. Se ainda não, 























for igual a 10, a instrução BNE coloca 
o processador no rótulo SNO, que vol- 
ta a armazenar o dígito que foi incre- 
mentado no endereço apontado por X. 
O processador retorna. 

Se o resultado for igual a 10, o dígi- 
to apontado por X é ajustado com O — 
ou seja, é limpo. X é então decremen- 
tado, fazendo o apontador se mover pa- 
ra o dígito imediatamente à esquerda. 

BRA SDI manda o processador de 
novo para o laço de incremento de dígi- 
to. Depois que o próximo dígito é incre- 
mentado, verifica-se se ele ultrapassou 
o valor 9. Encontrando um digito que 
não exceda o valor máximo, O proces- 
sador o armazena na posição apontada 
por X. Observe que, ao voltar da roti- 
na de escore, o processador recupera o 
valor de X da pilha. 

A rotina SOUND trabalha exatamen- 
te do mesmo modo que a rotina encar- 
regada de executar Greenleaves. Porém, 
toca apenas uma vez e usa a pilha como 
fonte de dados. 

Depois de SOUND, há uma outra pe- 
quena rotina chamada CLICK. Ela exe- 
cuta a trilha sonora da caminhada de 
Willie, carregando os parâmetros em X 
e A e chamando a rotina SOUND. 

Para testar a rotina, use as teclas M 
e Ne este programa em BASIC. 


3000,87 
19426 
19902 
30 


POKE 
EXEC 
EXEC 
goto 


VE 


Esta pequena rotina coloca Willie no 
nível seguinte, aumenta a velocidade do 
jogo e acrescenta os pontos ganhos ao 
placar. 


10 org 55506 
20 ld a,(-5228) 
30 inc a 

40 res 2,a 


50 ld (-5228) ,a 
so ld a, (54133) 
70 dec a 

Bo ld (54133) ,a 
90 ld a,2 

100 ld b,5 

110 call 55532 
120 sp 53888 


DRESS 


O nível de dificuldade do jogo é 
transferido da variável equivalente em 
— 5228 para o acumulador. A seguir, O 
conteúdo desse é incrementado. Como 
existem apenas quatro níveis no 
jogo, o valor dessa variável não deve 


ultrapassar 3. Para evitar que isso 
ocorra, utilizamos a instrução res 2,a, 
que ajusta com O o bit 2 do acumula- 
dor. Ássim, quando o valor incremen- 
tado chega a 4, o bit 2 é ajustado com 
0. O conteúdo do acumulador volta, en- 
tão, a 0, colocando o jogo novamente 
no primeiro nível. 

O resultado dessa operação é arma- 
zenado em — 5228, onde o novo valor 
será utilizado no controle do jogo. 


VELOCIDADE 


O atraso do jogo em 54133 é coloca- 
do no acumulador, decrementado e ar- 
mazenado de volta em 54133. Isso ace- 
lera o jogo, já que o tempo gasto pelo 
processador no laço de atraso da rotina 
principal diminui. 

Como você poderá verificar na últi- 
ma rotina da série Avalanche, esse atra- 
so foi originalmente ajustado com 50. 
Assim, sempre que aumenta o número 
de pontos no placar, o jogo se torna 
mais rápido e difícil. Cada vez que vo- 
cê enfrentar os mesmos quatro níveis, 
a velocidade será maior. 


Eta Ad 


Por ter alcançado o prêmio, Willie re- 
cebe mais 500 pontos. Para isso, chama- 
mos a rotina de contagem e fornecemos 
os parâmetros nos registros A e B. O va- 
lor 2 colocado em A especifica o segun- 
do dígito a partir da esquerda — o das 
centenas —, que será incrementado. O 
valor 5 em B informa à rotina o núme- 
ro de vezes que esse dígito deve ser au- 
mentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. Em seguida, o processador 
vai para a rotina principal do jogo, em 
53888, e coloca Willie na base da 
encosta. 


O PLACAR 


A pequena rotina que se segue acer- 
ta os pontos de Willie quando ele alcan- 
ça uma recompensa ou escala uma par- 
te da encosta. 


130 org 55532 
140 po ld h1,-5219 
150 ld d,0 

160 lde,a 

170 add hl,de 
180 pd push hl 
190 call sd 

200 pop h1 

210 danz pd 

220 call 54023 
230 ret 

240 sd ld a, (hl) 
250 inc a 

260 cp 10 

270 3r nz,sn 
280 1d a,0 

290 ld (hl),a 
300 dec hl 

310 r sd 

320 sn ld (hl),a 
330 ret 

340 end 


A posição de memória — 5219 corres- 
ponde ao endereço inicial das variáveis 
que contêm os digitos do escore, carre- 
gadas com O pela rotina de inicialização 
dada em artigo anterior. O registro D é 
carregado com 0 e o registro E, com o 
conteúdo do acumulador. Lembre-se de 
que o acumulador carrega o número do 
dígito quando o processador entra nes- 
ta rotina. 

O conteúdo do par DE é somado em 
HL. A operação faz o apontador de di- 
gitos percorrer as variáveis onde seus va- 
lores estão armazenados, a partir de 
— 5219, até o dígito indicado pelo con- 
teúdo de A. O conteúdo de HL é colo- 
cado na pilha, onde ficará temporaria- 
mente armazenado, e sd é chamada. 


LTERANI SELL 


A rotina sd, que trata dos dígitos, co- 
meça carregando o acumulador com o 


















JABOR E E A Ac ES E BURRA 








valor do dígito apontado por HL. Este 
é incrementado e comparado com 10. Se 
for igual a 10 — ou seja, se ultrapassou 
o maior valor de um dígito decimal, 9 
—, será preciso incrementar o próximo 
dígito. Se o dígito analisado ainda não 
ultrapassou 9, a instrução jr nz manda 
o processador para o rótulo sn, que ar- 
mazena seu valor na variável corres- 
pondente. 

Quando o dígito que está sendo alte- 
rado chega a 10, o salto não ocorre e o 
processador continua com a próxima 
instrução. O valor 0 é armazenado nes- 
se dígito e o par HL é decrementado, 
passando a apontar para o dígito ime- 
diatamente à esquerda. A instrução jr 
sd manda o processador de volta para 
sd e a rotina de incremento recomeça pa- 
ra o próximo dígito. 

Se este também já ultrapassou 9, o 
processador continua no laço. Mas, ce- 
do ou tarde, um dígito que não chegou 
a 10 será encontrado. O processador irá 
então para sn, armazenando o último dií- 
gito e retornando para o lugar da roti- 
na pd de onde sd foi chamada. 


LUSA 


Quando o processador retorna da ro 
tina, o apontador HL é recuperado da 
pilha. Você pode agora perceber por que 
precisamos armazenádo ali: se algum di- 


gito foi incrementado até 10, a rotina sd 
terá deslocado o apontador. Caso não 
tivéssemos armazenado o valor inicial 
na pilha, desta vez estaríamos alteran- 
do o digito errado. 

O laço é fechado por uma instrução 
djnz, que decrementa o conteúdo de B 
até zerar esse registro. Como você deve 
se lembrar, B carrega o número de ve- 
zes que o dígito do escore tem que ser 
incrementado quando o processador en- 
tra nesta rotina. 

O processador continua no laço pd 
atualizando o escore o número de vezes 
inicialmente especificado por B. Quan- 
do B chega a 0, a rotina de impressão 
dos dígitos em 54023 é chamada, impri- 
mindo o novo escore na tela. 

Em seguida, o processador retorna. 




































OS DADOS 
VÃO ROLAR 


Até aqui, a maioria dos jogos de IN- 
PUT — sejam os de aventura, estraté- 
gia ou videogame — basearam-se no 
confronto computador-usuário. A 
maior dificuldade nesse tipo de disputa 
estava, como vimos, na criação de re- 
gras e situações que simulassem desafio 
ou, no caso dos jogos de estratégia, na 
transformação do computador em um 
adversário inteligente e de bom nível. O 
jogo que apresentamos neste artigo é di- 
ferente: o confronto pode se dar entre 
até seis jogadores. O computador não 
participa como adversário — cabe-lhe 
apenas conferir as regras e manter o pla- 
car. A máquina evita, assim, que alguém 
trapaceie, e, o que é melhor, libera os 
jogadores da contagem do placar, pos- 
sibilitando que se concentrem só nas 
questões estratégicas. 

Este jogo não passa de uma versão 
computadorizada do famoso Yatch, ou 
pôquer com dados. Combinando sorte 
e estratégia, é muito absorvente, mas 
suas regras são simples, parecidas com 
as do pôquer. Cada participante tem di- 
reito a jogar cinco dados de uma só vez 
(no nosso caso, o computador simula os 
dados rolando). Se o jogador não esti- 
ver satisfeito com o resultado obtido, 
poderá lançar os dados mais duas vezes 
(num total de três jogadas). Na segun- 
da e terceira jogadas, é permitido esco- 
lher quais dentre os cinco dados serão 
lançados novamente, para que se con- 
siga a melhor “'mão”* possível. Depois 
do terceiro lançamento, o jogador deve 
indicar o grupo do placar no qual sua 
combinação de dados vai ficar (cada 
grupo poderá ser usado apenas uma 
vez). A partida continua, então, com o 
próximo jogador. 

Os grupos de placar são: 








GRUPO PONTOS 

UM soma dos 1 obtidos 
DOIS soma dos 2 obtidos 
SEIS soma dos 6 obtidos 
FULL HOUSE soma dos cinco dados 
CURTO 15 

LONGO 30 

MISTO soma dos cinco dados 
YATCH so 


Um CURTO é uma combinação de 
quatro dados em sequência (1,2,3,4 ou 
2,3,4,5) e um LONGO, uma combina- 
ção de cinco dados também em segiiên- 
cia (1,2,3,4,5 ou 2,3,4,5,6). Um FULL 
HOUSE compõe-se de uma trinca e um 
par (5,5,5,1,1, por exemplo), enquanto 
um MISTO, como seu próprio nome 
diz, aceita qualquer tipo de combinação 
de dados. O YATCH, finalmente, é o 
grupo formado por cinco dados iguais. 

O resultado obtido numa jogada de- 
ve ser colocado num dos grupos. 
Lembre-se de que só se pode indicar ca- 
da grupo uma vez. Para selecionar o 
grupo e executar a escolha usam-se as 
setas e a barra de espaço. 

Muitas vezes não é possível obter 
uma combinação de dados que satisfa- 
ça um dos grupos vazios (os grupos 
cheios não podem ser utilizados nova- 
mente). Neste caso, a única opção é sa- 
crificar um dos grupos vazios — de pre- 
ferência, um dos que rendem menos 
pontos —, eliminando-o. A melhor es- 
tratégia, portanto, é preencher primei- 
ro os grupos que rendem mais pontos — 
que são também os mais difíceis — evi- 
tando-se que venham a ser sacrificados. 

O programa está dividido em três 
partes principais: rotina de inicialização, 
laço-mestre e rotinas chamadas pelo 
laço-mestre, 


INICIALIZAÇÃO 


Esta parte do programa configura os 
UDG (gráficos definidos pelo usuário) 
que representarão os dados na tela (me- 
nos nos micros das linhas Apple e 
TK-2000), inicializa as variáveis e arma- 
zena os nomes dos jogadores. 


by 


10 CLS:XS=CHRS (13) +CHRS (10) :DIM 
DS(6,4) 

20 FORK=1TO6:FORJ=1TO3:FORL=ITO 
3:READA:DS (K,J) =DS(K,J)+CHRS (1) 
+CHRS (219-145%*A| EXT:NEXT:NEXT 
30 DATA 0,0,0,0 
40 DATA 1,0, 
50 DATA 1,0, 
60 DATA 1,0, 
70 DATA 1,0, 












0,0 
0,0 
1,0 
1,0 








INPUT apresenta, finalmente, um jogo 


de computador projetado para vários 


participantes. Reúna a família e os 
seus amigos e role os dados nesta 
brincadeira de sorte e de perícia. 


80 DATA 1,0,1,1,0,1,1,0,1 
85 LOCATE7,10:PRINT"Quantos 
adores (1-6)?"; 

90 AS=INKEY$S:IFAS<"1" OR AS>"6” 
THEN90 

100 PRINTAS:NP=VAL (A$) :CLS 

110 FORN=1TONP:PRINT"nome do jo 
gador” ;N; : INPUTNS (N) :NEXT 

120 CLS:CL$=STRING$(35," ") 

130 DIMO(NP,12),P(NP,12),S(NP,1 
0) 


[eb] (S] 


10 HOME : 
20 cL$ = * 





309 





DIM AS(12) 


30 FORT= 1 TO6: READ AS:DCS 
(T) = AS: NEXT 

40 FORT=1TOlZ 

50 READ AS:AS(T) = AS + LEFTS 
cocoscnarnéo ",12 - LEN (AS) 
): NEXT 

60 VUTAB (10): PRINT TAB( 10); 
"QUANTOS JOGADORES (1-6)?7"; 


70 GET A$: IF AS <"1”º ORAS > 
"6" THEN 70 
80 NP = VAL (AS): PRINT NP: DI 


M NS(NP), SC(NP) ,O(NP,12),P(NP,1 
2) ,S(NP,10) 

90 HOME : FORN= 1 TO NP: PRI 
NT TAB( 1);"NOME DO JOGADOR "; 
Mp 7 

100 INPUT NS(N): NEXT 

1170 DATA <1>,<2>,<3> 

1180 DATA <4>,<5>,<6> 

1190 DATA  UNS,DOIS,TRES,QUAT 
ROS, CINCOS,SEIS,4 IGUAIS 

1200 DATA CASA CHEIA, CURTO,L 
ONGO, MISTO, YATCH 


20 LET QS=".... LET 
zs=" DIM C(13): 
FOR N=1 TO 13: READ C(N): 
NEXT N: DIM T(5): DIM R(5): 
DIM D(5) 

30 FOR N=USR "A” TO USR "G"+7 
: READ A: POKE N,A: NEXT N 
40 DATA 2,3,4,5,6,7,11,14,17, 
20,23,25,27 

50 DATA 0,0,0,24,24,0,0,0 

60 DATA 0,6,6,0,0,96,96,0 

70 DATA 3,3,0,24,24,0,192,192 
80 DATA 0,102,102,0,0,102,102 








+0 
90 DATA 195,195,0,24,24,0,195 
+195 


45 PROGRAMAÇÃO DEJOGOS 45 
































Em AS REGRAS DO JOGO E ROLANDO OS DADOS 
E A ESTRATÉGIA O PLACAR 
E GRUPOS DE PLACAR IM IMPRESSÃO 
E UDG DOS DADOS DO ESQUELETO 
E O LAÇO-MESTRE E RESULTADO FINAL 

100 DATA 102,102,0,102,102,0, 170 CLS:GOSUB350:CLS:NEXTN,I 

102,102 180 CLS:GOSUB990:NEXTR: END 

110 DATA 0,24,48,96,255,96,48, 980 LOCATEI9-LEN (NS (N))/2,Y:PRI 

24 NTNS$ (N) : RETURN 170 FOR R=1 TO 5: FOR I=1 TO 

120 PRINT AT 10,13;"YATCH”: 12: FOR N=1 TO NP 

INK 1: PRINT AT 12,7;"QUANTOS 180 BORDER 4: INK O: PAPER 4: 

JOGADORES" ''TAB 11;"(1 A 6)” CLS : PRINT AT 3,13;NS(N) 


130 INPUT NP: LET NP=INT (NP): 
IF NP<1 OR NP>6 THEN GOTO 130 
140 DIM O(NP,12): DIM P(NP,12) 
: DIM S(NP,5): DIM NS(NP,6): 
DIM Q(NP) 

150 FOR N=1 TO NP: CLS : PRINT 
AT 8,5;" JOGADOR ";(N);"."'" TAB 
1" QUAL E SEU NOME 7”: INPUT 
W$: IF LEN W$>6 THEN LET W$= 

ws( TO 6) 
160 LET NS(N)=Z$( TO 3-(LEN WS 
)/2)+WS: NEXT N 


10 CLS:X$=CHR$(13):DIM D$(6,4) 

20 FOR K=1 TO 6:FOR J=1 TO 3:FO 
R L=1 TO 3:READ A:DS(K,J) =DS(K, 
J)+CHRS (128+65*A) :NEXT 

30 DS(K,J) =D$ (K,J) +CHRS (133) :NE 
XT 

40 DS(K,J)=STRINGS (3,131) +CHR$( 
135) :NEXT 

50 DATA 0,0,0,0,1,0,0,0,0,1,0,0 
10,0,0,0,0,1 

60 DATA 1,0,0,0,1,0,0,0,1,1,0,1 
+0,0,0,1,0,1 

70 DATA 1,0,1,0,1,0,1,0,1,1,0,1 
+1,0,1,1 
80 PRINT:PRINT"QUANTOS JOGADORE 
8 (1-6) 7"; 

90 AS=INKEYS:IF AS<"1” OR AS>"6 
” THEN 90 

100 PRINT AS:NP=VAL (AS) :CLS 

110 FOR N=1 TO NP:PRINT €65,"JO 
GADOR”;N:PRINT” QUAL E SEU NOME 
7": INPUT NS(N) 

120 CLS:NEXT 

130 DIM O(NP,12),P(NP,12),S(NP, 
10) 





[Ee 





ESTRE 


A estrutura do jogo é bem simples, 
e consiste nestas poucas linhas: 


140 FORR=1TOS:FORI=1TO12:FORN=1 
TONP 
150 CLS:Y=2:GOSUB980 :GOSUB190 


140 FORR=1 TOS: FORI=1 
TO 12: FOR N = 1 TO NP 

150 HOME :Y = 2: GOSUB 980: GO 
SUB 190 

170 HOME : GOSUB 350: HOME : N 
EXT N,I 

180 HOME : GOSUB 990: NEXT R: 
END 

980 HTAB (19 - JLEN (N$(N)) / 


2): VTAB (Y): PRINT NS(N): RETU 
RN 


190 FOR M=5 TO 27: PRINT 
PAPER O;AT 5,M;” ";AT 19,M;” 
: NEXT M 

200 FOR M=6 TO 18: PRINT 
PAPER O;AT M,5;” ";AT M,27;" " 
: NEXT M 

210 GOSUB 240: 
430 

230 NEXT N: NEXT I: 
: NEXT R: STOP 


PAUSE 0: GOSUB 


GOSUB 1290 


140 FOR R=1 TO 5:FOR I=1 TO 12: 
FOR N=1 TO NP 



































150 CLS:W=6:Y=2:GOSUB 980:GOSUB. 


190 

160 SOUND 50,3:FOR E=1 TO 800:N 
ExT 

170 CLS:GOSUB 350:CLS:NEXT N,I 
180 CLS:GOSUB 99! EXT R: END 
9870 PRINT €Y*32+W-( (LEN(NS(N)) 
)/2) NS (N) : RETURN 





O laço-mestre compõe-se de três la- 
ços encadeados (um dentro do outro) 
que controlam o jogo. R é o número da 
partida; I, o número de jogadas dentro 
de uma partida é N, o número de joga- 
dores. As rotinas chamadas por esse la- 
ço fazem os dados rolar e apresentam 
os placares parcial e final. Todos os mi- 
cros, menos o Spectrum, chamam uma 
pequena rotina para centralizar os no- 
mes na tela. As'rotinas chamadas pelo 
laço-mestre também são subdivididas, 
como veremos a seguir. 


OS VÃO ROLAR 


A primeira dessas rotinas rola os da- 
dos, exibe-os na tela e chama duas ou- 
tras rotinas. 

Acrescente as linhas que se seguem à 
parte do programa já digitada: 


sy 


190 T=1:FORD=1TOS:T(D)=INT(RND( 
-TIME) *6)+1:NEXT 


LOCATEO, T*2+3: PRINT" JOGO” ; 


GOSUB970:IFT=3 THEN 310 
C=1:FOR D=1 TO 5 

230 LOCATE9+D*4,9:PRINT"?” 

240 AS=INKEYS: IFAS<>"N”ANDAS<>” 
n"ANDAS<>” 8” ANDAS<>"S” THEN240 
250 IF A$="N"ORAS="n"THENPLAY"O 
3L64CB”:GOTO270 

260 PLAY"O6L64CB” :TR(C)=T(D):C= 
Cc+1 

270 LOCATEO,9:PRINTCLS:NEXTD 
280 IFC=6THENGOSUB34 ETURN 
290 FORD=C TO 5:TR(D)=INT (RND(- 
TIME) *6) +1: NEXTD 

300 GOoSUB340 

310 T=T+1 

320 IFT<>4THEN200 

330 FORE=1T0700:NEXT:RETURN 
340 FORD=1TOS:T(D)=TR(D) :NEXTD: 
RETURN 

b70 FORD=1TOS:FORG=1TO4:LOCATED 
4+8,G+4: PRINTDS (T(D) ,G) EXTG 
+ D: RETURN 


210 
220 








190 T = 1: FORD = 1 TO S:T(D) 

= INT ( BND (1) * 6) + 1: NEXT 
200 VUTAB (T* 2 + 3): PRINT "J 
oco ";T; 

210 GOSUB 970: IF T = 3 THEN 3 
10 

220 C = 1: FORD=1 TOS 

230 HTAB (9 + D* 4): VTAB (9) 
2 PRINT "7"; 

240 GET AS: IF AS < > "Ss" AND 
AS < > "Nº THEN 240 

250 IF AS = "N” THEN 270 

260 TR(C) = T(D):C = C+1 

270 MHTAB (9 + D* 4): VTAB (9) 
+ PRINT ” ": NEXT D 

280 IF C = 6 THEN GOSUB 340: 

RETURN 

290 FORD=C'TOS:TR(D = IN 
T ( RND (1) *-6) + 1: NEXT 

300 GOSUB 340 

MO Te T+ 1 

320 IFT< > 4 THENZ00 

330 FOR E = 1 TO 700: NEXT : R 
ETURN 

340 FORD= 1 TOS:T(D) = TR(D 
): NEXT : RETURN 

970 FORD=1 TOS: HTAB (D * 

4 + 8): VTAB (6): PRINT DCS(T(D 
) NEXT : RETURN 

240 LET T=1: FOR D=1 TO 5: LET 


T(D)=INT (RND*6)+1: NEXT D 
250 PRINT AT 6+T*3,7;" JOGO ";T 
260 GOSUB 1180 

270 IF T=3 THEN GOTO 390 

280 LET C=1: FOR D=1 TO 5 

290 PRINT AT 7+T*3, 16+D*2;"?" 
300 FOR J=1 TO 50: NEXT J 

310 LET AS=INKEYS: IF AS="" 
THEN GOTO 310 

320 IF AS="N” THEN SOUND .1, 


710: 








Goro 360 
330 IF A$<>"S” THEN GOTO 310 
340 SOUND .1,30 

350 LET R(C)=T(D): LET C=C+ 
360 PRINT AT 7+T*3,16+D*2;" ": 
NEXT D 

370 IF C=6 THEN GOSUB 420: 
LET T=4: GOTO 400 

380 FOR D=C TO 5: LET R(D)=INT 
(RND*6) + NEXT D: GOSUB 420 
390 LET T=T+1 

400 IF T<>4 THEN GOTO 250 

410 RETURN 

420 FOR D=1 TO 5: LET T(D)=R(D 
): NEXT D: RETURN 
1180 FOR D=1 TO 5: 





PRINT PAPER 


2; INK 6; BRIGHT 1;AT 6+T*3,16 
+D*2;CHRS (143+T(D)): PAUSE 2: 
SOUND .01,RND*40: NEXT D: RETUR 
N 





140 FOR R=1 TO 5:FOR I=1 TO 12: 
FOR N=1 TO NP 
150 CLS:W=6:Y=2:GOSUB 980:GOSUB 


190 

160 SOUND 50,3:FOR E=1 TO 800:N 
EXT 

170 CLS:GOSUB 350:CLS:NEXT N,I 
180 CLS:GOSUB 990:NEXT R:END 
190 T=1:FOR D=1 TO 5:T(D)=RND(6 
):NEXT 

200 PRINT 664*T+64 
210 GOSUB 970:IF 
220 C=1:FOR D=1 TO 5 

230 PRINT 6288, TAB(9+D*4) "7" 
240 AS=INKEYS:IF AS<>"N” AND AS 
<>"s” THEN 240 





"LANCE:";T; 
THEN 31 






250 IF A$="N” THEN SOUND 10,1:G 
oTo 270 

260 SOUND 100,1:TR(C)=T(D):C=C+ 
1 

270 NEXT D:PRINT 6288 

280 IF C=6 GOSUB 340:RETURN 

290 FOR D=C TO 5:TR(D)=RND(6):N 
EXT D 

300 GOSUB 340 

310 T=T+1 

320 IF T<>4 THEN 200 

330 RETURN 

340 FOR D=1 TO 5:T(D)=TR(D) :NEX 
T D:RETURN 


970 FOR D=1 TO 5:FOR G=1 TO 4:P 
RINT €136+G*32+D*4,DS(T(D),G);: 
NEXT G,D: RETURN 

9870 PRINT €Y*32+W-((LEN (NS (N)) 
1/2) NS (N) : RETURN 


No primeiro lançamento, utilizam-se 
os cinco dados. O resultado é exibido na 
tela por meio da rotina da linha 970 
(1180, no Spectrum). O jogador escolhe 
então quais são os dados “bons” e quais 
são os “ruins”, indicando os primeiros 
com um S e os segundos com um N. Ele 
terá mais duas chances de lançar os da- 
dos ruins, devendo teclar S(im) para os 
dados que quer “segurar” e N(ão) para 
os demais. 





Os números dos cinco dados iniciais 
são armazenados na matriz T( ). Depois 
do primeiro lançamento, os dados que 
“seguramos” são guardados tempora- 
riamente na matriz R( ), que é preenchi- 
da com outros valores randômicos até 
ficar com cinco números. Esses valores 
são levados de volta para a matriz T( ) 
por meio da rotina da linha 340 (420, no 
Spectrum). Os resultados são exibidos 
na tela mais uma vez e o processo se re- 
pete no próximo lançamento. 


ORE 


A maior parte da rotina dedica-se aos 
cálculos do placar e à verificação de en- 
tradas. 


hay 


350 cLS 
360 Y=0:GOSUB980: PRINTSTRINGS (3 
0,205);” PLACAR” 

370 PRINT"UNS 
:"XS"TRES...... 
:"XS"CINCOS. 


««« 3ºXS"DOIS 
:"Xx8"Q 
ca tºR 












380 PRINT"4 IGUAIS. «.« "XSTCASA 


"XS"L 






SPYATCH.......: 
390 PRINT"TOTAL....... 
400 GOSUB460 

410 'GOSUB490 : GCOSUB460 
420 LOCATE22,5:PRINT"<qualquer 
tecla>” 

440 AS=INKEYS: IFAS=""THEN440 





450 RETURN 

460 FORD=1TO12:IFP(N,D)=1 THENL 

OCATE16, 1+D: PRINT"X” ; 

470 IFO(N,D)<>OTHENLOCATEIS, 1+D 

: PRINTO(N,D) ; 

480 NEXTD:C=0:FORD=1TO1Z:C=C+0( 

N,D) :NEXT:LOCATEIS,15:PRINTC;:R 

ETURN 

490 LOCATE2,20:PRINT"TEMPO"R;:L 

OCATE1,21:PRINT" JOGADA" I; 

500 LOCATEO,17:PRINT"RESULTADO 

510 FORD=1TOS:FORG=1TO4:LOCATE9 

+4*D,15+G: PRINTDS (T (D) ,G) ;:NEXT 

c,D 

520 LOCATE16, 20: PRINT"ESCOLHA O 
GRUPO" ; 

530 A-1 

540 LOCATE13, 1+A: PRINTCHRS (60) ; 

550 BS=INKEYS: IFB$<>” "ANDB$<>C 

HR$ (30) ANDB$<>CHRS (31) THENS5O 

560 IFB$=" "THEN620 

570 LOCATE13,1+A: PRINT” "; 

580 IFBS=CHRS (30) ANDA>ITHENA=A- 

1 

590 

+1 

600 


IFBS=CHRS (31) ANDA<IZTHENA=A 


PLAY"O6A” 

610 GoTo540 

620 LOCATE13,1+A:PRINT” ";:IFP( 
N,A) <>OTHEN9SO 

630 IFA>6THEN700 

640 C=0 

650 FORD=ITOS:IFT(D)=A THENC=C+ 


1 

660 NEXTD 

670 O(N,A)=C*A 
680 P(N,A)=1 
690 RETURN 

700 IFA=11THENFORD=ITOS:0(N,11) 
=O(N,11)+T(D) :NEXT:P(N,11)=1:RE 
TURN 

710 FORD=1TOS:D(D)=0:NEXT:B=0:F 
ORE=1TO6:C=0:FORD=1TOS:IFT(D)=E 
THRENC=C+1 

720 NEXTD: IFC<>OTHENB=B+1 

730 NEXTE 

740 G=1:FORF=1TO6:GOSUB1140:IFC 
<>OTHEND (G) =F:G=G+1 

750 NEXTF 

760 P(N,A)=1:A=A-6:0NA GOTO770, 
810,830,870,960,890 

770 IFB>2THEN900:IFB=1GOSUB1160 
:0(N,7)=C*4:RETURN 

780 F=1 

790 GOSUB1140:F=F+1: IFC<>4ANDF< 

>7THEN790ELSEIFC<4THEN900 

800 O(N,7)=4*(F-1) : RETURN 

810 IFB<>2THEN900ELSEF=D(1) :Gos 

UB1140:IFC=3THENS20ELSEF=D(2):G 

OSUB1140: IFC<>3THEN900 

820 FORD=1TO5S:0(N,8)=O(N,8)+T(D 

) : NEXT: RETURN 

830 IFB<>4THENSSOELSEGOSUBII6O: 

TFC<>18ANDC<>10ANDC<>14 OR(C=14 

ANDD (4) =6) THEN900 

840 O(N,9)=15:RETURN 

850 IFB<>STHEN900ELSEGOSUB1160: 

IFC<>20ANDC<>15ANDC<>16ANDC<>19 

THEN900 

860 GoTO840 

870 IFB<>STHEN900ELSEGOSUBI160: 

IFC<>20ANDC<>15THEN900 








880 O(N,10)=30:RETURN 

890 IFB<>1THEN9O0ELSEO (N,12)=50 
:PLAY"GFG”: FORE=1T0700:NEXT:RET 
URN 

900 PLAY"03GGG” : LOCATE22,5:PRIN 
Trilegal. ELIMINA?"; 

910 AS=INKEYS: IFAS<>"S"ANDAS<>” 
STANDAS<>"N"ANDAS<>"n” THEN91O 
920 LOCATE22,5:PRINTSTRINGS (17, 
32); 

930 IFAS="N"ORAS="n"THENP (N, A+6 
)=0:G0T0530 

940 P(N,A+6)=1:RETURN 

950 PLAY"03CFD”: LOCATE22,5:PRIN 
T"GRUPO OCUPADO” ; : FORE=170700:N 
EXT:LOCATE22,5:PRINTSTRINGS (14, 
32);:G0oT0530 

960 RETURN 

1140 C=0:FORD=1TOS:IFT(D)=F THE 
NC=C+1 

1150 NEXTD:RETURN 

1160 C=0:FORD=1TOB:C=C+D(D) :NEX 
TD: RETURN 


[e Ld] 








350 HOME 

360 Y = 1: GOSUB 980: INVERSE : 

PRINT ">>>>>>>>>>>>>>>>>>>>>>> 

>>> PLACAR <<<” 

370 NORMAL : PRINT : FORT = 1 

TC 12: PRINT AS(T): NEXT 

380 PRINT : INVERSE : PRINT "T 
NORMAL 





400 GOSUB 460 
410 GOSUB 490: GOSUB 460 


420 BHTAB (22): VTAB (8): PRINT 
"<QUALQUER TECLAD”; 

440 GET A$: IF AS = "" THEN 44 
º 

450 RETURN 

460 FORD = 1 TOlZ: IF P(N,D) 
= 1 THEN HTAB (15): VTAB (3 + 
D): PRINT "X”; 

470 IF O(N,D) < > O THEN HTA 
B (15): VTAB (3 + D): PRINT O(N 
+D); 




































480 NEXT D:C = 0: FORD =1 TO 
12:C = C + O(N,D): NEXT 

a85 HTAB (15): VTAB (17): PRIN 
T C: RETURN 

490 VUTAB (22): PRINT TAB( 3); 
"TEMPO" ;R: PRINT TAB( 1);"JOGA 
DA ";I 

500 VTAB (19): 
0» 

510 FORD = 1 TOS: VTAB (19): 
HTAB (9 + 4 * D): PRINT DCS(T( 
D));: NEXT D 

520 HTAB (16): VTAB (21): 
T "ESCOLHA O GRUPO”; 

530 à - 1 

540 HTAB (13): 
RINT CHR$S (60); 
550 GET BS: IF B$< > CHRS ( 
81) AND BS < > CHR$ (90) AND 
B$ < > CHR$ (32) THEN 550 
560 IF B$ = CHR$ (32) THEN 62 
o 


PRINT "RESULTAD 


PRIN 


VTAB (3 + A): P 


570 HTAB (13): VTAB (3 + A): P 
RINT ” "; 

580 IF BS = CHR$ (81) AND À > 
1 THEN A =A-1 

590 IF BS = CHR$ (90) AND À < 
12 THEN A =A+1 

600 PRINT CHR$S (7) 

610 Goro 540 

620 HTAB (13): VTAB (3 + A): P 
RINT” ";: IF P(N,A) < > 0 THE 
N 950 

630 IF A > 6 THEN 700 

640 c=-0 

650 FORD =1 TOS: IF (T(D) = 


A) THEN C=C+1 
660 NEXT D 
670 O(N,A) = 
680 P(N,A) = 
690 RETURN 
700 IF A = 11 THEN FORD=1 


cra 
1 





TO S:O(N,11) = O(N,11) + T(D): 

NEXT :P(N,11) = 1: RETURN 

710 FORD= 1 TOS:D(D) = 0:N 
EXT :B = FOR E = 1 TO 6:C = 

0: FOR D 1 TO 5: IF T(D) = E 

THEN C=C+1 

720 NEXT D: IFC< >0 THENB 
=B+1 

730 NEXT E 

740 G-= 1: FOR F = 1 TO 6: GOSU 


B 1140: IF C< > O THEN D(G) = 
F:G *G+1 

750 NEXT F-- 

760 P(N,A) = L:A = A - 6: ON A 
coro 770,810,830,870,960,890 


770 IF B > 2 THEN 900: IF B = 
1 GOSUB 1160:0(N,7) = C * 4: RE 
TURN 

780 F=1 

790 GOSUB 1140:F = F + 1: IF € 


< > 4 ANDF< >7 THENTZ790 


795 IF C<4 THENO900 

800 O(N,7) = 4 * (F - 1): RETUR 
N 

B10 IFB< > 2 THEN 900 

812 F = D(1): GOSUB 1140: IF c 
= 3 THEN 820 

Bi4 F = D(2): GOSUB 1140: IF € 


< > 3 THEN 900 
820 FORD=1 TOS:0(N,8) = O( 
N,8) + T(D): NEXT : RETURN 




















































































































IF B< > 4 THEN 850 

835 GOSUB 1160: IF C< > 18 A 
ND C< > 10 ANDC< > 14 0R( 
Cc = 14 AND D(4) = 6) THEN 900 
840 O(N,9) = 15: RETURN 

850 IF B< > 5 THEN 900 

855 GOSUB 1160: IF C< > 20 A 
ND C< > 15 ANDC< > 16 AND 
Cc< > 19 THEN 900 

860 GoTO 840 

870 IF B< > 5 THEN 900 
875 GOSUB 1160: IF C < 
ND C< > 15 THEN 900 

880 O(N,10) = 30: RETURN 
890 IF B< > 1 THENS900 
895 O(N,12) = 50: PRINT CHRS ( 


830 


> 20 A 


7): FOR E = 1 TO 700: NEXT : RE 
TURN 

900 PRINT CHRS (7); CHRS (7): 
HTAB (22): VTAB (5): PRINT "il 


egal. ELIMINA?”; 

910 GET AS: IF AS< > 
AS < > "Nº THEN 910 
920 HTAB (22): VTAB (5): PRINT 
CLS; 

930 IF AS = "Nº THEN P(N,A + 6 
) = 0: Goro 530 
940 P(N,A + 6) 
950 PRINT CHARS (7); CHRS (7): 
HTAB (22): VTAB (5): PRINT "GR 
UPO OCUPADO FOR E = 1 TO 700 
: NEXT 

955 HTAB (22): 
CLS;: GOTO 530 
960 RETURN 
1140 C = 0: FORD=1 TOS: IF 
T(D) = E THENC=C+1 

1150 NEXT D: RETURN 
1160 C = 0: FORD = 1 TO B:C= 
C + D(D): NEXT D: RETURN 


430 BORDER 0: PAPER O: INK 6: 
cLs 


"s” AND 


= 1: RETURN 






VTAB (5): PRINT 





“440 PLOT 4,4: DRAW 0,167: DRAW” 
124,0: DRAW 0,-167: DRAW -124, 


o 

450 PRINT INK S;AT 1,5;NS(N); 
INK 4;AT 2,1;"** PLACAR 28" 
460 RESTORE 1280: FOR M=4 TO 
17: READ A$: PRINT AT M,1;AS; 
QS( TO 11-LEN AS);: IF M<>1á 
THEN PRINT ”:” 

470 NEXT M 

480 GOSUB 530 

490 GOSUB 560: GOSUB 530 

500 PRINT FLASH 1;AT 20,18;"Q 
UALQUER TECLA”;AT 21,18;"P/ CO 
NTINUAR * 

S10 LET AS=INKEYS: IF AS="" 
THEN GOTO 510 

520 RETURN 

530 FOR D=1 TO 12: IF P(N,D)=1 
THEN PRINT AT 34D,13;"X” 

540 IF O(N,D)<>0 THEN PRINT 
AT 3+D,13;0(N,D) 

550 NEXT D: LET C=0: FOR D=1 
TO 12: LET C=C+O(N,D): NEXT D: 
PRINT AT 17,13;C: RETURN 

560 PRINT AT 8,18;"TEMPO ";R; 
AT 9,18;" SECAO ";1 

570 PRINT AT 2,18;"RESULTADO= 


"; LET T=-1: GOSUB 1180 
580 PRINT AT 5,18;"ESCOLHA O G 
RUPO” 


590 LET A=4 

600 PRINT AT A,15;CHR$ 150 
610 LET B$=INKEYS: IF B$S="" 
THEN GOTO 610 

620 IF B$=" " THEN LET A=A-3: 
Goro 710 

630 IF B$="K” THEN GOTO 650 
640 IF BS<>"M” THEN GOTO 610 
650 PRINT AT A,15;" " 

660 IF B$="K” AND A=4 THEN 
Goro 600 

670 IF B$="M” AND A=15 THEN 
coro 600 

680 IF B$="M” THEN LET A=A+1 
690 IF B$="K” THEN LET A=A-1 
700 SOUND .01,5: GOTO 600 
710 PRINT AT A+3,15;”" ": 
N,A)<>0 THEN GOTO 1240 
720 IF A>6 THEN GOTO 780 
730 LET C=0 

740 FOR D=1 TO 5: 
THEN LET C=C+ 
750 NEXT D 

760 LET O(N,A)=C*A 
770 LET P(N,A)=1: RETURN 

780 IF A=11 THEN FOR D=1 TO 5 
: LET O(N,11)=0(N,11)+T(D): 
NEXT D: LET P(N,11)=1: RETURN 
790 FOR D=1 TO 5: LET D(D)=0: 
NEXT D: LET B=0: FOR E=1 TO 6: 
LET C=0: FOR D=1 TO 5: IF T(D) 
=E THEN LET C=C+l 


IF P( 


IF T(D)=A 


800 NEXT D: IF C<>0 THEN LET 
B=B+1 

810 NEXT E 

820 LET G=1: FOR F=1 TO 6: 
GOSUB 1250: IF C<>0 THEN LET 
D(G)=F: LET G=G+1 

830 NEXT F 

840 LET P(N,A)=1: IF A=7 THEN 
coro 950 


850 IF A=8 THEN GOTO 1010 





IF A=9 THEN GOTO 1050 
IF A=10 THEN GOTO 1120 
890 IF A=12 THEN GOTO 1160 
950 IF B>2 THEN GOTO 1190 
960 IF B=1 THEN GOSUB 1270: 
LET O(N,7)=C: RETURN 

970 LET F=1 
980 GOSUB 1250: LET F=F+1: 
C<>4 AND F<>7 THEN GOTO 980 
990 IF C<X4 THEN GOTO 1190 
1000 LET O(N,7)=4*(F-1): RETURN 


870 
































1010 
1020 


IF B<>2 THEN GOTO 1190 

LET F=D(1): GOSUB 1250: IF 
C=3 THEN GOTO 1040 

1030 LET F=D(2): GOSUB 1250: IF 
C<>3 THEN GOTO 1190 

1040 LET O(N,8)=0: FOR G=1 TO 5 
: LET O(N,8)=0(N,8)+T(G): NEXT 
G: RETURN 

1050 IF B<>4 THEN GOTO 1080 
1060 GOSUB 1270: IF C<>18 AND € 
<>10 AND C<>14 OR (C=14 AND D(4 
)=6) THEN GOTO 1190 

1070 LET O(N,9)=15: RETURN 

1080 IF B<>5 THEN GOTO 1190 
1090 GOSUB 1270: IF C=15 OR C=1 
6 OR C=19 THEN GOTO 1070 

1100 IF C<>20 THEN GOTO 1190 
1110 GOTO 1070 

1120 IF B<>5 THEN GOTO 1190 
1130 GOSUB 1270: IF C=15 OR C=2 
O THEN GOTO 1150 

1140 GOTO 1190 

1150 LET O(N,10)=30: RETURN 
1160 IF B<X>1 THEN GOTO 1190 
1170 LET O(N,12)=50: RETURN 
1190 SOUND .5,5: PRINT AT 20,18 
;"ILEGAL AT 21,18;"ELIMINA ? 








1200 LET AS=INKEYS: 
EN GOTO 1200 
1210 IF AS="N” 
0,18;” 


IF A$="*" TH 


THEN PRINT AT 2 
";AT 21,18;” 

": LET P(N,A)=0: GOTO 590 
1220 IF AS<>"S” THEN GOTO 1200 
1230 LET P(N,A)=1: RETURN 
1240 SOUND .5,5: PRINT AT 20,18 
: "GRUPO OCUPADO”: FOR H=1 TO 30 
O: NEXT H: PRINT AT 20,18;" 

”: Goto 590 

1250 LET C=0: FOR D=1 TO 5: IF 
T(D)=F THEN LET C=C+1 
1260 NEXT D: RETURN 
1270 LET C=0: FOR D=1 TO B: 
C=C+D(D): NEXT D: RETURN 
1280 DATA "UNS”,"DOIS”,"TRES”,” 
QUATROS”,"CINCOS”,"SEIS”,"IGUAI 
S”,"CASA CHEIA”,"CURTO”, "LONGO" 
+ "MISTO", "YATCH”,” . 
"TOTAL" 


LET 





350 CLS 

360 W=6:Y=0:GOSUB 980:PRINT"*** 
*SCORE****" 

370 PRINT"UNS . :"XS"DOIS 






:"xs"Q 
cos" 








UATROS. 
S"SEIS. 


"xs . 
- "XS"CINCOS 

























HOUESE..;"XxS” 
LONG RUN 
XS"LONG RUN. 
« "RS" YATCH. 
390 PRINT"TOT; 
400 GOSUB 460 
410 GOSUB 490:GOSUB 460 
420 PRINT 6466, "qualquer tecla” 
;:PRINT €498,"para continuar”; 
430 SOUND 60,1 
440 AS=INKEYS:IF AS="" THEN 440 
450 RETURN 
460 FOR D=1 TO 12:IF P(N,D)=1 T 
HEN PRINT €45+D*32,"x”"; 
470 IF O(N,D)<>0 THEN PRINT 645 
+D*32,0(N, 
480 NEXT D:C=0:FOR D=1 TO 12:C= 
C+O(N,D) :NEXT:PRINT €493,C;:RET 
URN 








490 PRINT €53,"ROUND"R; : 
84," SECAO"I; 

500 PRINT €115,"GRUPO FINAL="; 
510 FOR D=1 TO 5:FOR G=1 TO 4:P 
RINT €111+G*32-(D>3)*118+4*D, DS 
(T(D),G);:NEXT G,D 

520 PRINT 6403,"SELECT GROUP”; 
530 A=1 

540 PRINT €49+32%A, CHRS (95) ; 
550 BS=INKEYS:IF BS<>” " AND BS 
<>""" AND BS<>CHRS(10) THEN 550 
560 IF B$=" " THEN 620 

570 PRINT €49+32%A,” "; 

580 IF B$=""" AND Al THEN A=A- 
2 


PRINT € 


590 IF B$=CHR$(10) AND A<12 THE 
N A-A+ 

600 SOUND 200,1 

610 coro 540 

620 PRINT €49+32%A,” ";:IF P(N, 
A)<>0 THEN 950 

630 IF A>6 THEN 700 

640 C=0 

650 FOR D=1 TO 5:IF T(D)=A THEN 
C=c+ 






660 NEXTD 
670 O(N,A)=C*A 

680 P(N,A)=1 

690 RETURN 

700 IF A=11 THEN FOR D=1 TO 5:0 
(N,11)=0(N,11)+T(D) :NEXT:P(N,11 
)=1:RETURN 

710 FOR D=1 TO 5:D(D)=0:NEXT:B= 
O:FOR E=1 TO 6:C=0:FOR D=l TO 5 
:IF T(D)=E THEN C=c+1 

720 NEXT D:IF C<>0 THEN B=B+1 
730 NEXT E 

740 G=1:FOR F=1 TO 
:IF 
750 
760 P(N,A)=1:A=A-6:0N A GOTO 77 
0,810,830,870,960,890 

770 IF B>2 THEN 900 ELSE IF B=1 
GOSUB 1160:0(N,7)=C*4:RETURN 
780 F=1 

790 GOSUB 1140:F=F+1:IF C<>4 AN 
D F<>7 THEN 790 ELSE IF C<4 THE 
N 900 

800 O(N,7)=4*(F-1) : RETURN 

810 IF B<>2 THEN 900 ELSE F=D(1 
):GOSUB 1140:IF C=3 THEN 820 EL 
SE F=D(2):GOSUB 1140:IF C<>3 TH 
EN 900 

820 FOR D=1 TO 5:0(N,8)=0(N,8)+ 
T(D) :NEXT: RETURN 

830 IF B<>4 THEN 850 ELSE GOSUB 
1160:IF C<>18 AND C<>10 AND C< 
>14 OR (C=14 AND D(4)=6) THEN 9 
oo 





840 O(N,9)=15:RETURN 

850 IF B<>5 THEN 900 ELSE GOSUB 
1160:IF C<>20 AND C<>15 AND C< 
>16 AND C<>19 THEN 900 

860 GoTo 840 

870 IF B<>5 THEN 900 ELSE GOSUB 
1160:TF C<>20 AND C<>15 THEN 9 
oo 

880 O(N,10)=30:RETURN 

890 IF 8<>1 THEN 900 ELSE O(N,1 
2)-50:SOUND 5,8:FOR E=1 TO 700: 

NEXT E:RETURN 

900 SOUND 20,1:PRINT €432,"ileqg 

al. PERDE?”; 

910 AS=INKEYS:IF AS<>"S” AND AS 

<>"N” THEN 910 

920 PRINT 6432,” 


930 IF AS="N” THEN P(N,A+6)=0:G 
oTo 530 

940 P(N,A+6)=1:RETURN 

950 SOUND 5,1:PRINT €433,"SECAO 








PREENCHIDA” ;:FOR E=1 TO 700:NE 
XT: PRINT 6433,” 

:GOTO 530 
960 RETURN 


1140 C=0:FOR D=1 TO S:IF T(D)=F 
THEN C=C+1 

1150 NEXT D:RETURN 

1160 C=0:FOR D=1 TO B:C=C+D(D): 
NEXT D: RETURN 


IMPRESSÃO DO ESQUELETO 


A primeira seção dessa rotina — que 
vai até a linha 520 no Spectrum e linha 
450 nos outros micros — mostra na te- 
















la o esqueleto do placar (nomes dos gru- 
pos e do jogador) e chama duas outras 
rotinas para preencher Os grupos e rê- 
ceber a última entrada. 

A rotina constituída pelas três linhas 
seguintes preenche o esqueleto com o 
placar anterior e fornece a soma dos to- 
tais. Depois dela encontra-se uma roti- 
na maior, incumbida de receber e ana- 
lisar as entradas. 

As primeiras linhas dessa rotina apre- 
sentam na tela informações sobre o nú- 
mero da partida e da jogada e, o que é 
mais importante, mostram a combina- 
ção final obtida. As linhas seguintes, 
além de identificar a tecla que está sen- 
do pressionada, movem o cursor para 
cima e para baixo no esqueleto. Para a 
movimentação do cursor, o Spectrum 
usa as teclas M e K; o MSX e o TRS- 
Color, as setas, eo Apple e o TK-2000, 
as teclas Q e Z. 

Quando se pressiona a barra de es- 
paço, o programa interpreta que 0 gru- 
po apontado pelo cursor foi escolhido. 
A posição do cursor é armazenada na 
variável A, onde A=1 corresponde à 
posição do grupo dos UM, A =2 equi- 
vale à posição do grupo dos DOIS e as- 
sim por diante até A=11, que corres- 
ponde à posição do YATCH. O valor 
de A é usado pelo restante da rotina pa- 
ra calcular a pontuação do placar. 

Uma outra variável importante é a 
variável B, que contém o número de da- 
dos diferentes entre si: B=2 (dois tipos 
de valores), por exemplo, representaria 
uma FULL HOUSE e B=s5 (cinco tipos 
de valores), um LONGO. 

Portanto, dependendo do valor de A, 
rotinas diferentes são chamadas para ve- 
rificar se a combinação dos dados real- 
mente corresponde ao grupo escolhido. 
Se corresponder, o placar é calculado e 
apresentado na tela. Caso contrário, a 
mensagem “ILEGAL” é exibida. O jo- 
gador decide, então — com um S ou um 
N-—, se o grupo deve ser eliminado. O 
computador verifica também quais gru- 
pos já foram usados. 


RESULTADO FINA 


Esta última seção simplesmente apre- 
senta na tela o placar final, com os pon- 
tos dos jogadores em cada partida. O 
número da partida é exibido no topo do 
placar final e os nomes dos jogadores 
mais abaixo, à esquerda. 


hay 


990 CLS:PRINT">>>>>>>>>> 
AR FINAL <<e<<<aaaa<a< 





PLAC 





1000 LOCATEO,4:FORD=1TONP:PRINT 
NS (D) :NEXT 

1020 FORD=1TONP 

1030 C=0:FORE=1TO12:C=C+0(D, E): 
NEXT:S(D,R)=C:NEXTD 

1040 FORD=1TOS:LOCATE3+D*4,2:PR 
INTD;:NEXT 

1050 PRINT” TOTAL” 

1060 FORD=ITONP 

1070 FORE=ITOR 

1080 LOCATE3+E*4, 3+D: PRINTS (D,E 
); :NEXTE,D 

1090 FORD=ITONP:C=0:FORE=ITOR:C 
=C+S(D, E) :NEXTE:LOCATEZ6, 3+D: PR 
INTC;:NEXTD 

1100 LOCATE2,19:PRINT"< qualque 
r tecla para outra rodada >” 
1110 AS=INKEY$S: IFAS=""THEN1110 
1120 FORE=1TONP:FORD=1TO1Z:0(E, 
D)=0:P(E,D)=0:NEXTD,E 

1130 RETURN 


[ILS] 


990 HOME : INVERSE PRINT ">> 
>>>>>>>>> PLACAR FINAL <<<<<< 
<<<<<": NORMAL 


FOR D = 1 TO NP 
NEXT 


1000 VTAB (5): 
PRINT LEFTS (NS(D),10): 








1020 FOR D=1 TONP 

1030 C = FOR E = 1 TO 12:€ = 
C + O(D,E): NEXT :S(D,R) = C: 

NEXT D 

1040 FORD =1 TOS: HTAB (9 + 
D* 4): VTAB (3): PRINT D;: NE 
xT 

1050 PRINT ” TOTAL” 

1060 FORD = 1 TONP 

1070 FOR E = 1 TOR 

1080 HTAB (9 + E * 4): VTAB (4 
+ D): PRINT S(D,E);: NEXT E,D 

1090 FORD = 1 TONP:C=õo0O: FO 
RE =1TOR:C=C+õsS(D,E): NE 
XT E: HTAB (33): VTAB (4 + D): 

PRINT C;: NEXT D 

1100 HTAB (2): VTAB (22): PRIN 


T "< QUALQUER TECLA PARA OUTRA 
RODADA >”; 





1110 GET A$: IF AS = "" THEN 1 
110 

1120 FOR E = 1 TO NP: FORD = 
1 TO 12:0(E,D) = O:P(E,D) = O: 
NEXT D,E 

1130 RETURN 

1290 BORDER 7: PAPER 7: INK 3: 
cLsS 

1300 PRINT "*******X*XPLACAR FI 
NALKKRAXAA RAR 

1310 PRINT AT 7,0: FOR D=1 TO N 
P: PRINT N$S(D);”" :""": NEXT D 
1320 PRINT INK 1;AT 3,0;" JOGAD 
OR”; INK Z;AT 3,1 TEMPO 
1330 PRINT AT 5,12;: FOR D=1 TO 
5: PRINT INK Z;TAB (4+D*4);D; 
: NEXT D: PRINT INK 0;” TOTE 


1340 FOR D=1 TO NP 


1360 LET C=0: FOR E=1 TO 12: LE 






























































T C=C+O(D,E): NEXT E: LET S(D,R 
)=C:. NEXT D 

1370 FOR D=1 TO NP: FOR E=1 TO 
R 

1380 PRINT INK 4;AT 6+D*2,4+E* 
A;S(D,E): NEXT E: NEXT D 


1390 FOR D=1 TO NP: LET C=0: FO 
R E=l TO R: LET C=C+S(D,E): NEX 
T E: PRINT AT 6+D*2,28;C: NEXT 


D 

1400 PRINT 41; INVERSE 1; INK O 
;” QUALQUER TECLA PARA CONTINUA 
R” 

1410 LET AS=INKEYS: 
EN GOTO 1410 

1420 FOR E=1 TO NP: FOR D=1 TO 
12: LET O(E,D)=0: LET P(E,D)=0: 
NEXT D: NEXT E 

1430 RETURN 


IF A$="" TH 





990 CLS:PRINT"**X**TABELA DE PO 
NTOS HA 

1000 PRINT €128:FOR D=1 TO NP:P 
RINT NS (D) :NEXT 

1010 PRINT €75,"R O UN D” 

1020 FOR D=1 TO NP 

1030 C=0:FOR E=1 TO 12:C=C+0(D, 
E) :NEXT:S(D,R)=2:NEXT D 

1040 FOR D=1 TO 5:PRINT €98+D*4 
+D; :NEXT 

1050 PRINT” TOTAL” 

1060 FOR D=1 TO NP 

1070 FOR E=1 TO R 

1080 PRINT €129+D*32+E*4,S(D,E) 
7:NEXT E,D 

1090 FOR D=1 TO NP:C=0:FOR E=1 
TO R:C=C+S(D,E) :NEXT E:PRINT €1 
53+D*32,C;:NEXT D 

1100 PRINT 6448,” QUALQUER TEC 
LA PARA PROXIMA JOGADA." ; 
1110 AS=INKEYS:TF A$="" THEN 11 
10 

1120 FOR E=1 TO NP:FOR D=1 TO 1 
Z2:0(E,D)=0:P(E,D)=0:NEXT D,E 
1130 RETURN 














“AVALANCHE: 


AS COI 








NÍVEL DO JOGO 
O ATRASO DAS COBRAS 
MOVIMENTO DAS LÍNGUAS 





A COBRA ESTÁ SUBMERSA? 


SINCRONISMO 








As cobras ainda não constituem ameaça: 
podem ser vistas dentro dos buracos, 
mas estão sempre quietas. Agora vamos 
dar-lhes movimento, complicando 

um pouco mais a vida do pobre Willie. 


Nossa aventura está bem movimen- 
tada: Willie anda e salta, as pedras ro- 


lam, os pássaros voam. As cobras, po- 
rém, permanecem totalmente imóveis 
em seus buracos. Está na hora de lhes 
dar um pouco de vida. 


A rotina a seguir atiça as cobras, 
fazendo-as sair de sua inatividade. 


10 REM org 59823 





REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


enk ld a,(57344) 
cp 2 

àr ne, sko 

ret 

sko ld ix,57350 
ld h1,425 

call skm 

ld h1,369 

call skm 

ld h1,282 

call skm 

ret 














140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 REM 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


REM skm push hl 
1d de, (57354) 
sbc hl,de 
pop h1 

5r c,sns 

ret 

REM sns ld a, (ix+0) 
inc a 

REM res 4,a 

1d (ix+0),a 
inc ix 

cp 7 

5r ne, sco 
ret 

sco ld bc,57224 
ld d,43 

cp 15 

5r nz.ste 

ld bc,15616 
ld d,4s 

ste ld a,d 
350 REM call 58217 
360 REM ret 


A primeira tarefa da rotina consiste 
em verificar se as cobras devem entrar 
em ação. Para isso, o valor do nível do 
jogo, armazenado em 57344, é carrega- 
do no acumulador e comparado com 2. 
Essa comparação é feita por meio de 
uma subtração cujo resultado não arma- 
zenamos. Se compararmos 2 com um 
número menor, teremos um resto. A ba- 
liza carry será então ajustada com 1 e 
o processador retornará, porque as co- 
bras não são necessárias. 

Se a baliza carry não foi ajustada, a 
instrução jr ne,sko pula a instrução ret. 
Você estará no terceiro ou quarto nível 
do jogo (valor 2 ou 3) e as cobras de- 
vem ser atiçadas. 


SAS 


A posição de memória 57350 carre- 
ga o primeiro dos atrasos das cobras, 
que indicam quando elas devem mexer 
a língua. IX é carregado com esse ende- 
reço, e HL, com 425, a posição da pri- 
meira língua de cobra. A rotina skm, 
que executa o movimento, é chamada. 

A posição da língua da próxima co- 
bra é carregada em HL, e skm volta a ser 
chamada. Em seguida, a posição da lín- 
gua da terceira cobra é carregada em HL 
e skm é chamada mais uma vez. 

Quando todas as línguas estiverem se 
mexendo, a rotina retorna. 


ES 


Quando a rotina skm é chamada, as 
posições das línguas são colocadas na pi- 
lha para armazenamento temporário. A 
posição do mar em 57354 é colocada no 
par DE. Neste ponto do programa, pre- 


cisamos verificar a altura da maré. Se 
a cobra estiver submersa, a parte da ro- 
tina que movimenta sua língua pode ser 
pulada. 

A seguir, a posição do mar no par 
DE é subtraída da posição da língua em 
HL. Se não houver resto, a posição do 
mar se encontra acima da posição da 
língua da cobra na tela. Nesse caso, a 
instrução jr c,sns não tem efeito e o pro- 
cessador retorna. Mas, se houver resto, 
ou seja, se a posição do mar estiver abai- 
xo da posição da língua na tela, a ins- 
trução jr c,sns faz com que o proces- 
sador salte a instrução ret e continue 
a rotina. 


ILS 


O atraso da cobra é carregado da po- 
sição apontada por IX para o acumula- 
dor, onde é incrementado. O bit 4 é apa- 
gado para evitar que o atraso se torne 
maior que 15. O resultado dessa opera- 
ção é armazenado de volta na posição 
indicada por IX. Esse apontador é en- 
tão incrementado para indicar o atraso 
da cobra seguinte. Seu valor é compa- 
rado com o conteúdo do acumulador 
pela instrução cp 7. Se o atraso dessa co- 
bra for maior ou igual a 7, jr ne,sno 
manda o processador para a rotina que 
imprime a língua. Se o valor for menor 
que 7, a baliza carry é ajustada com 1, 
a instrução não tem efeito e o processa- 
dor retorna. 

Cada vez que essa rotina é chamada, 
um atraso diferente da cobra é encon- 
trado nos endereços 57350, 57351 e 
57352, pois o apontador IX é incremen- 
tado entre cada chamada que se faz à 
rotina skm. A língua da cobra fica para 
fora oito ciclos, e não aparece nos oito 
ciclos seguintes. 


Midis 


Chegamos, finalmente, à rotina en- 
carregada de imprimir ou apagar a lín- 
gua da cobra na tela. O par de registros 
BC é carregado com 57224, os dados pa- 
ra a língua da cobra. D é ajustado com 
43, a cor da figura. O atraso da cobra 
em A é comparado com 15. 

Se o atraso não tiver chegado a 15, 
a instrução jr nz leva o processador pa- 


























ra ste. Se for igual a esse valor, você pre- 
cisará apagar a língua, para que ela não 
apareça nos próximos oito ciclos. BC é 
carregado com 15616, o endereço dos 
dados de um espaço vazio, e o registro 
D é carregado com 45, o código da cor 
do céu. 

Qualquer que seja o valor do atraso 
da cobra (neste ponto da rotina, ele é 
sempre maior do que sete), o processa- 
dor encontra a instrução Id a,d. Depois 
que ela carrega a cor apropriada em A, 
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a rotina print, em 58217, é chamada. 
Com isso, imprimimos a língua — ou 
apagamos a que existia — para fora da 
boca de uma das cobras. A seguir, o 
processador retorna. 


Esta rotina movimenta as cobras, 
acrescentando ação ao jogo. 


10 oRG 20856 


SNK LDA 18238 
CMPA 42 

BHS SKO 

RTS 

SKO LDY 418255 
LDX 45095 
JSR SKM 

LDX 44591 

JSR SKM 

LDX 43833 
JSR SKM 

RTS 

SKM PSHS X 











PROGRAMAS LONGOS: MELHORE 
A VELOCIDADE DE MONTAGEM 

Como o leitor deve ter notado, apre- 
sentamos o programa Avalanche em 
pequenos segmentos funcionais, que 
podem ser testados separadamente. 
Essa técnica de construção de progra- 
mas, chamada de desenvolvimento 
modular, é muito útil para qualquer ti- 
po de programa, pois agiliza o proces- 
so de montagem e facilita enormemen- 
te os testes de execução. Para a pro- 
gramação complexa em linguagem de 
máquina, o uso dessa técnica é essen- 
cial, devido à dificuldade de se docu- 
mentar internamente — isto é, na pró- 
pria listagem do programa — o código 
em Assembler. 

Os profissionais que criam os sofis- 
ticados videogames que vemos em fli- 
peramas, por exemplo, dominam per- 
feitamente a técnica de modularização. 
Na realidade, eles dispõem de progra- 
mas Assembler poderosíssimos, capa- 
zes de representar uma biblioteca de 
rotinas e ferramentas de programação 
que facilitam muito a implementação 
dos recursos normalmente usados em 
videogames. 

Infelizmente, os Assembler que /N- 
PUT apresentou para os diferentes mi- 
cros são muito lentos. Se você quiser 
melhorar a velocidade de montagem, 
divida um programa mais longo em 
segmentos menores e compile-os se- 
paradamente. Não se esqueça, porém, 
de calcular o endereço de origem para 
cada segmento e incluí-lo em um co- 
mando org ou equivalente, no começo 
de cada segmento. 











150 LDX 18247 

160 LEAX 31,X 

170 cMPX ,S 

180 PULS X 

190 BHI SNS 

200 RTS 

210 SNS LDA ,Y 

220 INCA 

230 ANDA 45F 

240 STA ,Y+ 

250 CMPA 47 

260 BHS SCo 

270 RTS 

280 SCO LDU 418062 
290 CMPA 415 

300 BNE STE 

310 LDU 41536 

320 STE LEAX -256,X 
330 JSR CHARPR 

340 RTS 

350 CHARPR EQU 19402 


A primeira tarefa da rotina é verifi- 
car se as cobras devem entrar em ação. 
Para isso, o valor do nível do jogo, ar- 
mazenado em 18238, é carregado no 
acumulador e comparado com 2. 

Se você está no nível três ou quatro 
— ou seja, se o valor é 2ou 3 —, as co- 
bras serão necessárias. Nesse caso, a ins- 
trução BHS faz o processador pular o 
RTS, seguindo a rotina. 


Re ST 


Y é carregado com o endereço do 
atraso da primeira cobra. Esta é a va- 
riável incumbida de interromper ou co- 
meçar o seu movimento. Os atrasos da 
segunda e da terceira cobras estão logo 
em seguida na memória. 

X é carregado com 5095, a posição 
na tela do primeiro buraco, e o proces- 
sador vai para a rotina SKM. 

Essa rotina atiça a primeira cobra e 
incrementa o conteúdo de Y antes de re- 
tornar. Assim, quando o processador 
salta para fazer com que a segunda e a 
terceira cobras se movimentem, apenas 
as posições do segundo e do terceiro bu- 
racos precisam ser carregadas em X. Y 
é incrementado automaticamente, apon- 
tando os atrasos das três cobras. Quan- 
do tiver passado por todas elas, o pro- 
cessador retorna. 


CITAR 


A primeira coisa que o processador 
faz ao entrar na rotina SKM é colocar 
na pilha, para armazenamento tempo- 
rário, a posição da cobra na tela. 

O registrador X é carregado com o 
conteúdo de 18247, a posição do mar. 
Esse valor é somado com 31, para que 
o apontador de tela se mova para o can- 
to direito da tela. X é então comparado 
com a posição do buraco da cobra, que 
está na pilha de máquina, através da ins- 
trução CMPX ,S. A posição da cobra 
é recuperada da pilha, voltando para o 
registrador X. 

Como isso não afeta nenhuma das 
balizas, a instrução BHI ainda se refere 
à operação CMPX ,S. Assim, se o mar 
está acima do buraco — ou seja, sea po- 
sição do mar na tela não é maior do que 
a posição do buraco que estava na pi- 
lha —, o salto não ocorre, e o processa- 
dor retorna. 

Caso o mar não tenha encoberto" o 
buraco — isto é, se a posição do mar na 
tela é maior do que a posição do bura- 
co —, o processador pula a instrução 
RTS, e dá continuidade à rotina que ati- 
ça as cobras. 


US 


A é carregado com o conteúdo do 
atraso da cobra que está apontado no 
registrador Y. Esse valor é então incre- 
mentado e a operação AND é feita com 
SF, para ajustá-lo com O toda vez que 
ultrapassar o valor 15. 

O resultado é armazenado de volta 
no endereço apontado por Y. Esse re- 
gistrador é então incrementado para 
apontar o atraso da próxima cobra. 

O atraso da cobra que ainda está em 
A é comparado com 7. Se for maior ou 
igual, o processador vai para a rotina de 
impressão da língua; caso contrário, o 
processador retorna. 


O BOTE 


Ao entrar na rotina SCO, o proces- 
sador carrega o apontador da pilha do 
usuário com 18062, o endereço dos da- 
dos para a língua da cobra. 

A — que ainda contém o atraso da 
cobra que foi incrementado — é com- 
parado com 15. Se ele não foi incremen- 
tado até esse valor, o processador pula 
para as instruções de impressão. Mas, 
se já chegou a 15, U é carregado com 
1536, o endereço da parte de céu no can- 
to superior esquerdo da tela. 

Seguindo adiante, X é subtraído de 
256, fazendo o apontador de tela se mo- 
ver um caractere para cima do buraco 
da cobra. Esta é a posição da língua. 

Se o atraso da cobra estiver entre 7 
e 14, a rotina CHARPR imprimirá a lín- 
gua nessa posição ao ser chamada. Mas, 
se o atraso tiver atingido o valor 15, a 
língua será apagada. 

A língua permanecerá invisível, isto 
e, não será impressa, até que o atraso 
chegue novamente a 7. 


4 ESSES 


A rotina apresentada a seguir atiça as 
cobras que até agora permaneciam quie- 
tas em seus buracos. 


10 org 55564 
20 ld a,(-5228) 


30 cp 2 

ao 3r nc,sk 

50 ret 

60 sk ld bc,-5198 
70 ld h1,425 

80 call sm 

90 ld h1,369 

100 call em 

110 ld h1,282 
120 call sm 

130 ret 

140 sm push hl 
150 ld de, (-5212) 































sbc hl,de 


170 pop hl 
180 ár c,;sn 
190 ret 

200 sn ld a, (bc) 
210 inc a 

220 res 4,a 
230 ld (bc),a 
240 inc bc 
250 cp 7 

260 5r ne, sc 
270 ret 

280 sc ld de, (62407) 
290 add hl,de 
300 cp 15 

310 ld b,36 
320 5r nz,st 
330 ld b,255 
340 et ld a,b 
350 call 77 
360 ret 

370 end 


A primeira tarefa da rotina consiste 
em verificar se as cobras devem entrar 
em ação no nível atual do jogo. Para is- 
so, o valor do nível, — 5228, é carrega- 
do no acumulador e comparado com 2. 
Se você está no terceiro ou no quarto ní- 
vel — ou seja, seo valor é2 ou 3 — as 
cobras estão nos buracos e devemos 
atiçá-las. 

A comparação é feita por meio de 
uma subtração cujo resultado não arma- 
zenamos. Se compararmos 2 com um 
número menor, teremos um resto e a ba- 
liza carry passará a conter 1. Nesse ca- 
so, o processador retornará, porque as 
cobras não são necessárias. 

Caso a baliza carry não tenha sido 
afetada, a instrução jr ne,sk pula a ins- 
trução ret, porque as cobras estão pre- 
sentes neste nível. 


ERS UERN 


O endereço de memória — 5198 con- 
tém o primeiro dos chamados atrasos 
das cobras, que indicam quando elas de- 
vem mostrar sua língua. O par BC é car- 
regado com esse endereço, e HL, com 
425, a posição da língua da primeira co- 
bra. A rotina sm, encarregada de pro- 
mover o movimento, é chamada. 

A posição da língua da próxima co- 
bra é carregada em HL, e sm volta a ser 
chamada. Em seguida, a posição da lín- 
gua da terceira cobra é carregada em 
HL, e sm é chamada mais uma vez. 

Depois de movimentar todas as lín- 
guas, a rotina retorna, 


ATA 


Quando a rotina sm é chamada, a po- 
sição da língua que está em HL é colo- 


cada na pilha para armazenamento tem- 
porário. A posição do mar em — 5212 
é colocada no par DE. Neste ponto do 
programa, precisamos verificar se a co- 
bra se afogou com a subida da maré, 
Em caso afirmativo, ela não precisa me- 
xer a língua — assim, a parte da rotina 
que faz isso pode ser pulada. 

Para essa verificação, a posição do 
mar no par DE é subtraída da posição 
da língua em HL. Se não houver resto 
— ou seja, se a posição do mar estiver 
acima da posição da língua da cobra 
na tela —, a instrução jr c,sn não tem 
efeito e o processador retorna. Mas, se 
houver resto, a posição do mar está 
abaixo da posição da língua na tela. A 
instrução jr c,sn faz, então, o proces- 
sador saltar a instrução ret e continuar 
a rotina. 


ESTA NA HORA DE MEXER? 


O atraso da cobra é carregado da po- 
sição apontada por BC para o acumu- 
lador, onde é incrementado. O bit 4 
também é incrementado para evitar que 
o atraso se torne maior que 15. O resul- 
tado dessa operação é armazenado de 
volta na posição apontada por BC. 

O par de registros BC é incrementa- 
do para apontar o atraso da cobra se- 
guinte. A instrução cp 7 compara esse 
valor com o conteúdo do acumulador, 
e a instrução jr ne,sc manda o proces- 
sador para a rotina que imprime a lín- 
gua, se o atraso da cobra for maior ou 
igual a 7. Caso o valor seja inferior a 
7, a baliza é ajustada com 1, a instru- 
ção de desvio não tem efeito e o proces- 
sador retorna. 





Ao ser chamada, essa rotina sempre 
encontra um atraso diferente nos ende 
reços — 5198, — 5199 e — 5220, já que 
o apontador BC é incrementado entre 
cada acesso a sm. A língua da cobra fi- 
ca para fora oito ciclos, não aparecen- 
do nos oito seguintes. 


Ludis 


Chegamos, finalmente, à rotina que 
imprime ou apaga a língua da cobra na 
tela, O endereço inicial da Tabela de No- 
mes da VRAM é carregado em DE e so- 
mado a HL, que contém a posição da 
língua. Esse par de registros passa en- 
tão a conter o endereço correspondente 
à posição da língua na TN. 

O atraso da cobra que ainda está no 
acumulador é comparado com 15. O re- 
gistro B é carregado com 36, o código 
do padrão da língua. Se o valor do atra- 
so não for 15, a instrução jr nz,st leva 
o processador para st, pulando a instru- 
ção Id b,255. Caso contrário, a língua 
deve ser apagada para que não apareça 
nos próximos oito ciclos; o desvio não 
ocorre e 255, o código do padrão de céu, 
é colocado em B. 

Neste ponto do programa, o valor do 
atraso da cobra será sempre superior a 
7. O processador encontra a instrução 
Id a,b, que transfere o código do padrão 
apropriado de B para A. A rotina 77 da 
ROM, que coloca o código que está em 
A na posição da TN apontada por HL, 
é chamada. Com isso, imprimimos a lín- 
gua — ou apagamos a que existia — pa- 
ra fora da boca da cobra. A seguir, o 
processador retorna ao laço principal do 
jogo. 





| OSISTEMA 





OPERACIONAL 


Todos os computadores trabalham e 
entendem apenas uma linguagem: o có- 
digo de máquina, que é representado in- 
ternamente por pequenas variações bi- 
nárias de voltagem. Ele pode ser expres- 
so por um conjunto de letras e núme- 
ros, o que facilita sua compreensão, ou 
por números binários, menos familiares 
ao usuário. De uma forma ou de outra, 
essa linguagem é considerada pouco 


acessível por muitas pessoas. O que tor- 
na mais simples a comunicação com o 
operador é o Sistema Operacional do 
computador (SO), um conjunto de ro- 
tinas em código de máquina que contro- 
lam todas as funções da máquina, Seja 
qual for a linguagem empregada, BA- 
SIC ou outra qualquer, essas rotinas se- 
rão sempre utilizadas para controlar as 
diversas funções do computador. 


Sem o sistema operacional, seria 

difícil trabalhar com o computador. 
Veja de que modo funciona esse 
importante componente do seu micro e 
aprenda a fazer dele um aliado. 


Conhecer o funcionamento do SO 

não é essencial para o usuário, porém 

ativas de pro- 

es internas do 

SO possibilita a obtenção de melhores 

resultados não só quanto à velocidade, 

mas, também, quanto à qualidade ge- 
ral do programa. 

Dentro dos limites impostos por ca- 

da máquina, este artigo procura mostrar 
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algumas aplicações úteis para as rotinas 
e variáveis próprias de cada sistema ope- 
racional. 


EE É SISTEMA OPERACIONAI 


O SO é apenas um tipo sofisticado de 
programa — escrito em código de má- 
quina — que permite ao microproces- 





sador existente dentro da máquina res- 
ponder aos comandos básicos de opera- 
ção. Ele controla a comunicação da má- 
quina com o mundo exterior — o tecla- 
do, a tela, o alto-falante e outras por- 
tas de entrada e saída. 

O SO tem ainda a função de assegu- 
rar que a memória seja utilizada de for- 
ma eficiente pelo usuário e pelo inter- 
pretador BASIC. Assim, quando liga- 
mos o computador, ele ativa várias de 
suas rotinas da ROM para acertar os va- 
lores iniciais de variáveis e apontadores 
e, em seguida, avisa que está pronto a 
aceitar comandos. 

Em todos os microcomputadores 
abordados em INPUT, o SO é respon- 
sável pela interpretação dos comandos 
em BASIC, contudo ele pode também 
lidar com outros tipos de linguagem. 

Na maior parte do tempo, o traba- 
lho do SO consiste em verificar e modi- 
ficar os valores de determinadas variá- 
veis e apontadores especiais. É impor- 
tante, por exemplo, que o SO conheça 
o endereço exato tanto do início como 
do fim de um programa em BASIC. Se 
o programa for modificado, seu tama- 
nho também mudará, e esses valores 
precisarão ser atualizados. 

O mesmo se aplica ao processo de 
alocação e manutenção de espaço para 
as variáveis, particularmente as variáveis 
indexadas, ou matrizes. Quando dimen- 
sionamos uma variável desse tipo, um 
espaço deve ser reservado — e, quando 
a variável não for mais necessária, ele 
deve ser eliminado. 

É essencial que o SO utilize racional- 
mente a memória, pois, caso contrário, 
um programa longo ou algumas variá- 
veis mais compridas logo esgotarão a 
quantidade de espaço disponível. Essa 
administração da memória é chamada 
de housekeeping — que poderíamos tra- 
duzir livremente por “cuidar da casa”. 
Uma boa “economia doméstica” é in- 
dispensável para que o computador fun- 
cione eficientemente. 

O SO contém ainda uma série de ro- 
tinas de software montadas de modo 
que tanto o usuário quanto o próprio 
SO possam utilizá-las com facilidade. A 
maioria delas não é de interesse para o 
programador em BASIC, pois vários co- 
mandos dessa linguagem se encarregam 


da execução das mesmas tarefas, cha- 
mando as rotinas apropriadas. Um bom 
exemplo é o comando INPUT, que usa 
uma série de sub-rotinas do SO, tais co- 
mo seleção e leitura da porta de entra- 
da, varredura do teclado, uso e transfe- 
rência de buffer etc. 

Outro exemplo interessante é 
CLEAR. Esse comando força o SO a 
executar todas as rotinas necessárias à 
liberação da memória RAM disponível 
para o usuário, destruindo todas as va- 
riáveis previamente existentes. 


ALA da 


Sempre que digitamos um comando, 
o SO seleciona e coloca em ação uma 
das rotinas de seu vasto acervo. Supo- 
nhamos que você tecle a letra A: o SO 
deverá instruir o processador a imprimir 
o caractere na tela, cabendo-lhe também 
detectar a tecla que foi pressionada. A 
forma como ele faz isso varia de com- 
putador para computador. Em certas 
máquinas, o SO “varre” periodicamen- 
te o teclado para verificar se alguma te- 
cla foi pressionada. Em outras, seu fun- 
cionamento normal é interrompido sem- 
pre que se pressiona uma tecla, a qual 
é identificada, em seguida, por meio de 
uma varredura. 

Para responder adequadamente à 
pressão da tecla, o SO aciona a sub- 
rotina que manda o caractere correspon- 
dente à tela. Sua execução, assim como 
a de outras rotinas em código de máqui- 
na, é muito rápida. Se pressionarmos a 
tecla <ENTER> ou a tecla <RE- 
TURN>, o SO ativará uma rotina que 
promove a mudança de linha na tela 
(new line). 


PELUSa 


Quando executamos um programa 
codificado em uma linguagem como o 
BASIC, as instruções que estão na me- 
mória são interpretadas, ou seja, tradu- 
zidas para os códigos que o computador 
pode entender. Esses códigos modificam 
os registradores de modo que as rotinas 
do SO possam ser chamadas adequada- 
mente. Assim, as mesmas rotinas que 
possibilitam a execução de comandos 































entrados pelo teclado permitem ao SO 
a execução de um programa BASIC. 
Mas por que o BASIC é tão lento, já 
que utiliza rotinas em código, que são 
rápidas? Acontece que a linguagem de- 
ve ser interpretada a partir de palavras- 
chave — como PRINT — e de outros 
símbolos, antes que essas rotinas inter- 
nas possam ser executadas. Como a tra- 
dução do BASIC é demorada, progra- 
mas que exigem rapidez, como os de vi- 
deogame, por exemplo, são escritos di- 
retamente em linguagem de máquina. 

O tempo que se leva para escrever um 
programa em código de máquina é, em 
média, dez vezes maior do que o gasto 
em um programa BASIC. A velocidade 
de execução do mesmo, contudo, che- 
ga a ser cinquenta vezes maior. Assim, 
a não ser que a rapidez de execução se- 
ja muito importante, a maioria das pes- 
soas prefere utilizar o BASIC, dada a fa- 
cilidade de programação. 





SSO DIRET! 





E 


A possibilidade de ter acesso direto 
ao SO, sem passar pelo interpretador, 
seria a solução ideal para quem prefere 
as facilidades do BASIC, mas, por ou- 
tro lado, não quer abrir mão da veloci- 
dade. Nem todas as máquinas, porém, 
oferecem essa alternativa. 

No TRS-80 e no TRS-Color, por 
exemplo, o SO faz parte do interpreta- 
dor de dezesseis Kbytes — o Microsoft 
BASIC. No MSX, além de um conjun- 
to de rotinas básicas, chamado BIOS 
(BASIC Input/Output System), o SO in- 
clui também o interpretador. Os micros 
da linha Sinclair, como o ZX-81 e o Spec- 
trum, são ainda mais restritivos, uma 
vez que não permitem acesso aos regis- 
tradores internos diretamente do BASIC 
(o que é essencial para que se possa se- 
lecionar as rotinas existentes no SO). 

Seja qual for o microcomputador e 
o tipo de acesso que oferece ao SO, sem- 
pre é possível contornar diversos proble- 
mas — inclusive a diminuição do tama- 
nho das rotinas em código — por meio 
de alguns truques. 


VARIÁVEIS DO SISTEMA 


Os usuários do Spectrum podem uti- 
lizar as rotinas do SO através do coman- 
do USR, que também serve para execu- 
tar rotinas em código de máquina colo- 
cadas temporariamente na RAM. Ten- 
te usar, por exemplo, o comando dire- 
to RANDOM USR 0: ele provoca um 
reset geral na máquina (reinicialização). 


Para programas em BASIC, há a alter- 
nativa de se modificar determinadas va- 
riáveis por meio de comandos POKE. 

POKE 23561, seguido de um núme- 
ro entre 1 e 255, altera o lapso de tem- 
po que antecede a ativação da auto- 
repetição das teclas. O valor normal é 
dado por um POKE 23561,35. De mo- 
do análogo, POKE 23562,5, que define 
o valor normal do período que decorre 
entre duas auto-repetições sucessivas, 
também pode ser modificado. Tal recur- 
so é útil em jogos, ou qualquer outro ti- 
po de programa que exija respostas rá- 
pidas do usuário, via teclado. 

As posições 23606 e 23607 contêm o 
endereço dos padrões de pontos dos ca- 
racteres. Se usarmos POKE 23606,8 
(byte menos significativo), o apontador 
será movido um caractere para cima, na 
tabela. Assim, qualquer letra que digi- 
tarmos aparecerá na tela como o carac- 
tere seguinte do código ASCII. Tente di- 
gitar esse POKE seguido de 1, 2, 3, 4. 
Note que este é um método simples de 
“criptografar"' listagens em BASIC, de- 
sencorajando curiosos que tentem lê-las. 
Se, em vez do byte menos significativo 
você recorrer ao mais significativo — 
POKE 23607,0 —, o apontador será di- 
rigido para o começo da memória 
ROM, tornando os caracteres absoluta- 
mente ininteligíveis. 

A posição de memória 23658 possi- 
bilita alterar o estado da tecla <CAPS 
LOCK> durante a execução de um pro- 
grama. POKE 23658,0 muda os carac- 
teres de maiúsculos para minúsculos; 
POKE 23658,8 admite só maiúsculos. 

O comando PLOT permite especifi- 
car uma posição absoluta da tela, en- 
quanto DRAW se refere de forma rela- 
tiva à posição corrente do cursor gráfi- 
co. Se você precisar de um DRAW ab- 
soluto, poderá consegui-lo através das 
posições de memória 23677 e 23678. Pa- 
ra verificar seu efeito, digite PLOT 
128,85. Esse comando colocará um pon- 
to no centro da tela. Suponhamos que 
você queira traçar uma linha que vá des- 
te ponto até o canto superior direito da 
tela, cuja posição absoluta é (255,175). 
DRAW 255,175 indicaria um ponto fo- 
ra da tela, mas DRAW 255-PEEK 
23677,175-PEEK 23678 lhe dará o resul- 
tado desejado. Ao subtrair PEEK 23677 
da coordenada X e PEEK 23678 da 
coordenada Y, estamos, na verdade, 
efetuando uma operação para obter as 
coordenadas relativas do comando 
DRAW. 

Um outro exemplo de utilização das 
rotinas do SO por meio de um coman- 
do BASIC é dado pela simulação de um 
relógio. No Spectrum, o contador de li- 
nhas de vídeo ocupa as posições 23672, 


23673, 23674. Se colocarmos O nelas, 
usando o comando POKE, o contador 
será zerado. Depois disso, sua atualiza- 
ção será feita automaticamente através 
de interrupções. Aqui está um progra- 
ma simples que emprega o contador pa- 
ra improvisar um relógio: 


10 POKE 23674,0: POKE 23673,0 
: POKE 23672,0 

20 BORDER O: PAPER O: 
CLS 

30 DEF FN t()=INT ((65536* 
PEEK 23674+256*PEEK 23673+ 
PEEK 23672)/50) 

40 LET t=FN t() 

50 LET h=INT (t/(60*60)) 

60 LET m=INT (t/60) 

70 LET s=t-((h*60)*60)- (m*60) 
80 LET t$="["+STR$ h+":"+STRS 
m+":"+STR$ s+"]" 

90 PRINT AT 1,15-((LEN t$)/2) 
e Pat8se o 

100 GoTo 100 


INK 6: 


A linha 10 zera o contador de linhas 
de vídeo, enquanto a linha 30 define a 
função t, que o lê. A linha 40 armazena 
o valor encontrado em t. A partir desse 
valor, as horas, minutos e segundos são 
calculados. 


TS 


Os microcomputadores pertencentes 
à linha MSX possuem cerca de 32 
Kbytes de memória ROM dedicados ao 
SO. Os primeiros 16385 bytes são preen- 
chidos com rotinas de entrada e saída. 
O interpretador BASIC começa em 
16385 e termina em 32769. Existem ain- 
da 3202 bytes dedicados às variáveis do 
sistema, todos eles situados no topo da 
memória — 62333 a 65535. 

Um SO com essa extensão possui 
quase todas as rotinas que o usuário po- 
de desejar. Muitas dessas rotinas têm si- 
do aproveitadas no videogame Avalan- 
che. Contudo, como a maioria delas em- 
prega valores armazenados em registra- 
dores internos do Z-80 — o micropro- 
cessador do MSX —, poucas podem ser 
utilizadas diretamente por programas 
em BASIC. A solução consiste em es- 
crever pequenas rotinas em código que 
modificam os valores dos registradores, 
de modo que o BASIC possa chamar a 
rotina desejada do SO. Um exemplo 
desse procedimento foi dado no artigo 
publicado à página 1141 de INPUT. 

De fato, é uma pena que o BASIC 
não possa modificar os registradores di- 
retamente, sobretudo porque o SO do 
MSX dispõe de certos artifícios proje- 
tados para facilitar a utilização de suas 
rotinas pelo usuário. Algumas porções 





da ROM e da RAM são preenchidas 
com vetores que apontam para determi- 
nadas rotinas do SO, numa tentativa de 
simplificar seu uso. 

As rotinas de entrada e saída — co- 
municação com a tela, com o gerador 
de som, com o teclado e o cassete, en- 
tre outros periféricos — estão espalha- 
das pelos primeiros 16K da ROM. Exis- 
te, porém, uma pequena região — que 
vai do endereço 59 ao 348 — que con- 
tém vetores que apontam para as prin- 
cipais rotinas do BIOS. Assim, podemos 
ter acesso a essas rotinas de duas manei- 
ras: chamando seu endereço verdadei- 
ro na memória ROM ou usando seu ve- 
tor na tabela. As rotinas do interpreta- 
dor BASIC também são apontadas por 
vetores de uma tabela localizada no to- 
po da memória — 64922 a 65535. 

As rotinas mais interessantes neces- 
sitam de parâmetros colocados nos re- 
gistradores internos. Como muitas de- 
las já foram apresentadas em outros ar- 
tigos publicados em INPUT, faremos 
uma pequena lista de rotinas (endereços 
da tabela de vetores) e endereços de va- 
riáveis úteis. 

As rotinas podem ser usadas por 
meio dos comandos DEFUSR e USRO, 
e as variáveis, por meio de PEEK e 
POKE. 


[ES 


Eis algumas rotinas de interesse na 
utilização da tela: 

65 - Desabilita a geração de ima- 
gens na tela. Pode ser útil 
quando se pretende que o 
usuário não acompanhe a ela- 
boração de um desenho com- 
plicado, vendo-o só depois de 
completo. 

68 - Reabilita a geração de ima- 
gens. Faz com que o processo 
de desenho, que a rotina an- 
terior oculta, apareça instan- 
taneamente na tela. 

98 - Muda as cores da tela de acor- 
do com o valor das variáveis 
do sistema. 

108 - Equivale a SCREEN 0, Os en- 
dereços das tabelas e as cores 
podem ser modificados atra- 
vés das variáveis do sistema. 

111 - SCREEN 1. 

114 - SCREEN 2. 

117 - SCREEN 3. 

192 - Emite um sinal sonoro. 

195 - CLS. 

207 - Mostra as teclas de função na 
parte inferior da tela. 

204 - Apaga as teclas de função da 
tela. 


São variáveis de especial interesse pa- 
ra a tela: 


62387 a 62426 - Cada par de bytes 
corresponde ao endereço de 
uma BASE. Por exemplo, 
62407 e 62408 contêm o ende- 
reço de BASE(10), tabela de 
nomes da tela gráfica. 

62431 a 62438 - Conteúdo dos regis- 
tradores do VDP (Video Dis- 
play Processor). 

62441 - Cor de frente. 

62442 - Cor de fundo. 

62443 - Cor da borda. 

64695 e 64696 - Coordenada X. 

64697 e 64698 - Coordenada Y. 


us 





E CASSETE 


Apresentamos a seguir algumas roti- 
nas de comunicação com o teclado e o 
gravador cassete. A maioria dessas ro- 
tinas precisa de determinados parâme- 
tros nos registradores. 

159 - Aguarda que uma tecla seja 
pressionada pelo usuário e de- 
volve seu código ASCII ao re- 
gistrador A. Essa rotina pode 
substituir a linha em BASIC 
que geralmente aparece depois 
que a mensagem “APERTE 
QUALQUER TECLA” é im- 
pressa: 


100 IF INKEY$=" " THEN 100 


225 - Lêo cabeçalho de uma grava- 
ção em fita cassete. 

228 - Lê um byte da fita. O registra- 
dor A guardará o byte lido. 

231 - Encerra a leitura da fita. 

234 - Grava um cabeçalho na fita. 
Se A=0, o cabeçalho será 
curto; se A=1, será longo. 

237 - Grava um byte na fita. O re- 
gistrador A deverá conter o 
byte a ser gravado. 

240 - Encerra a gravação. 


é“ UERR 


Muitos endereços e rotinas útéis dos 
microcomputadores das linhas Apple e 
TK-2000 foram apresentados no ar- 
tigo da página 261. Não voltaremos a 
tratar deles, nem de alguns truques já 
mencionados, como, por exemplo, o uso 
de CALL -151 para ativar o monitor. 

O SO do Apple e do TK-2000 divide- 
se em sistema monitor e rotina de ini- 
cialização (Autostart ROM). As rotinas 
citadas aqui são do monitor. 

O SO do Apple e do TK-2000 — co- 
mo o de todos os computadores que uti- 
lizam o microprocessador 6502 — tem 


suas variáveis armazenadas nos primei- 
ros 256 bytes da ROM (página 0). Esses 
micros não permitem a modificação di- 
reta dos registradores do microproces- 
sador 6502 através do BASIC. Assim, 
as rotinas que requerem parâmetros de- 
vem ser usadas com pequenas rotinas em 
código para leitura e/ou modificação 
desses registradores. 

O comando CALL serve para cha- 
mar não só essas rotinas mas, também, 
as que são montadas em código, na 
RAM, Os endereços podem ser modifi- 
cados com POKE e lidos com PEEK. 


ROTINAS DO MONITOR 


-S28 - Imprime na tela o caractere 
cujo código está no acumula- 
dor (registrador A). 

-384 - INVERSE. 

-380 - NORMAL. 

-198 - Emite um sinal sonoro. No 
Apple tente também -1059. 

-741 - Imprime um cursor piscante 
e aguarda que se pressione 
uma tecla, colocando então 
seu código no acumulador. 
Também embaralha o gera- 
dor de números aleatórios. 

-864 - Provoca um atraso de acor- 
do com o valor do acumu- 
lador A. No Apple II a du- 
ração do atraso é de (26+ 
27*A +S*A*A)/2 microsse- 
gundos. No TK-2000 a demo- 
ra é maior. 

-1948 - Determina qual será a cor do 
gráfico de baixa resolução de 
acordo com o conteúdo do 
acumulador. 

-1953 - Adiciona o valor 3 ao código 
da cor atual para gráficos de 
baixa resolução. 

-2048 - Desenha um ponto de baixa 
resolução. O acumulador de- 
fine a coordenada vertical, e 
o registro Y determina a 
coordenada horizontal. 

-2023 - Desenha uma linha horizon- 
tal em baixa resolução — 
coordenada vertical em A, 
coordenada horizontal inicial 
em Y e coordenada horizon- 
tal final no endereço $2C. 

-2008 - Desenha uma linha vertical 
em baixa resolução — coor- 
denada horizontal em Y, 
coordenada vertical inicial 
em A e coordenada vertical 
final no endereço $2D. 

-1998 - Apaga a tela de baixa resolu- 
ção. No micro Apple, preen- 
che a tela com caracteres (O 
invertidos, se for chamada no 
modo texto. 





-1994 - Igual à anterior, só que res- rotinas em código montadas na RAM.  tinas principais, a saber: BLKIN — no 
peita as quatro linhas detex- Muitas variáveis são obtidas com endereço 42763 —, que faz a leitura de 
to no rodapé da tela. PEEK. um bloco de 255 bytes na fita; e 
-1935 - Verifica a cor de uma posição BLKOUT — endereço 42996 —, que 
da tela de baixa resolução, grava um bloco na fita. 
usando os mesmos registros Também são de utilidade para o pro- 
que a rotina do endereço Todas as rotinas destinadas ao uso gramador BASIC os endereços da pá- 
-2048. A cor do ponto retor- em gravador cassete empregam duas ro- gina 1, que listamos a seguir: 
nará no acumulador. 
-182 - Grava todos os registros do 
microprocessador 6502. Usa 
os endereços $45 a $49. 
-193 - Recupera os registros. Usa os 
endereços $45 a $49. 


ETA 


Os endereços que controlam o tipo de 
tela no Apple foram muito usados nos 
programas de INPUT e não serão repe- 
tidos. Existem, contudo, alguns outros 
endereços interessantes para gráficos de 
alta resolução. 







224/225 - Coordenada X do último 
ponto plotado. 

226 - Coordenada Y do último pon- 
to plotado. 

230 - Indica a página em que o pon- 
to deve ser plotado. O valor 
32 corresponde à página 1, e 
64, à página 2. Note que o E = 
acesso a esse endereço permi- = 
te que se desenhe na página 2, 
enquanto se mostra a página 
1 e vice-versa. 

- Indica a cor do gráfico. Seus 

valores estão na tabela apre- 
sentada a seguir. 


HCOLOR Cor BYTE 228 

0 preto 1 o 
verde 
violeta 
branco 1 
preto 2 
vermelho 170 
azul 213 
branco 2 255 








62450 - Limpa a tela (alta resolução). 

62454 - Preenche a tela de alta reso- 
lução com o byte 228. Além 
de permitir a seleção de co- 
res de fundo para seus dese- 
nhos, essa rotina produz di- 
versos padrões quando o 
byte 228 assume valores que 
não correspondem às cores 
da tabela anterior. 


a a RSS paes 


As rotinas do SO são acessadas pelo re 
comando EXEC, que também chama a q “ 
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121 - Fornece o status da porta de 


entrada e saída do gravador 
cassete. Pode assumir os valo- 
res O (porta fechada), 1 (aber- 
ta para entrada) e 2 (aberta pa- 
ra saída). Para evitar que er- 
ros de saída destruam seu pro- 
grama, verifique a porta utili- 








zando o comando PEEK an- 
tes de abrir um arquivo. 

144 - Empregado pelo sistema ope- 
racional para definir o compri- 
mento do cabeçalho. Se você 
tem problemas com o volume 
do gravador, coloque um va- 
lor mais alto nesta posição 
por meio do comando POKE. 

149/150 - Estas posições contêm o 
lapso de tempo que se segue a 
um comando MOTOR ON. 
POKE 149,0:POKE 150,1 re- 
sultará em lapso zero, útil 
ao se usar AUDIO ON/OFF 
com controle do motor. 


Lo ESTUDOS) 


Outra seção do sistema operacional 
que pode ser de interesse para o progra- 
mador BASIC é aquela que executa os 
testes de entrada e saída. Ela inclui en- 
trada do teclado e saída para a tela e a 
impressora. 

Freqientemente, a mensagem “aper- 
te qualquer tecla” surge na tela junto 
com um laço do tipo: 


100 IF INKEYS=" " THEN 100 


Essa linha pode ser substituída por 
outra bem mais curta: EXEC 44539. Se 
você quiser um cursor piscante use 
EXEC 36038. 

Convém anotar ainda os seguintes 
endereços dessa seção: 


135 - Contém o código ASCII da 

última tecla pressionada. 

338 e 345 - Colocando o valor 255 
nessas posições, antes do IN- 
KEYS, obtém-se a auto-repe- 
tição das teclas. 

282 - É a trava de letras maiúsculas. 
Você pode forçar as minúscu- 
las colocando um O ali. O va- 
lor 255 força as maiúsculas e 
qualquer outro valor desabi- 
lita o uso de <SHIFT>0. 


43304 - Contém a rotina que limpa 


Entre as variáveis relacionadas à im- 
pressora, são de maior utilidade para o 
programador aquelas que se encontram 
nos seguintes endereços: 


153 - Determina a distância entre 
itens separados por vírgulas. 
O normal é 16. 

155 - Para que a função POS(— 2) 
tenha um desempenho satisfa- 
tório, esse endereço deve con- 


ter a largura do papel utiliza- 
do (40, 80 ou 132). 

330 - Contém o número de caracte- 
res enviados pelo computador 
para assinalar um final de li- 
nha (EOL). Normalmente, 
apenas um caractere é 
enviado. 

331 a 334 - Contêm os caracteres do 
EOL: CR (13), LF (10), 0, 0. 
Esses caracteres podem ser al- 
terados para corresponder a 
um certo tipo de impressora. 

328 - Contém o indicador de ali- 
mentação automática de li- 
nha. Se seu valor for 0, o 
computador faz o papel avan- 
çar automaticamente com o 
retorno do carro. Qualquer 
outro valor leva à impressão 
dos caracteres do EOL após a 
do número de caracteres indi- 
cados por 155. 


CR 


O programador BASIC não tem 
acesso às rotinas do SO que dizem res- 
peito aos gráficos. Mas existem alguns 
endereços que, junto com os comandos 
PEEK e POKE, podem ser úteis. 


182 - PMODE: número do modo gráfico. 
183/184 - Endereço final da tela, 
186/187 - Endereço inicial da tela. 

188 - Início da página 1. 

200 - Coordenada X do cursor gráfico. 
202 « Coordenada Y do cursor gráfico. 
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EXEC 43486 - Atualiza todos os joys- 
ticks; soluciona os problemas que 
possam ocorrer com o comando 
JOYSTK. 

EXEC 40999 - Equivale ao botão RESET. 

EXEC 41142 - Reinicialização total: 
equivale a desligar e ligar a máqui- 
na novamente. 

EXEC 46481 - Executa uma “coleta de 
lixo” controlada nas variáveis al- 
fanuméricas, evitando as desagra- 
dáveis pausas que ocorrem inespe- 
radamente nos programas que as 
incluem. A quantidade de espaço 
string remanescente pode ser cal- 
culada com 


PEEK (35) *256+PEEK (36) -PEEK(33)* 
256-PEEK (34) 


O valor normal para o espaço 
string é 200. A não observância 
desse limite pode causar erros do 
tipo OS (out of string, que quer di- 
zer: fim do espaço para string). 











Qualquer programa que manipule 
grande quantidade de informação deve 
armazená-la da maneira apropriada. No 
artigo publicado à página 128, tratamos 
do armazenamento de uma pequena lis- 
ta de telefones em linhas DATA. O pro- 
grama ali apresentado permite ao usuá- 
rio procurar e imprimir qualquer item 
da lista. Porém, para qualquer modifi- 
cação na lista, é necessário interromper 
a execução do programa e editar as li- 
nhas DATA. Além disso, os dados só 
podem ser gravados junto com o pro- 
grama que os manipula. 

Essa dependência dos dados ao pro- 
grama muitas vezes é indesejável. Para 
evitá-la, convém guardar os dados em 
fita cassete ou disco flexível. A retupe- 
ração das informações é tão rápida 
quanto no caso das linhas DATA, mas 
a alteração e a edição de dados tornam- 
se extremamente mais fáceis. Para 
efetuá-las, o usuário não precisa saber 
nada a respeito do programa. 

Como em muitos programas aplica- 
tivos listados em INPUT, os dados são 
armazenados em arquivos, na fita ou 
disquete. O banco de dados, o orçamen- 
to doméstico, a agenda eletrônica e a 
planilha são exemplos de programas que 
envolvem grande quantidade de infor- 
mações. Se observarmos suas listagens 
com atenção, poderemos identificar as 
linhas que tratam da gravação e leitura 
dos dados. Elas ocupam uma porção 
mínima do programa, se comparadas às 
demais seções, encarregadas, entre ou- 
tras coisas, de reservar espaço na memó- 
ria, estabelecer a comunicação com o 
usuário e manipular os dados. 

Quando armazenamos os dados à 
parte, as possibilidades de utilização do 
programa aumentam bastante, esten- 
dendo-se à criação e alteração de vários 
arquivos diferentes, com quantidades 
diversas de registros e campos. 

Empregamos em nosso programa o 
método de armazenagem sequencial, cu- 
jo princípio é muito simples. Como vo- 
cê verá, ele permite que os dados sejam 
convertidos a um formato que se adap- 
ta a diversos programas, e até mesmo a 
computadores diferentes. 

O arquivo segiencial caracteriza-se 
pela armazenagem dos dados em série, 
dispostos um após o outro e separados 





COMO LIDAR 
COM ARQUIVOS 


apenas por um byte. Toda a informa- 
ção deve estar na memória antes de ser 
transferida ao arquivo. 

O» primeiro passo para a criação de 
um arquivo sequencial consiste na aber- 
tura de um canal de comunicação com 
o dispositivo que vai armazenar os da- 
dos — cassete ou drive. Isso é feito por 
intermédio do comando OPEN, numa 
sintaxe que varia conforme o tipo do mi- 
crocomputador. Para conhecer os co- 
mandos mais utilizados, volte ao artigo 
da página 688. 

Aqui, explicamos em detalhe as téc- 
nicas envolvidas na criação de arquivos, 
de modo que você poderá incorporá-las 
facilmente a seus programas. 


oo RU 


O programa a seguir mostra como 
criar uma versão mais sofisticada da lis- 
ta de telefones mencionada anterior- 
mente. Ao utilizá-la, você poderá mo- 
dificar, sem maiores dificuldades, as 
mensagens dos comandos INPUT e o 
formato das matrizes, para que aceitem 
outro tipo de informação. 

Os dados são fornecidos nesta or- 
dem: nome, sobrenome e número do te- 
lefone. Como números de telefone po- 
dem conter espaços, hifens e parênteses, 
convém dar-lhes a forma de cadeia de 
caracteres. Se você quiser alterar o pro- 
grama para lidar com outros tipos de in- 
formação, poderá usar também matri- 
zes numéricas e alfanuméricas. Um ar- 
quivo recebe dados em qualquer forma- 
to e em qualquer ordem. O importante 
é que a leitura se faça nessa mesma or- 
dem e que os dados sejam colocados no 
tipo adequado de variável. 

Embora seja possível armazenar in- 
formações diretamente no arquivo, é 
mais conveniente que coloquemos os da- 
dos em uma matriz e depois guardemos 
toda a matriz no arquivo. 

A primeira parte do programa tem 
um pequeno laço que possibilita a en- 
trada dos dados. Digite quantos nomes 
e números quiser — o limite é a dimen- 
são da matriz, especificada na linha 10. 
Modifique a dimensão, caso precise de 
um número de itens superior a cinguen- 
ta. Quando tiver entrado todos os da- 


Abra um canal de comunicação com o 
drive ou o cassete e mande seus 
valiosos dados para o arquivo. Saber 
manipular essa ferramenta é 
fundamental para certas aplicações. 




















































dos, digite ENTER ou RETURN e o la- 
ço de entrada será interrompido. 

A segunda parte do programa — da 
linha 100 em diante — grava os dados 
no arquivo. Daremos explicações refe- 
rentes a seu funcionamento nas várias 
versões do programa. 


10 DIM A$(50,15): DIM BS(5O0, 
15): DIM T$(50,12): DIM N(1) 
20 LET N=0 


30 LET N=N+1 
INPUT "PRIMEIRO NOME ";AS( 


INPUT "SEGUNDO NOME ";BS(N 


INPUT 
"TS(N) 
70 IF AS(N)<>” 

” AND N<50 THEN GOTO 30 
80 CLS : PRINT "SALVANDO DADO 
S AGORA” 

100 SAVE "CONT" DATA N() 

110 SAVE "P.NOMES” DATA AS() 

120 SAVE "S.NOMES” DATA B$() 

130 SAVE "N.TELEF.” DATA TS() 

140 PRINT "DADOS GRAVADOS” 

150 STOP 

Para a gravação, o Spectrum utiliza 

o comando SAVE seguido do nome do 

arquivo. Note que cada matriz é grava- 

da como um arquivo distinto, receben- 
do um nome especial. A instrução DA- 

TA seguida do nome da matriz deve vir 

depois do nome do arquivo. 
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DIM AS(50) ,BS(50), TS(50) 

30 N=N+1 

INPUT "PRIMEIRO NOME” ;AS (N) 
INPUT "SEGUNDO NOME” ;BS(N) 
INPUT “TELEFONE” ;T$S(N) 

IF AS(N)<>"" AND N<50 THEN 3 


"NUMERO DO TELEFONE 


CLS:PRINT "GRAVANDO OS DADOS 


100 OPEN "CAS:ARQ” FOR OUTPUT A 
sa 
110 
120 
130 
140 
150 


PRINT 41,N 
FOR L=1 TO N 
PRINT 41,AS(L),BS(L), TS(L) 
NEXT 
CLOSE 41 
160 PRINT "DADOS GRAVADOS” 
170 END 
Os dados entrados na primeira parte 
do programa são colocados em três va- 


mn VANTAGENS DA UTILIZAÇÃO E FECHAR ARQUIVOS 
DE ARQUIVOS GRAVAÇÃO E 
mn ARQUIVOS EM FITAS DE DADOS 
E DISQUETES DE ARQUIVO 
m COMO ABRIR O USO DOS DADOS 











Como gravar dados em fita cassete 
no Apple e no TK-2000? 

Para contornar os problemas de ar- 
quivamento no Apple e no TK-2000, a 
melhor solução é comprar um drive de 
discos flexíveis. Mas existem algumas 
alternativas — nenhuma milagrosa, po- 
demos adiantar. 

Esses micros só permitem a grava- 
ção de uma variável indexada unidi- 
mensional e não montam na fita um ar- 
quivo propriamente dito. O leitor pode 
achar que isso já é suficiente para al- 
gumas aplicações. Porém, a lentidão e 
o grande espaço que uma pequena va- 
riável ocupa na fita certamente logo 
vão desencorajar os mais afoitos. 

Em nossa opinião, a saída mais con- 
veniente para quem não pode adquirir 
um drive é colocar os dados em um 
buffer no alto da memória, usando o 
comando POKE. Em seguida, basta en- 
trar no monitor de linguagem de máqui- 
na — com CALL -151 — e gravar o buf- 
fer por intermédio do comando W do 
monitor. 











riáveis indexadas: AS( ), B$( ) e TS ). 
Na linha 100, abrimos um arquivo para 
a gravação de dados em fita cassete por 
intermédio da instrução OPEN “CAS: 
mome do arquivo”' FOR OUTPUT AS 
* número do arquivo. 

A instrução PRINT 41 significa 

“imprima o próximo item no arquivo”. 
Assim, a linha 110 grava o valor de N 
— total de números e nomes da lista —, 
para que seja usado posteriormente na 
leitura do arquivo. 
O laço entre as linhas 120 e 140 utili- 
za a mesma instrução PRINT %1 para 
guardar o conteúdo das três variáveis in- 
dexadas. A instrução CLOSE *1, por 
sua vez, fecha o arquivo. 


DIM AS (50) ,B$(50), TS(50) 

DS = CHR$ (4) 

N=N+1 

INPUT "PRIMEIRO NOME ";AS(N 


INPUT "SEGUNDO NOME ";BS(N) 
INPUT "TELEFONE ";TS(N) 
IF AS(N) < >"" ANDN<õS50 





“140 


THEN 30 

80 HOME : PRINT "GRAVANDO OS D 
ADOS” 

100 PRINT D$;"OPEN ARQUIVO” 
110 PRINT D$;"WRITE ARQUIVO” 
120 PRINT N 

130 FORL =1 TON 

140 PRINT AS(L): PRINT BS(L): 


PRINT TS(L) 


150 NEXT L 

160 PRINT D$;"CLOSE ARQUIVO” 
170 PRINT "DADOS GRAVADOS” 
180 END 


Trataremos apenas da gravação em 
disquete, pois a armazenagem de arqui- 
vos em fita no Apple e no TK-2000 é 
muito precária. Como você deve se lem- 
brar, para controlar o drive sem sair do 
BASIC Applesoft utilizamos o caracte- 
re de controle CHR$(4), que foi colo- 
cado na variável D$ (linha 5). 

A primeira parte do programa, que 
cuida da entrada dos dados, coloca-os 
em três variáveis indexadas: AS), 
BS( ) e TS( ). Um arquivo é aberto na 
linha 100 através do caractere de con- 
trole, seguido do comando OPEN e do 
nome do arquivo (entre aspas). 

O comando WRITE, na linha 110, 
permite a gravação de dados no arqui- 
vo que foi aberto. Todos os comandos 
PRINT que aparecem em seguida escre- 
vem no arquivo e não na tela. O coman- 
do CLOSE fecha o arquivo e devolve a 
função original ao PRINT. 


10 DIM AS(50),B$(50),T$(50) 

30 N=N+1 

40 INPUT” PRIMEIRO NOME ";AS(N) 
50 INPUT"SEGUNDO NOME ";BS(N) 
60 INPUT"NUMERO DO TELEFONE ";T 





S(N) 

70 IF AS(N)<>"”" AND N<50 THEN 3 
o 

80 CLS:PRINT"SALVANDO DADOS AGO 
RA” 


Use esta seção para arquivos em fita 
cassete: 






100 OPEN "0",4-1, "ARQUIVO" 
110 PRINT 4-1,N 
120 FOR L=1 TO N 


130 
140 
150 


PRINT 4-1,AS(L) ,BS(L), TS(L) 
NEXT 

CLOSE 4-1 

160 PRINT"DADOS GRAVADOS” 

170 END 


Utilize esta seção para arquivos em 
disquete: 


100 OPEN "O”,61,"ARQUIVO” 

110 PRINT 41,N 

120 FOR L=1 TO N 

130 PRINT 41,AS(L),BS(L), TS(L) 
NEXT 


150 CLOSE 41 


160 PRINT"DADOS GRAVADOS” 
170 END 


A primeira seção do programa, que 
trata da entrada dos dados, é comum 
aos dois tipos de dispositivo, ao contrá- 
rio da segunda seção, incumbida de gra- 
var os dados. 

Na versão para fita cassete, um ar- 
quivo é aberto pela instrução OPEN 
“O” que estabelece uma linha de comu- 
nicação com o dispositivo de armazena- 
mento para a saída de dados. Ela é se- 
guida por um 4-1, que diz ao compu- 
tador que se trata de gravador cassete, 
e pelo nome do arquivo entre aspas. 

O comando PRINT * —1 significa 
“imprima o próximo valor no arquivo”. 
Assim, a linha 110 grava o valor de N 
— o número de telefones da lista. Para 
o processo de leitura, que descrevemos 
a seguir, é importante que esse valor en- 
cabece o arquivo. 

A linha 130 escreve cada um dos itens 
no arquivo — observe que eles são se- 
parados por meio de vírgulas. Finalmen- 
te, o comando CLOSE 4 — 1 fecha o ar- 
quivo (linha 150). 

A criação de arquivos em discos fle- 
xíveis é muito semelhante, empregando 
os mesmos comandos. A única diferen- 
ça é o número utilizado após o sinal *. 
OPEN “0”, *1, seguida do nome do 
arquivo entre aspas, abre um arquivo; 
PRINT 41 guarda um item nele e CLO- 
SE *1 trata de fechá-lo. 

Como você pode notar, na linha 130 
os itens estão separados por ponto e vir- 
gula. Embora se permita o uso de vir- 
gulas, aquele é o modo mais econômi- 
co de armazenar dados no disco. 

Os disquetes admitem a criação de 
mais de um arquivo ao mesmo tempo, 
pois, ao contrário do gravador cassete, 
o drive é capaz de procurar a porção 
adequada para ali gravar os dados. As- 
sim, podemos numerar os arquivos com 
*1, 42, 43 e assim por diante, en- 
quanto o cassete é sempre numerado 
com & — 1 — um PRINT & — 2 manda- 
rá o dado para a impressora. 


a 


O programa que recupera as infor- 
mações gravadas no arquivo é exata- 
mente O inverso do programa anterior. 
Ele imprime os dados lidos na tela para 
que possamos conferi-los. 


200 CLEAR 
210 DIM N(1): LOAD "CONT" DATA 
NO 





215 DIM AS(N(1),15): DIM BS(N( 
1),15): DIM T$(N(1),12) 

220 LOAD "P.NOMES” DATA AS() 
230 LOAD "S.NOMES” DATA BS() 
240 LOAD "N.TELEF.” DATA TS() 
250 FOR L=1 TO N(1) 

260 PRINT AS(L),BS(L), TS(L) 
270 NEXT L 


Para utilizar esse programa, rebobi- 
ne a fita até o começo do arquivo gra- 
vado pelo primeiro programa. Digite 
RUN 200 para recuperar os dados; não 
rode o programa inteiro novamente. 

A linha 200 apaga os antigos valores 
das variáveis, para que só os obtidos no 
arquivo sejam impressos. A linha 210 di- 
mensiona uma nova variável N( ) com 
um elemento. Ela será usada para recu- 
perar o valor de'N gravado anteriormen- 
te. As outras variáveis são dimensiona- 
das de acordo com o valor de N( ). Co- 
nhecendo o número exato de elementos 
do arquivo, não tentaremos ler além do 
seu final. 

O resto do programa é fácil de enten- 
der: simplesmente substituímos os SA- 
VE do primeiro programa por LOAD. 
É preciso fechar um arquivo aberto pa- 
ra gravação, mas não para leitura, 


“1º; RS 


200 CLEAR 2000:0PEN"CAS:ARQUIVO 
"FOR INPUT AS 41 

210 INPUT$41,N:DIM AS(N),BS(N),T 
S(N) 

220 FOR L=1 TO N 

230 INPUT 41,AS(L) ,BS(L), TS(L) 
235 PRINT AS(L);BS(L);TS(L) 

240 NEXT L 

250 CLOSE 41 

Para usar esse programa, rebobine a 
fita até o começo do arquivo gravado 
pelo primeiro programa. Digite RUN 
200 para ler o arquivo; não rode o pro- 
grama inteiro novamente. 

A linha 200 apaga as variáveis origi- 
nais; dessa maneira, o programa impri- 
me só aquilo que obtiver no arquivo. Es- 
te é aberto para leitura pela instrução 
DPEN “CAS: FOR OUTPUT AS, se- 
guida do valor adequado. 

A linha 210 Iê a quantidade de nomes 
armazenada no arquivo — N — e utili- 
za esse valor para dimensionar as variá- 
veis. N também controla o laço de lei- 
tura do arquivo, para que ele seja recu- 
perado até o final. Note que os valores 
lidos são colocados nas variáveis na or- 
dem em que foram gravados, separados 
pelo mesmo tipo de sinal — no caso da 
fita, a vírgula. O arquivo deve ser fecha- 
do após ser lido. 


SEE SS) 


200 DS = CHR$ (4): PRINT D$;"O 


PEN ARQUIVO” 
210 PRINT D$;"READ ARQUIVO” 


220 INPUT N: DIM AS(N),BS(N),T 
S(N) 

230 FORL = 1 TON 

240 INPUT AS(L): PRINT AS(L) 
250 INPUT BS(L): PRINT BS(L) 
260 INPUT TS(L): PRINT TS(L) 
270 NEXT L 

280 PRINT D$;"CLOSE ARQUIVO” 


A linha 200 é encarregada de apagar 
os antigos valores das variáveis; dessa 
maneira, o programa imprime somente 
os valores que obtiver no arquivo. Este 
é aberto para leitura pela instrução 
OPEN seguida de REA! 

A linha 210 lê a quantidade de nomes 
armazenada no arquivo — N — e utili- 
za esse valor para dimensionar as variá- 
veis. N também tem como função con- 
trolar o laço de leitura do arquivo, pa- 
ra que ele seja recuperado até o final. 
Note que os valores lidos são colocados 
nas variáveis na mesma ordem em que 
foram gravados, separados pelo mesmo 
tipo de sinal — no caso da fita, a vírgu- 
la. O arquivo deve ser fechado após ser 


lido. 


Para fita cassete, use esta seção: 





200 CLEAR 2000:0PEN"I”,4-1,"ARQ 
UIvO” 

210 INPUT$4-1,N:DIM AS(N),B$(N), 
TS(N) 

220 FOR L=1 TO N 

230 INPUT 4-1,AS(L) ,BS(L), TS(L) 
235 PRINT AS(L);BS(L);TS(L) 

240 NEXT L 

250 CLOSE 4-1 


No caso de discos flexíveis, recorra 
a esta outra: 


200 CLEAR 2000:0PEN "0”,41,"ARQ 
UIvo” 

210 INPUT41L,N:DIM AS(N),BS(N),T 
S(N) 

220 FOR L=1 TO N 

230 INPUT 41,AS(L) ,BS(L), TS(L) 
235 PRINT AS(L) ;BS(L);TS(L) 

240 NEXT L 

250 CLOSE 41 


Para executar essa parte do progra- 
ma, rebobine a fita até o início do ar- 
quivo. Digite o comando RUN 200 pa- 
ra recuperar os dados; não rode o pro- 
grama inteiro novamente. 

A linha 200 apaga os antigos valores 
das variáveis; dessa maneira, o progra- 
ma imprime apenas os valores que ob- 
tiver no arquivo. Este é aberto para lei- 
tura pela instrução OPEN “TI” seguida 
do valor adequado — & — 1 para fita e 
1 para disquete. 





A linha 210 Iê a quantidade de nomes 
armazenada no arquivo — N — e utili 
za esse valor para dimensionar as vari; 
veis. N também controla o laço de lei- 
tura do arquivo, para que ele seja recu- 
perado até o final. Note que Os valores 
lidos são colocados nas variáveis na or- 
dem em que foram gravados, separados 
pelo mesmo tipo de sinal — no caso da 
fita, a vírgula; no do disco, ponto e vír- 
gula. O arquivo deve ser fechado após 
ser lido. 


7 RE 


O último programa usou a variável 
N para controlar a leitura do arquivo. 
Contudo, nem sempre é possível saber 
de antemão quantos itens devem ser li- 
dos. Um modo de contornar o proble- 
ma é usar um marcador para sinalizar 
o fim do arquivo. O TRS-Color e o 
MSX colocam automaticamente um si- 
nal desse tipo — EOF — no final, sem- 
pre que uma instrução CLOSE é en- 
contrada. 

Assim os usuários dos microcompu- 
tadores TRS-Color e MSX podem mo- 
dificar o programa anterior para que ele 
leia o arquivo desde o início, parando 
sempre que encontrar o sinal que indi- 
ca fim de arquivo — EOF. 

Listamos o programa a partir da li- 
nha 100 para que você possa compará- 
lo à versão já dada e escolher o método 
que considerar melhor. 

Modifique as linhas conforme a lis- 
tagem abaixo e, depois, tente gravar e 
ler o arquivo novamente. 


hay 








100 OPEN "CAS:ARQUIVO"FOR OUTPU 
TAS H 

110 N=0 

120 N=N+1 

130 PRINT 41,AS(N),BS(N),TS(N) 

140 IF AS(N)<>"” AND N<50 THEN 

120 

150 CLOSE 41 

160 PRINT "DADOS GRAVADOS” 

170 END 

200 CLEAR 2000;DIM AS(50),BS(50 


), T$(50) OPEN "CAS:ARQUIVO” FOR 
INPUT AS 41 

230 N=N+1:INPUT 41,AS(N),BS(N), 
TS(N) 

235 PRINT AS(N);BS(N);TS(N) 

240 IF EOF(1)=0 THEN 230 

250 CLOSE 41 





Apague as linhas 210 e 220 e modifi- 
que as demais. Para a fita: 
















































OPEN "0”,4-1,"ARQUIVO” 
N=0 

N=N+1 

PRINT 4-1,AS(N),BS(N), TS(N) 
IF AS(N)<>"” AND N<50 THEN 


110 
120 
130 
140 
120 
150 
160 


CLOSE 4-1 

PRINT "DADOS GRAVADOS” 

170 END 

200 CLEAR 2000;DIM AS(50) ,BS(50 
). TS(50) :OPEN "I”,4-1,"ARQUIVO” 
230 N=N+1: INPUT 4-1,AS(N),BS(N) 
«TS(N) 

235 PRINT AS(N);BS(N);TS(N) 

240 IF EOF(-1)=0 THEN 230 

250 CLOSE 4-1 


Para o disquete: 


100 
110 
120 
130 
140 
120 
150 
160 


OPEN "0”,41,"ARQUIVO” 

N=0 

N=N+1 

PRINT 41,AS(N),BS(N),TS(N) 
IF AS(N)<>"” AND N<50 THEN 


CLOSE 41 

PRINT "DADOS GRAVADOS” 

170 END 

200 CLEAR 2000;DIM AS(50),BS(50 
). TS (50) :OPEN "0”,41,"ARQUIVO” 
230 N=N+1: INPUT 41,AS(N),BS(N), 
TS(N) 

235 PRINT AS(N);BS(N);TS(N) 

240 IF EOF(1)=0 THEN 230 

250 CLOSE 41 


A linha 240 de ambos os programas 
verifica a ocorrência de um sinal de fim 
de arquivo — EOF. 


PEA A 


Para indicar o final do arquivo, os 
usuários dos microcomputadores da li- 
nha Apple podem colocar ali um sinali- 
zador arbitrário. Já no caso do Spec- 
trum, detectamos o fim do arquivo de 
outra maneira: após entrar todos os da- 
dos no laço inicial, digitamos uma se- 
nha arbitrária. Esta pode ser ZZZ, 
— 999, a palavra FIM ou qualquer ou- 
tra coisa que normalmente não se inclui 
entre os dados de um arquivo. 

Altere as próximas linhas e veja co- 
mo utilizar um sinalizador desse tipo. 
Ao digitar os dados do arquivo, entre 
a palavra FIM após o último número de 
telefone e ENTER ou RETURN após as 
outras duas solicitações. 


70 TF AS(N)<>"FIM” AND N<50 THE 
N30 

140 IF AS(N)<>"FIM” AND N<50 TH 
EN 120 

240 IF AS(N)<>"FIM” AND N<50 TH 
EN 230 





10 DIM AS(50),BS(50) TS (50) 

20 DS = CHRS (4) 

30 N=N+1 

40 INPUT "PRIMEIRO NOME ";AS(N 
, 

50 INPUT "SEGUNDO NOME ";B$ (N) 
60 INPUT "TELEFONE ";TS(N) 

70 IF AS(N) < > "FIM" AND N < 
50 THEN 30 
80 HOME : 
aDos” 

100 PRINT D$;"OPEN ARQUIVO” 
110 N = 0 

120 N=N+1 

130 PRINT DS;"WRITE ARQUIVO” 
140 PRINT AS(N): PRINT BS(N): 
PRINT TS(N) 

150 IF AS(N) < 
< 50 THEN 120 
160 PRINT D$;"CLOSE ARQUIVO” 
170 PRINT "DADOS GRAVADOS” 

180 END 

200 DS = CHR$ (4): PRINT D$;"O 
PEN ARQUIVO” 

210 PRINT DS;"READ ARQUIVO” 
220 DIM AS(50),BS(50).TS(50) 
225 L=0 

230 L=L+1 

240 INPUT AS(L): PRINT AS(L) 


PRINT "GRAVANDO OS D 


> "FIM" AND N 



























250 
260 
270 
< 50 
280 


INPUT B$S(L): PRINT B$S(L) 

INPUT TS(L): PRINT TS(L) 

IF AS(L) < > “FIM” AND L 
THEN GOTO 230 

PRINT DS;"CLOSE ARQUIVO” 


70 IF AS(N)<>"FIM” 
N 30 
140 IF AS(N)<>"FIM” AND N<50 TH 
EN 120 
240 IF AS(N)<>"FIM” 
EN 230 


O DOS DADOS 


Armazenados em um arquivo, ou se- 
ja, fora de um programa BASIC, os da- 
dos podem ser utilizados por vários pro- 
gramas diferentes. Qualquer uma das 
rotinas de ordenação apresentadas nos 
artigos das páginas 468 e 738, por exem- 
plo, servem para ordenar alfabeticamen- 
te nossa lista telefônica. Uma vez feito 
isso, podemos localizar rapidamente de- 
terminado item da lista, por meio de 
uma busca binária, como mostra o ar- 
tigo da página 930. 


AND N<50 THE 


AND N<50 TH 








PROGRAMA PARA 
TESTE DO VÍDEO 


Se você sentir a vista cansada após 
fixar por algum tempo o vídeo do micro, 
talvez seja a hora de providenciar 

um outro monitor. Use este programa 
para testar a qualidade da imagem. 


Até pouco tempo atrás, o preço de 
um monitor de vídeo colocava esse pe- 
riférico totalmente fora do alcance da 
maioria dos proprietários de micros, 
obrigando-os a utilizar aparelhos co- 
muns de TV como saída de vídeo. 

Os televisores “apresentam vários in- 
convenientes: a imagem pisca e oscila 
continuamente de modo imperceptível, 
o que provoca dores de cabeça e cansa- 
ço visual após um certo tempo. Outro 
problema é causado pela baixa resolu- 
ção da tela, que resulta em perda de de- 
talhes e definição da imagem em textos 
e gráficos. 

Entretanto, o custo relativo dos mo- 
nitores profissionais de vídeo tem caí- 
do bastante nos últimos anos, tornan- 
do esse periférico cada vez mais acessí- 
vel. E, se você ainda não tem um, vale 
a pena ir pensando em adquiri-lo, pois 
a qualidade da imagem é bem superior 
à de um televisor. 

No artigo da página 851, descreve- 
mos as características técnicas que dife- 
renciam um televisor de um monitor e 
falamos dos aspectos que devem ser con- 
siderados na escolha de um bom moni- 
tor. Não há dúvida, porém, de que o 
melhor critério para essa seleção ainda 
é o “Teste de São Tomé” — ou seja, 
ver como fica a imagem no vídeo, quan- 
do o conectamos ao nosso computador. 
Como há problemas de compatibilida- 
de entre monitores e micros, é funda- 
mental que você use o seu modelo na ho- 
ra desse teste. 

O programa listado neste artigo foi 
projetado para testar as características 
do vídeo em diferentes linhas de compu- 
tadores. A versão para o Spectrum mos- 
tra um único padrão visual na tela; já 
as versões para o!MSX, Apple, TK-2000 
e TRS-Color mostram duas ou três te- 
las sucessivas, cada qual projetada pa- 
ra testar um aspecto do funcionamento 
do vídeo. 


Os padrões visuais variam de compu- 
tador para computador, mas contêm ba- 
sicamente os elementos utilizados em tes- 
tes como os que são transmitidos em ho- 
ras mortas pelas emissoras de TV: cír- 
culos e linhas espaçadas a curta distân- 
cia, para testar o poder de definição de 
tela; padrões colocados nos cantos da te- 
la, para testar distorções marginais da 
imagem, e barras ou faixas de todas as 
cores disponíveis. 

Ao rodar o programa de teste, obser- 
ve primeiro se a imagem está bem cen- 
trada. Em alguns computadores, o ge- 
rador de vídeo não deixa margem na te- 
la, e, se ela estiver mal ajustada, haverá 
uma perda de gráficos e textos junto à 
borda. Muitos monitores e televisores 
dispõem de botões giratórios de ajuste 
de centralização e expansão de imagem, 
localizados atrás do aparelho.'Você po- 
derá usá-los para conseguir um resulta- 
do melhor. 

Verifique em seguida se as linhas dos 
retângulos junto às bordas da imagem 
não sofrem uma grande distorção (as li- 
nhas retas se transformam em arcos con- 
vexos: quanto menor o raio destes, maior 
a probabilidade de que o monitor seja 
de baixa qualidade). 

Todas as linhas aparecem nitidamen- 
te separadas umas das outras? Se isso 
não ocorrer, há problemas de definição 
na imagem, o que poderá prejudicar a 
legibilidade de textos. Em muitos mo- 
nitores e televisores, a resolução é me- 
lhor no sentido horizontal do que no ver- 
tical, ou vice-versa, devido à maneira 
como os pontos coloridos de fósforo são 
dispostos na tela, Monitores de boa qua- 
lidade têm resolução igual em todas as 
direções. 

Os círculos que o programa desenha 
não são perfeitos, tendendo a assumir 
uma forma ovalada? Este é um bom tes- 
te para uma das características dos ví- 
deos de boa qualidade, a chamada ra- 
zão de aspecto: para obtê-la, dividimos 
o diâmetro transversal do círculo pelo 
diâmetro vertical. Idealmente, é claro, 
o resultado deverá ser 1. 

Verifique também se as linhas apare- 
cem traçadas com nitidez ou se as bor- 
das e cantos parecem borrados. Um pro- 
blema desse tipo pode prejudicar a legi- 
bilidade de um texto na tela. 








E A IMAGEM ESTÁ CENTRADA? 
DISTORÇÕES JUNTO ÀS BORDAS 
DEFINIÇÃO DA IMAGEM 
RAZÃO DE ASPECTO 
DEFINIÇÃO DAS CORES 





Se o monitor ou TV for colorido, 
examine as cores das barras (ou das le- 
tras, no programa para o TRS-Color) na 
segunda parte do teste. Os cantos e bor- 
das das barras coloridas devem ser bem 
definidos, e a cor de uma barra não de- 
ve extravasar para outra. Como a den- 
sidade, brilho e a saturação das cores 
podem variar de vídeo para vídeo, ex- 
perimente mudar os controles do apa- 
relho, até obter a melhor combinação. 
Lembre-se de que diferentes ajustes de 
cor costumam ser necessários, confor- 
me a aplicação: texto puro, por exem- 
plo, requer pouca cor e brilho médio; 
um jogo exige muita cor e brilho. 

Os programas para o MSX e o TRS- 
Color permitem variar a cor de fundo na 
tela pressionando seguidamente a tecla 
<ENTER>, na última parte do progra- 
ma. Para interrompê-lo, pressione 
<BREAK> ou <CTRL> <STOP>. 

No Apple e no TK-2000, os caracte- 
res de texto não podem ser coloridos. 
Assim, para testar a qualidade do vídeo 
quanto a este aspecto, interrompa o pro- 
grama e liste-o na tela. Observe se as le- 
tras aparecem em branco puro e se não 
há nenhum efeito de “arco-íris” (letras 
multicoloridas e borradas). 

Se você conhece um pouco de progra- 
mação gráfica em BASIC, não terá ne- 
nhuma dificuldade em modificar os pro- 
gramas aqui apresentados para torná-los 
mais completos ou atraentes. Procure 
alterar a combinação de cores de frente 
e de fundo, para verificar o efeito, gere 
mais uma tela de textos e caracteres grá- 
ficos etc. 





10 PMODE 4,1:PCLS:SCREEN 1,1 

20 FOR K=0 TO 1:FOR J=0 TO 15 8 
TEP K+2 

30 LINE (K*16+],K*16+])- (255-K* 
16-J,191-K*16-J) , PSET,B 

40 NEXT J,K 

+50 FOR K=100 TO 154 STEP 2:LINE 
(K,85)-(K,105), PSE 
32)-(141,K-32), PSE' E: 

60 FOR K=1 TO 100 STEP 10:CIRCL 
E(127,95),K,5:NEXT 

70 IF INKEY$="" THEN 70 

80 PMODE 1,1:PCLS:SCREEN 1,0 

90 FOR J=0 TO 191 STEP 48:COLOR 
J/48+1 








28 APLICAÇÕES 28 


Padrões de teste de vídeo utilizados em diferentes computadores. 


100 LINE(0,J)-(255,U+47),PSET,B 
F:NEXT 

110 FOR J=0 TO 255 STEP 63:FOR 
K=0 TO 63 STEP 4:COLOR J/63+1 
120 LINE(K+J,0)-(K+J,191), PSET 
130 NEXT K,J 

140 IF INKEYS="" THEN 140 

150 S=1-S: SCREEN 1,8S:GOTO 140 


5 FOR p=0 TO 7: FOR i=0 TO 7 
: IF p=i THEN GOTO 200 
6 PAPER p: INK i: BORDER O: 
cLs 
10 FOR n=0 TO 12 STEP 2: PLOT 
nn: DRAW 0,175-2*n: DRAW 255 
-2*n,0: DRAW 0,-(175-2*n): 
DRAW -(255-2*n),0: NEXT n 
20 FOR n=10 TO 20 STEP 2: 
CIRCLE INK 1;128,85,n: NEXT 


n 
30 FOR n=5 TO 7: PRINT INK à 





;AT n,8;” ";AT n+10,8;” ": 

NEXT n 

40 PRINT AT 4, FOR m=0 TO 

1: FOR n=0 TO PRINT PAPER 
ro": NEXT nº: 


n NEXT m 
50 PRINT AT 18,8;: 








: FOR m=0 TO 
1: FOR n=0 TO 7: PRINT PAPER 
BE” NEXT n: NEXT m 
55 PRINT AT 2, FOR n=0 TO 
2: FOR m=0 TO PRINT INK m 





; PAPER p;CHRS (64+n*7+m);: 


Ds NEXT m: NEXT n 





57 PRINT AT 19,4;: FOR n=0 TO 


2: FOR m=0 TO 7: PRINT 
BRIGHT 1; INK m; PAPER p;CHRS 
(64+n*7+m);: NEXT m: NEXT n 
60 FOR n=0 TO 7: BORPºR n: 
PAUSE 50: NEXT n: PAUSE 50 
200 NEXT 1: NEXT p 


10 S=S+1:COLOR 15,5,S:SCREEN 2 
15 CL=15:IF S=15 THEN CL=1 

20 FOR K=0 TO 1:FOR J=0 TO 15 5 
TEP K+2 

30 LINE(K*16+J,K*16+J)-(255-K*1 
6-J,191-K*16-J) ,CL,B 

40 NEXT J,K 

50 FOR K=100 TO 154 STEP3:LINE( 
K,85)-(K,105),CL:NEXT 

55 FOR K=65 TO 135 STEP3:LINE(1 
40,K)-(114,K),CL:NEXT 

60 FOR K=1 TO 100 STEP 10:CIRCL 
E(127,95),K,CL:NEXT 

70 IF INKEYS="" THEN 70 

80 COLOR 15,8,S:SCREEN 2 

90 FOR J=0 TO 191 STEP 13 

100 LINE(0,J)-(255,J+11),J/13+1 
+ BF: NEXT 


110 IF INKEY$="" THEN 110 
130 goto 10 
10 HGR2 :LX = 279:LY = 180 


20 FOR XO = 0 TO 20 STEP 4 








25 LET YO = XO:LX = LX - 
= LY - 10 

30 HPLOT XO,Y0 TO XO + LX,YO T 
O X0 + LX,YO + LY TO XO,Y0 + LY 
TO X0,Y0 

40 NEXT X0 

50 FOR Y = 60 TO 100 STEP 2 

55 HPLOT 110,Y TO 150,Y 
57 HPLOT 50,Y TO 70,Y: 
90,Y TO 210,Y 

60 NEXT Y 

65 FOR X = 95 TO 165 STEP 3 
70 HPLOT X,68 TO X,93 

75 NEXT X 

85 FORR = 10 TO 60 STEP 10 
86 HPLOT 130 + R,80 

B7 FORA = 0 TO6.4 STEP.1 


10:LY 


HPLOT 1 


90 HPLOT TO 130 + R * COS (A 
).80 + R * SIN (A) 

95 NEXT A: NEXT R 

100 GET AS 

105 TEXT : HOME 

110 GR:C=0 

120 FOR I = 0 TO 36 STEP3 
130 LET C=C+ 1: COLOR=C:V 
LIN 1,15 AT I 

135 VLIN 1,15 ATI + 1: VLIN 1 
IS ATI +2 

140 NEXT I:C = 0 

145 FORJ = 18 TO 36 STEP 2 
150 LET C = C+ 1: COLOR=C 
155 HLIN 0,38 AT J: HLIN 0,38 
ATJ+1 

160 NEXT J 

190 GET AS 

200 TEXT : HOME : END 











CONTROLE A 


ENTRADA DE DADOS 





“Envenene”” seus programas de entrada 
de dados com uma rotina de 

grande versatilidade. Ela substitui 

com vantagem o comando INPUT, 
superando várias de suas limitações. 


O comando INPUT satisfaz a maio- 
ria das necessidades de programação de 
entrada de dados. Em certas situações, 
porém, a utilização desse comando apre- 
senta alguns sérios inconvenientes. En- 
tre eles, podemos citar: 

- toda vez que o programa executa um 
comando INPUT, o cursor muda de li- 
nha na tela quando o usuário pressiona 
atecla <ENTER>; 

- um ponto de interrogação é sempre co- 
locado na tela (nos micros pertencentes 
às linhas TRS-80, TRS-Color e MSX), 
ou força a entrada na última linha (ca- 
so dos micros da linha Sinclair: ZX-81 
e Spectrum); 

- todos os caracteres digitados aparecem 
na tela: é impossível ocultá-los (como se 
faz, por exemplo, na entrada de uma se- 
nha secreta); 

- é necessário pressionar <ENTER > 
para terminar a entrada; 

- não existe nenhum controle sobre os 
caracteres que estão sendo digitados. Na 
linha TRS, por exemplo, se pressionar- 
mos a tecla de alimentação de linha (re- 
presentada pela flecha para baixo), pre- 
judicaremos a formatação de uma tela 
de entrada. 

É possível contornar todos os proble- 
mas mencionados recorrendo a uma.ro- 
tina especial de entrada, que substitui o 
comando INPUT. 

Neste artigo, ensinaremos como de- 
senvolver essa rotina usando a função 
INKEYS, disponível no BASIC dos mi- 
cros pertencentes às linhas Sinclair, TRS 
e MSX, ou o comando GET, nos micros 
das linhas Apple e TK-2000. 


LL La 


Inicialmente, vamos programar a ro- 
tina de entrada de dados da forma mais 
simples possível, para que você possa 
entendê-la sem dificuldade: 


TITO! 


1000 LET S$="" 

1010 LET CS=INKEYS 

1020 IF C$="" THEN GOTO 1010 
1022 LET C=ASC(C$) 

1025 IF C=13 THEN RETURN 
1030 LET S$=S3+cg 

1040 PRINT CS; 

1060 GoTo 1010 


Modifique as seguintes linhas, para 
o micro ZX-81: 


1022 LET C=CODE CS 
1025 IF C=118 THEN RETURN 


[EL] 


Suprima a linha 1020 e substitua a li- 
nha 1010, para o programa funcionar no 
Apple e no TK-2000: 


1010 GET cs 


Teste a rotina, acrescentando a este 
pequeno programa: 


ES Sasaiyá(s] 


10 PRINT 

90 PRINT "ENTRE: "; 
100 GOSUB 1000 

110 PRINT 

120 PRINT s$ 

130 Goro 10 


Para evitar problemas de “estouro” 
da área alfanumérica, acrescente esta li- 
nha para o TRS-80 e TR$-Color: 


5 CLEAR 1000 


LL a IT 


A linha 1000 inicializa a cadeia de saí- 
da, $$, que conterá tudo o que for digi- 
tado. As linhas 1010 e 1020 verificam se 
alguma tecla foi pressionada. Se a res- 
posta for negativa, o programa continua 
esperando. Caso contrário, o programa 
prossegue para a linha 1030, que testa 
se a tecla pressionada foi <ENTER> 
ou <RETURNS, que assinalam o fim 
da entrada de dados. Se foi outra tecla 
qualquer, ela é concatenada à cadeia de 
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saída, na linha 1030, e impressa na li- 
nha 1040. Finalmente, o programa re- 
torna à linha 1010, para aguardar a pró- 
xima tecla. 


LIMITE PARA A ENTR, 


Ao retornar da rotina, o cursor 
continua na mesma linha de entrada. A 
linha 100 força sua mudança para a li- 
nha seguinte, mas pode ser retirada, se 
necessário — por exemplo, se você esti- 
ver escrevendo um programa de forma- 
tação de tela de entrada, com vários 
campos da mesma linha. 

O programa principal pode ser mo- 
dificado de modo a colocar o cursor 
num ponto determinado da tela, antes 
de chamar a sub-rotina da linha 1000. 
Acrescente as seguintes linhas para ve- 
rificar o efeito obtido: 








APLICAÇÕES PARA A ROTINA 


A rotina apresentada neste artigo tem 
variadas aplicações. Usando-a criativa- 
mente, você poderá trabalhar com diver- 
sas funções impossíveis de se obter com 
o BASIC. Essa rotina equivale, de fato, a 
um poderoso comando LINE INPUT que 
alguns interpretadores possuem. 

Em programas educativos e de jogos, 
você pode incluir uma função de atraso 
máximo de tempo dentro da rotina de en- 
trada — ou seja, a cada repetição do la- 
ço de varredura (apenas para as versões 
com o comando INKEY$), uma variável 
T de tempo pode ser incrementada. Ao 
sair da rotina, o programa tem acesso ao 
T total, informando ao usuário o tempo 
que levou para entrar os dados. 

Outra aplicação interessante consis- 
te em sair automaticamente da rotina 
quando um tempo máximo estipulado 
para a resposta foi ultrapassado — o 
que é últil em jogos de rapidez de ra- 
ciocínio, por exemplo. 




















80 PRINT AT 10,10; 


BO PRINT € 128,""; 


hay 


80 LOCATE 10,10 


[ab] (ó] 


80 HTAB 1O0:VTAB 10 


gaia AA 


Como está, a rotina oferece poucos 
recursos e não apresenta vantagens de 
ordem significativa em relação ao co- 
mando INPUT. Mas existem várias ma- 
neiras de aperfeiçoá-la. Podemos, por 
exemplo, estabelecer um limite máximo 
para o número de caracteres que devem 
ser digitados, o que nos permitirá entrar 
dados sem a necessidade de pressionar 
atecla <ENTER>. 

Acrescente esta linha à sub-rotina: 


ES Sisisbyidi(o) 


1050 IF LEN(S$)=MX THEN RETURN 


A variável MX, que indica o tama- 
nho máximo do campo, deve ser espe- 
cificada antes de se chamar a rotina. Pa- 
ra testá-la, acrescente estas linhas ao 
programa principal: 

20 PRINT "TAMANHO DO CAMPO "; 
30 INPUT MX 


Podemos ainda utilizar uma outra te- 
cla — como <SCAPE> — para con- 
cluir a entrada de dados. 

Substitua a linha 1025 por: 


E Sisasbyláiio) 


1025 IF C=TX THEN RETURN 


Note que TX deve ser especificada 
pelo programa que chama a sub-rotina. 

Acrescente estas linhas, para testar a 
nova opção: 


40 PRINT "CODIGO DE TERMINO "; 
50 INPUT TX 


Uma rotina de entrada de dados tam- 
bém não estaria completa se não ofere- 
cesse ao usuário a possibilidade de cor- 
rigir erros, usando a tecla <BACKSPA- 
CE> ou <-. Adicione ao programa as 
seguintes linhas: 


ma malato] sy 


1026 IF C=3 AND LEN(S$)>O THEN 
1070 
1070 
1080 


1026 
1070 
1070 
1080 


1026 
THEN 
1070 
1080 


LET S$=LEFTS (SS, LEN(S$)-1) 
Goro 1040 


IF C=8 AND LEN(S$,>0 THEN 


LET S$=SS(TO LEN(S$)-1) 
Goto 1040 


IF C=114 AND LEN(S$)>0 
1070 

LET S$=SS(TO LEN(SS)-1) 
goto 1040 


A linha 1026 verifica se a variável de 
saída já tem no mínimo um caractere e se 
atecla de correção foi pressionada (códi- 
go ASCII 8; em se tratando do ZX-81, de- 
ve ser pressionada a tecla <-, cujo códi- 
go é 114). 

Em caso positivo, a rotina desvia pa- 
ra a linha 1070, que extrai o caractere 
apagado e vai para a linha 1040. Esta 
faz retornar o cursor, imprimindo-a so- 
bre a posição anterior. 





Se quiser que os caracteres digitados 
não apareçam na tela — para a entrada 
de uma senha secreta, por exemplo —, 
substitua a linha 1040 por: 


ES Sisasbyiái(s) 


1040 IF SX=1 THEN PRINT CS; 


A variável SX indica se o caractere 
digitado deve ser mostrado (SX = 1) ou 
não (SX < >1). Para testar essa modi- 
ficação, acrescente as próximas linhas 
ao programa principal: 


60 PRINT "ENTRADA INVISIVEL 
(SIM=0) "; 
70 INPUT SX 


ELVAS ÉRICAS 


Podemos tornar nossa rotina de en- 
trada ainda mais versátil. Uma opção in- 
teressante consiste em utilizar a chama- 
da censura de entrada, por intermédio 
da qual fazemos com que a rotina igno- 
re automaticamente toda tecla que não 
esteja incluída dentro de um determina- 
do conjunto de entrada. Essa alternati- 
va nos permite estabelecer que todas as 
teclas sejam maiúsculas, ou que não o- 








O que faz a instrução LINE INPUT? 

Esta resposta é dirigida aos usuários 
de computadores TRS-80 (com BASIC 
nível Il), ZX-B1, Sinclair, Apple e TK-2000. 
O BASIC padrão de suas máquinas não 
dispõe da instrução LINE INPUT, mas a 
sub-rotina apresentada neste artigo po- 
de substituí-la muito bem. 

Como o nome sugere, a instrução 
LINE INPUT permite a entrada de uma 
linha de texto pelo teclado. Essa linha 
é armazenada em uma variável literal 
ou string, nomeada pela instrução. Por 
exemplo: 


LINE INPUT X8 


Não podemos colocar outras variá- 
veis para entrada pela mesma instrução. 

Ao contrário da instrução INPUT, Ll- 
NE INPUT não imprime na tela o ponto 
de interrogação — sinal de prontidão 
para o usuário —, o que dá uma maior 
liberdade de programação. 

O LINE INPUT aceita uma linha de 
texto contendo vírgulas, pontos e vir- 
gulas e outras pontuações — que nos 
obrigariam ao uso de aspas, para deli- 
mitar o string de entrada, caso utilizás- 
semos uma instrução INPUT. Assim, é 
ideal para a entrada em processamen- 
to de texto. 











corram certos caracteres, como vírgulas, 
ou, também, que a entrada seja apenas 
numérica. 

O procedimento é, na verdade, bas- 
tante simples. Para obter uma rotina de 
entrada numérica, por exemplo, basta 
que acrescentemos: 


ESasasbyilái(o) 


1027 IF NOT (C>=43 AND C<=46) 
AND NOT (C>=48 AND C<=57) THEN 
Goro 1020 


1027 IF C<>21 AND C<>22 AND 
C<>26 AND C< >27 AND NOT (C>=28 
AND C<=37) THEN GOTO 1020 

Essa linha verifica se o caractere en- 
trado está entre O e 9 ou se é um sinal 
de mais, de menos, vírgula ou ponto. Se 
não for um desses, retorna para a linha 
1020, de espera. 









CONSULTA 


Muitas pessoas não saem de casa sem 
consultar o horóscopo: Você pode 

não ser uma delas, mas certamente se 
divertirá ouvindo o que o computador 
tem a dizer sobre seu destino. 


Astrologia e horóscopos intrigam as 
pessoas desde a Antiguidade, e têm si- 
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AOS ASTROS 







do motivo de muita controvérsia. Cien- 
tistas de histórico tão distinto, como 
Einstein e Jung, acreditavam na influên- 
cia dos astros sobre as pessoas — hipóte- 
se rejeitada pela maioria dos seus con- 
temporâneos. Estudos multidisciplina- 
res recentes, contudo, têm apresentado 
algumas evidências difíceis de se refu- 
tar. Seja como for, o papel dos astros 
na determinação da personalidade e do 
destino dos seres humanos é uma ques- 





CARREIRA/DINHEIRO 


CONTATOS/VIAGENS 
FAMÍLIA 

AMOR 
PERSONALIDADE 





tão que permanece aberta à discussão. 

Ainda que o tema não o apaixone, 
você poderá passar horas muito agradá- 
veis com seus amigos em torno de um 
computador astrólogo. Para atribuir à 
máquina esse papel, basta digitar o pro- 
grama aqui apresentado. Ele fornecerá 
características de personalidade de ca- 
da um de acordo com seu signo solar, 
assim como as previsões para o próxi- 
mo ano. Estas se dividem em quatro ca- 






















































O PROGRAMA 


Uma parte do programa é específica 
para cada computador. As linhas DA- 
TA são comuns a todos, embora algu- 
mas alterações sejam necessárias, como 
mostramos mais adiante. 


5 POKE 23658,8 
10 INPUT "DIGITE SUA DATA DE 
NASCIMENTO (DIA, MES,ANO) "; 
X,Y.z 
20 IF X<1l OR X>31 OR Y<1 OR Y 
>12 THEN GOTO 10 
40 GOSUB 700 
90 CLS : PRINT AT 1,1;"SEU SI 
GNO E "; INVERSE 1;AS 
100 PRINT AT 5,1;” VOCE DESEJA 
s"ººTAB 3;"<1> PERFIL DE PERSO 
NALIDADE”' TAB 3;"<2> PREVISAO 
PARA 1988" ' TAB 3;"<N> ENTRAR N 
OVA DATA” 
120 LET K$=INKEYS: IF K$S<"1” 
OR K$>"5” AND K$<>"N” THEN 
goTo 120 
130 IF K$="2" THEN GOTO 300 
140 IF K$="N” THEN GOTO 10 
150 cLS PRINT AT 0,15-((LEN 
(AS))/2);AS 


160 FOR B=1 TO 2: LET A=INT ( 





RND*4) +1 
170 FOR N=1 TO A: READ B$,C$,D 
S: NEXT N 
180 PRINT '': PRINT B$'CS'DS: 
NEXT B: PAUSE 0: GOSUB 700: 
ias: Dinheiro/Carréi "onta- GOTO 500 
tegorias: Dinheiro/Carreira, Conta 300 CLB : PRINT A? 0,6) "PREVIS 


tos/Viagens, Família e Amor. 

Como os horóscopos publicados nos 
jornais, o nosso também não leva em 
conta a hora exata do nascimento — da- 
do que os astrólogos usam para forne- 
cer uma leitura mais completa do mapa 
astral de seus clientes. 


OPÇÕES 


O programa pede a data de nascimen- 
to do consulente e diz o seu signo. 
Oferece-lhe, em seguida, duas opçõe: 
obter um perfil de sua personalidade ou 
as previsões para o próximo ano. 

Se o consulente escolher a primeira 
alternativa, o programa selecionará duas 
sentenças relacionadas ao seu signo, das 
oito que tem guardadas na memória. Se 
optar pela segunda, terá que indicar um 
dos seguintes tópicos: Dinheiro/Carrei- 
ra, Contatos/Viagens, Família e Amor. 
Duas previsões vão então aparecer. A 
máquina tem somente duas guardadas 
para cada tópico (por signo); portanto, 
não haverá nenhuma variação na res- 
posta, se você fizer novamente a mes- 
ma escolha. 








AO SOBRE :”''TAB 4;"<1> DINHEI 
RO/CARREIRA”' TAB 4;"<2> CONTAT 
OS/VIAGENS”'TAB 4;"<3> FAMILIA 
"'TAB 4;"<4> AMOR " 

310 LET KS$=INKEYS: IF KS="" 
THEN GOTO 310 

320 IF KS<"1” OR K$>"4” THEN 
coro 310 

330 RESTORE (4000+320*(ST-1)): 
FOR T=1 TO (VAL K$)-1: FOR N=0 
TO 7: READ BS: NEXT N: NEXT T 
335 CLS : PRINT AT 1,15-((LEN 
AS)/2);AS!""* 

340 FOR T=0 TO 7: 
PRINT B$': NEXT T 
500 PRINT AT 21,10;"OUTRA VEZ 
2" 


READ BS: 


510 IF INKEYS="S" THEN GOTO 
90 

520 IF INKEYS<>"N” 
510 

530 STOP 

700 FOR T=1 TO 12: RESTORE ( 
1000+250*(T-1)) 

710 READ AS,A,B,C,D 

720 IF B=Y AND X>=A THEN 
ST=T: LET T=12: NEXT T: 


THEN GOTO 


LET 
RETURN 


LET 
RETURN 


730 IF D=Y AND X<=C THEN 
ST=T: LET T=12: NEXT T: 


740 NEXT T: RETURN 





10 PCLEAR 1 
20 DIM H$(11,7,3),D(3,11),SS(11 
).P$(11,3,7) 

30 FOR K=0 TO 11:READ SS(K),D(O 
1K) ,D(1,K) ,D(2,K) D(3,K) :FOR J= 
O TO 7:FOR L=0 TO 2:READ HS(K,J 
+L):NEXT L,J,K 

40 FOR K=0 TO 11:FOR J=0 TO 3:F 
OR L=0 TO 7:READ PS(K,J,L) :NEXT 
L,J,K 

50 CLS: INPUT"DIGITE SUA DATA DE 
NASCIMENTO (DIA,MES E ANO)”; 
D,M,A:D=INT(D) :M=INT(M) 

60 IF D<Xl OR D>31 OR M<l OR M>1 
2 OR (D>30 AND(M=4 OR M=6 OR M= 
9 OR M=10)) OR (D>29 AND M=2)TH 
EN 50 

70 8S=0 

80 IF M<D(1,85)+12*(SS=2 AND M= 
1) OR M>D(3,55)-12*(SS=2 AND M= 
12) OR (M=D(1,5S) AND D<D(0,8S) 
) OR(M=D(3,SS)AND D>D(2,55)) TH 
EN SS=SS+1:GOTO 80 

90 CLS:PRINT"SEU SIGNO E ";S$S(S 
s) 

100 PRINT:PRINT TAB(10)"VOCE DE 
SEJA:" 

110 PRINT:PRINT TAB(3)"1- PERFI 
L DE PERSONALIDADE” 

120 PRINT TAB(3)"2- PREVISAO PA 
RA 1988": PRINT:PRINT TAB(3)"N- 
ENTRAR NOVA DATA” 

130 K$=INKEYS:IF K$S<"1” OR(KS>" 
2" AND KS<>"N") THEN 130 

140 IF KS="2" THEN 190 ELSE IF 
K$="N” THEN 50 

150 CLS:PRINT €16-LEN(SS(SS))/2 
+ SS (SS): PRINT 





160 C=8:FOR K=1 TO 2:B=RND(8)-1 
:IF B<>C THEN C=B ELSE K=1:NEXT 
170 FOR L=0 TO 3:PRINT €L*32+K* 
128,HS(SS,C,L):NEXT L,K 

180 Goto 240 

190 CLS:PRINT €2,"VOCE QUER SAB 
ER SOBRE:" 

200 PRINT:PRINT” 1- DINHEIRO/C 
ARREIRA” : PRINT” - CONTATOS/VI 
AGENS": PRINT” 3- FAMILIA” :PRIN 





T” 4- AMOR” 
210 KS=INKEYS:IF KS<"1” OR KS>” 
4” THEN 210 


220 CLS:PRINT 616-LEN(SS(SS))/2 
+8$ (SS) : PRINT 

230 FOR K=0 TO 7:PRINT 664+324K 
=32*(K>3) , PS(SS, VAL (K$)-1,K) :NE 
XT 

240 PRINT 6448,” OUTRA VEZ (S/N 
nao” 

250 KS=INKEYS:IF KS<>"S” AND KS 


<>"N” THEN 250 
260 IF K$="S” THEN 90 ELSE CLS: 
END 


20 DIM H$(11,7,3),D(3,11),SS(11 
).P$(11,3,7) 

30 FOR K=0 TO 11:READ SS(K),D(O 
+K) .D(1,K) ,D(2,K) ,D(3,K) :FOR J= 
0 TO 7:FOR L=0 TO 2:READ HS(K,J 
«L):NEXT L,J,K 

40 FOR K=0 TO 11:FOR J=0 TO 3:F 
OR L=0 TO 7: READ PS(K,J,L) :NEX 





TL,J,K 

50 CLS: INPUT"DIGITE SUA DATA DE 
NASCIMENTO (D,M,A) ";D,M,A:D=I 
NT(D) :M=INT(M) 

60 IF D<X1 OR D>31 OR M<1 OR M>1 
2 OR (D>30 AND (M=4 OR M=6 OR M 
=9 OR M=11)) OR (D>29 AND M=2) 

THEN 50 

70 88=0 

80 IF M<D(1,58)+12%(S5=2 AND M= 
1) OR M>D(3,22)-12*(S5=2 AND M= 
12) OR (M=D(1,55) AND D<D(0,8S) 
) OR (M=D(3,55) AND D>D(2,55)) 

THEN SS=SS+1: GOTO 80 

90 CLS:PRINT "SEU SIGNO E ";SS( 
ss) 

100 PRINT:PRINT TAB(10);"VOCE D 
ESEJA :” 

110 PRINT:PRINT TAB(3);"1- PERF 
IL DE PERSONALIDADE” 

120 PRINT TAB(3);"2- PREVISAO P 
ARA 1988": PRINT:PRINT TAB(3);"N 
— ENTRAR NOVA DATA” 

130 KS=TNKEYS:IF KS<"1” OR 
"2" AND KS<>"N”) THEN 130 
140 IF K$="2" THEN 190 ELSE IF 
KS="N”º THEN 50 

150 CLS: PRINT TAB(20-LEN(SS(SS 
))/2);88(S8) :PRINT 

160 C=8: FOR K=] TO 2:B=8*AND(- 
TIME)-L:IF B<>C THEN C=B ELSE K 
=1:NEXT 

170 FOR L=0 TO 3:LOCATE((L*32+K 
*128)M0D32)+4, INT((L*32+K*128)/ 
32): PRINT HS(SS,C,L):NEXT L,K 








(Ks> 








180 GOTO 240 

190 CLS:PRINT TAB(10);"PREVISAO 
SOBRE:” 

200 PRINT:PRINT” 1- DINHETRO/CA 
RRETRA”:PRINT” 2- CONTATOS/VIAG 
ENS" :PRINT” 3- FAMILIA” :PRINT” 
4- AMOR” 

210 KS=INKEYS:IF KS<"1” OR K$>” 
4” THEN 210 

220 CLS:PRINT TAB(20-LEN(SS(SS) 
)/2);SS(58): PRINT 

230 FOR K TO 7:LOCATE (64+32*k 
-32* (K>3) )MOD32, INT ((64+324K-32 
*(K>3))/32): PRINT PS(SS,VAL(KS) 
-1,K) :NEXT 

Z40 PRINT TAB(10);"OUTRA VEZ (S 
/N)?” 

250 KS=INKEYS:TF KS<>"S” AND K$ 
<>"N” THEN 250 
260 IF KS="s" 
END 





THEN 90 ELSE CLS: 


10 HOME 

20 DIM H5$(11,7.3),D(3,11),SS(1 
1),P$S(11,3,7) 

30 FOR K= O TO 11: READ SS(K) 
*D(O,K),D(T,K),D(2,K),D(3,K): F 


ORJ=0TOZ7: FORL=0TOZ: 
READ HS(K,J,L): NEXT L,J,K 

40 FORK=0TOll: FORJ=0 
TO 3: FOR L = 0 TO/: READ PS(K 
«J,L): NEXT L,J,K 











50 HOME : PRINT "DIGITE SUA DA 
TA DE NASCIMENTO (D,M,A) ": INP 

UT D.M,A:D = INF (D):M = INT 
(M) 

60 1FD<1LORD> 3 0RM<I 
ORM > I2 OR (D > 30 AND (M = 

4 0RM-60RM=90RM=ÃãI1)) 
OR 


(D > 29 AND M = 2) THEN 50 
Ss = 0 
IF M< 





D(1,88) - 12 * (SS = 

1) ORM > D(3,5S) + 

12 * (SS = 2 ANDM=12)0OK(M 
D(L,8S) AND D < D(0,55)) OR ( 

M = D(3,85) AND D > D(2,585)) TH 

ss + 1: GOTO BO 

PRINT "SEU SIGNO E * 


2 AND M 





90 HOME 
:85(55 
100 PRINT 
VOCÊ DESEJA:” 
L1O PRINT : PRINT TAB( 
PERFIL DE PERSONALIDADE” 
120 PRINT TAR( 3)"2- PREVISAO 
PARA 1988": PRINT : PRINT TAB 
(3)"N- ENTHAKR NOVA DATA” 
[30 GET K5: IF KS< "1" OR (KS 
> "2" AND KS < > "Nº) THEN 13 


HTAB (10): PRINT " 


Sri 








o 
140 IE K$ - "2” THEN 190 
145 [E KS = "N” THEN SO 
150 HOME : LET CE = 20 - 
(SS(SS)) / 2: HTAB (CE): 
sS(SS): PRINT 
160 C = 8: FORK=1TOZ:B- 
INT ( BND (1) * 8): IFB< >€ 
THEN C = B: IF B=C THENK = 


LEN 
PRINT 


1: NEXT 


170 FORL = O TO 3: LET WW=L 
* 32 + K * 128: HTAB (WW - 32 
* INT (WW / 32)): VTAB ( INT ( 
WW / 32)): PRINT S(SS,C,L): NE 
XT L,K 

180 GoTo 240 

190 HOME PRINT TAB( 10)"VOC 


E DESEJA:” 





200 PRINT : PRINT” 1- DINHEI 
RO/CARREIRA”: PRINT ” 2- CONTA 
TOS/VIAGENS”: PRINT ” 3- FAMIL 
IA”: PRINT ” 4- AMOR” 

210 GET K$: IF KS<” OR KS 
> "4" THEN 210 

220 HOME :CE = 20 - LEN (SS(S 
8)) / 2: HTAB (CE): PRINT SS(SS 


): PRINT 

230 FORK = 0 TO7: LETYY = 6 

4+32*K+32* (K> 3): HTAB 
(LY - 32 * INT (YY/ 32)): VT 
AB ( INT (WW / 32)): PRINT PS(S 
S, VAL (K$) - 1,K): NEXT 

240 VTAB (18): PRINT ” OUTRA V 
EZ (S/N) ?” 

250 GET KS: IF KS< > "S” AND 
KS < > "Nº THEN 250 

260 IF KS = "S” THEN 90 

270 IF KS = "Nº THEN HOME : E 
ND 


Ra 





As linhas a seguir podem ser intro- 
duzidas como estão no MSX e no Ap- 
ple. Se você possui um TR$-Color, de- 
ve usar aspas em todas as linhas DATA 
que contêm dois pontos (:) ou vírgula. 
Os usuários do Spectrum precisarão usar 
aspas em todas as linhas, exceto naque- 
las que contêm números. 


1000 
1030 
1020 
1030 
1040 
1050 
1060 
1070 


VATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PEIXES,20,2,20,3 
Você é o médium do 
“zodíaco, sendo o mais intuitivo” 
e mensitivo dos signos 

Você é piedoso e 

se envolve prontamente com os 
pesso: 
“você absorve as atmosferas, 


problemas de outra: 





e pr 





ecisa de 


1080 DATA "um ambiente alegre. envolvendo-s 
1090 DATA aqueles que o fazem se sentir tra 
nquilo 

1104 DATA 
110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


“Você gosta de dlcool, e precisa 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


cuidadoso para não se embebedar 
Você é tão generoso que 

frequentemente não tem dinheiro 
o bastante para você mesmo 
Você é um grande artista. Tem dom 


“para música, dança, desenho” 
ou fotografia 
“você vive e respira religião.” 


mas não necessariamente no 





1210 
1220 


1230 
1240 
1250 
1260 
1270 
o 
1280 
1290 
1300 


1310 
1320 
es 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 































































sentido formal da palavra 


“Compatibilidade: Virgem, Gêmeos. 
Sagitário 
“Cores: verde, azul.” 


AQUARIO,21,1,19,2 
Você considera seus amigos como 
-sendo parte de sua família, tant 
quanto seus parentes 

Você é independente desde 


“pequeno, terá uma casa” 





sempre cheia de amigos. 
Você frequenta clubes e associaço 


mais do que os outros signos 
e pode ner um membro do CND. 
“Você é inventivo e inovador,” 
e tem idéias e concepções 
avançadas. 

Você tem dificuldade em se 
“reportar a alguém, e pode ser” 
isolado por causa disso 

“você veste roupas bizarra: 

que são mais interessantes 

do que elegantes! 





“Você escolhe ciências sociais 
política ou engenharia eletrônica 
como carreira. 

"compatibilidade: Capricórnio, Li 








DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 






































































1790 DATA Você gosta de festas e de DATA olhos penetrantes e por seu 





1800 DATA “participar de Jogos, mas” 2060 DATA nariz xereta 
1810 DATA seu fraco são belas coxas. 2070 DATA Seis meses antes ou depois do 
1820 DATA Você adora viajar e conhecer 2080 DATA nascimento de um Escorpião 
1830 DATA novas pessoas 2090 DATA um parente falece 

1840 DATA * * 2100 DATA Você é interessado em aprende 
1850 DATA "Você tem bom ouvido para línguas 2110 DATA e adora resolver mistérios 
































” 2120 DATA * * 
1860 DATA e pode falar falar fluentemente 2130 DATA Homens e mulheres de Escorpião sã 
1870 DATA muitas delas o 

1880 DATA “Carreira: jornalista, radialista 2140 DATA muito atraídos pelo sexo oposto 
= 2150 DATA * * 

1890 DATA “professor. filósoto 2160 DATA "Carreira: policial, ciruraiao,* 
1900 DATA esportista 2170 DATA “pinicólogo, ciências socrarm, e! 
1910 DATA "Você é muito dinâmico, e” 2180 DATA carreiras com pos poder 
1920 DATA acha difícil ficar parado em 2190 DATA Você não é muito ta 

1930 DATA um mesmo lugar o tempo bastante 2200 DATA mas tudo o que tula é 

1940 DATA para ser monógamo. 2210 DATA "incimivo e,as vezes, aqrunuivar 
1950 DATA "Você adora animais, e o jogo,” 2220 DATA "Compatibilidade: Cancer. Labr 
1960 DATA “infelizmente, pode ser uma fraqu 2230 DATA "Cor: Marron.” 

eza.” 2240 DATA * 

1970 DATA "Compatibilidade: Peixes, Virgem, 2250 DATA LIBRA,24.9.23.10 

E 2260 DATA Você é o cativante do 

1980 DATA Gêmeos. 2270 DATA “zodiaco, reconhecido por” 

1990 DATA "Cores: azul royal, violeta” 2280 DATA suas boas maneiras 

2000 DATA ESCORPIÃO, 24,10,22,11 2290 DATA "Você não suporta ficar so; 

2010 DATA "Você é o mais apaixonado dos sig 2300 DATA Precisa da companhia de 

nos,” 2310 DATA outras pessoas 

2020 DATA “emotivo, e, se contrariado,” 2320 DATA "Você é um excelente antitrido,* 
2030 DATA pode ser vingativo 2230 DATA é é muito hábi) para criar uma 





2040 DATA Você é reconhecido por seus 2340 DATA atmontera de harmonia 


“Cor: azul ferrete 
CAPRICÓRNIO, 22,12,20,1 

Você é o mais ambicioso dos 
“signos, traçando planos de” 
carreira desde pequeno 

As crianças de Capricórnio 
parecem ser adultos sérios e 





maduros desde o nascimento. 
Você precisa se resquardar 
contra o reumati 





o e todos os 
alimentos que atacam a espinha. 
As carreiras para o capricorniano 


e relacionam a matemática 
"contabilidade ou finanças.” 
“Você é econômico, mas” 
tudo o que compra é de 
qualidade e feito para durar. 


Você é caracterizado pela sua 


conduta irrepreensível e olhar 
sério 
Você tem mais conhecidos do que 


“amigos; seus verdadeiros” 
amigos são sua família 
"Compatibilidade: Touro, Cancer 
Aquário. 

"Cores: Preto e tons escuros 
SAGITARIO,23,11,21,12 

Você é um otimista de nascimento 


e é divertido e com um grande 
senso de humor 


29 APLICAÇÕES 29 








2830 DATA pai 
2840 DATA teatro ou cinema 

2850 DATA Seu gonto por comidas fortes 
2860 DATA é um perigo para seu coração 
2870 DATA Você é propenso a ataques cardiac 
os 

2880 DATA Você é generoso com seu dinheiro 
2890 DATA - mas não deixa de ser 
2900 DATA prevenido 

2910 DATA"Carreiras: Joalheiro, ator, 


r seu tempo livre no 





2920 DATA "professor, líder em alguma funçã 
2930 DATA * * 

2940 DATA Seu lar pode ser uma grande 
2950 DATA casa desunida. Vizinhos são 
2960 DATA ameaça ao seu espaço. 

2970 DATA “Compatibilidade: Cancer, Áries 
2980 DATA "Cores: Ouro e Ambar.” 

2990 DATA * * 

3000 DATA CANCER,22,6.23,7 

3010 DATA "Você é muito tímido, escondendo” 
3020 DATA seus lindos olhos 
3030 DATA sob pálpebras submis: 
3040 DATA Você sempre permanecerá preso à 








3050 DATA seus parentes (principalmente 
2350 DATA "Você tem covinhas nas bochechas. 2710 DATA será muito organizada 3060 DATA sua mãe) mesmo depois de casado. 
. 2720 DATA "Compatibilidade: Peixes, Geneos, 3070 DATA "Você é normalmente tímido, mas* 





2360 DATA e lábios bem feitos. E sotre 
2730 DATA Sagitário 








2370 DATA dos rins 2740 DATA “Cor: Azul escuro.” 

2380 DATA Você às vezes fica apaixonado 2750 DATA LERO,24,7,23,8 

2390 DATA e nunca fica muito tempo sozinho. 2760 DATA Ambos os sexos vestem as 
2400 DATA As carreiras para o librianç 2770 DATA róupis e Joias nais caras é 
2410 DATA "podem incluir: cabeleireiro,” 2780 DATA são incrivelmente vaidosas 
2420 DATA “esteticista, Jutz.* 2790 DATA “Como os leões, você pode” 
2430 DATA “advogado,” 2800 DATA ter uma grande cabeleira 





2440 DATA Seu bom senso para elegância 4810 A urnide 
2450 DATA dá harmonia às suas roupas 2820  uoER-RNova-drasa, a gone de” 
2460 DATA pela boa escolha das cores 

2470 DATA "Compatibilidade: Aquário. Aries 


2480 DATA Escorpião 
2490 DATA “Cores: de tom pa 
2500 DATA VIRGEM, 24.8 


Você é hipocendríaco e nunca VAI 








2510 DATA 





2520 DATA à lugar nenhum sem uma cáixa 








2530 DATA de pílulas para alguma doença 
2540 DATA "Você Lem um corpo saudável 
2550 DATA mas nunca entá contente com 








2560 DATA ap 
2570 DATA 





yocê é fastidiono, é 





nerd sempre impecavelmente Limpa 





Você é erttica por nature 





prestando muita atenção aos 


detalhes em todos os aspretos da 








arrerras: bibliotecário 


“estatístico, crítico, cientista” 





ou médico 
você provavelmente não terá 
“vma família muito grande ;” 
desordem deixa você doente 


Você é prático por natureza 





e, se trabalhar em um escritório 





















































































3080 DATA lutaria até a morte para 3630 DATA Você aprecia muito a companhia 4170 DATA e gastará dinheiro com sua 
3090 DATA proteger sua família. 2640 DATA “de outras pessoas, especialmente 4180 DATA “casa, provavelmente comprando” 
3100 DATA Sua casa é seu castelo e somente  * 4190 DATA eletrodomésticos. 

3110 DATA amigos muito especiais 3650 DATA daquelas que não interferem no se 4200 DATA Em Julho/Agosto você enfrentará 
3120 DATA a frequentam. u modo de ser. 4210 DATA um dilema entre as prioridades 
3130 DATA Você gostaria de viver perto 3660 DATA "Carreiras: açougueiro,” 4220 DATA do trabalho e da sua família, 
3140 DATA "da água - um rio, riacho ou” 3670 DMA asvortinia: 4230 DATA * * 

3150 DATA à beira-mar 1680 DATA * * 4240 DATA Uma amizade que começará 























3160 DATA “Carreiras: enfermeiro, Jardineir 4690 DATA "Suas roupas são ousadas, * 4250 DATA em Janeiro pode se mostrar durado 
9, marinheiro, * 3700 DATA “sempre Justas, mas de desenhos" MEO: 

3170 DATA "cozinheiro, professor ou fotógra 3710 DATA simples 4260 DATA * * 

to.” 3720 DATA "Compatibilidade: Touro, Libra, L 4270 DATA * * 

3180 DATA * * REIS 4280 *DATA “Em Outubro, você enfrentará um 
3190 DATA “Você se prende ao passado, o” 30: DITA ACRE! asia tor 4290 DATA "período de mau humor, envolvido” 
3200 DATA adora colecionar antiguidades. ABI 4300 DATA por uma amizade passageira que 
3210 DATA Você tem boa memória fotográfica. 3756 DATA TOURO,21,4,21,5 4310 DATA o deixará mal com seus amigos. 
3220 DATA “Compatibilidade: Ledo, ESCOrPiãO 4260 DATA Você é afetuoso e 4320 DATA Por muitos anos você terá a 

- poe ps 4330 DATA vantagem de ter um planeta 

4230 DATA “Cores: Branco e prata;* ana 4340 DATA poderoso regendo sua 

3240 DATA * * 3790 DATA “Você é cuidadoso com dinheiro; * 4250 DATA carraira. 

3250 DATA GEHEOS,22,5,21,6 3800 DATA precisa de segurança financeira m 


3260 DATA "Você é do tipo esbelto, e tem 





ais 
3270 DATA “membros longos e delgados.” 3810 DATA do que qualquer outro signo. 

3280 DATA * * 3820 DATA "Enbora seja normalmente calno, * 
3290 DATA "Você fala pelos cotovelos, er 3830 DATA "você pode se tornar temível, * 
3300 DATA poderia passar um dia inteiro 3840 DATA “especialmente se for para defend 


3310 DATA falando somente banalidades. 
3320 DATA Você é o mais comunicativo do 
3330 DATA “zodíaco, reconhecido pelo” 

3340 DATA modo como gosta de falar com as m 
dos 


er seu cônjuge 
3850 DATA Seu temperamento de apreciar as 
1860 DATA boas coisas frequentemente o 

3870 DATA leva à um médico para a indicação 
de uma dieta 

a880 DATA "Você pode se tornar muito pol 





3350 DATA Ambos os sexos sofrem dos nervos 
3360 DATA "e insônia, e devem se precaver” (sa 

3370 DATA contra a estafa. AUULEREA 
3380 DATA "Sua cana será sempre deserta;” 
3390 DATA vo:ê estará sempre visitando um 
3400 DATA vizinho ou amigo 





no amor, e espera que seu parcei 
rot 

3900 DATA rejeite o mexo oposto. 

3910 DATA “Você é muito sensual; gosta do” 
3920 DATA contato de tecidos sedosos 

3930 DATA contra a pele 

3940 DATA "Carreiras: arqueologista, banque 


3410 DATA Você ne sente sufocado num 
3420 DATA “relacionamento main duradouro,” 


3430 DATA “e evita se prender a um companhe 




















tro(a) 
3440 DATA “Carreiras: Jornalista, vendedor, oc! 

E 3950 DATA "fazendeiro, empresário de” 

3450 DATA “protessor, escritor.” SOR SENNA 

O obra as 3970 DATA "Compatibilidade: Aries, Caprició 
3470 DATA “Compatibilidade: Sagitário,” masa 

3480 DATA "Feixes, Virgem.” 3980 DATA "Cores: Azul, rosa.” 

3490 DATA “Cor: amarelo.” 3990 DATA * * 

3500 DATA ARIES,21,3,20,4 4000 DATA Em fevereiro, seu trabalho será 
3510 DATA “Você adora gastar dinheiro, * 4010 DATA "mais isolado do que o normal, * 
1520 DATA mas coloca suas necessidades em p 4020 DATA e você terá que impor muita 
rimeiro lugar 4030 DATA auto-disciplina 

3530 DATA * * 4040 DATA “Na primavera, terá” 





3540 DATA “Você reage bem nas adversidades, 4050 DATA despesas extras com 


4060 DATA viagens. 








3550 DATA “tem gênio forte, mas sabe” 4070 DATA * * 
3560 DATA "perdoar com facilidade.” 4080 DATA Você vai aproveitar um longo 

3570 DATA “Você é fisicamente ativo, e” 4090 DATA “feriado em Outubro/Novembro” 
1580 DATA "prefere esportes que possa prati 4100 DATA aprofundando-se nos mistérios 
car” 4110 DATA dos antigos impérios 

3590 DATA individualmente 4120 DATA Em junho, você deverá 

3600 DATA "Você sofre de dores de cabeça, e 4130 DATA adotar atitudes mais sérias 

o 4140 DATA "diante dos seus problemas, desd 


3610 DATA "é propensa a sofrer cortes ou co e! 
ntusões.” 4150 DATA Os cotidianos até os mais graves 
3620 DATA * * 4160 DATA Em junho você trabalhará duro 















































4360 DATA Nos últimos dois anos você 4600 DATA 
4370 DATA tem estado angustiado por ter 4610 DATA 
4380 DATA ou não escolhido o cáminho certo. 4620 DATA 
4390 DATA Em 1988 você terá a respost; ” 
4400 DATA Entre Fevereiro e Abril você 4630 DATA 
4410 DATA viajará curtas distâncias para o. 
4420 DATA encontrar seus entes querido: 4640 DATA 
4430 DATA * 4650 DATA 
4440 DATA Você provavelmente viajará 4660 DATA 
4450 DATA “no final do ano (Setembro/* 4670 DATA 
4460 DATA "Outubro), com amigos.” 4680 DATA 
4470 DATA * 4690 DATA 
4480 DATA Você vai passar o mês de Julho 4700 DATA 
4490 DATA “em casa, e deve tomar” A710 DATA 
4500 DATA cuidado para não engordar 4720 DATA 
4510 DATA muito 4730 DATA 
4520 DATA Um desentendimento com 4740 DATA 
4530 DATA alguém da família pode cação 
4540 DATA ocorrer em Março. 4750 DATA 
4550 DATA * * 4760 DATA 
4560 DATA Um intenso relacionamento pode 4770 DATA 
4570 DATA “começar em setembro, começando” 4780 DATA 
4580 DATA de algo que para os outros 4790 DATA 
4590 DATA não passava de uma paquer: 4800 DATA 
4810 DATA 
4820 DATA 
4830 DATA 
qê 





40 DATA 
4850 DATA 
4860 DATA 
4870 DATA 
4880 DATA 
4890 DATA 
4900 DATA 
4910 DATA 
4920 DATA 
4930 DATA 
a 

4940 DATA 
4950 DATA 
4960 DATA 
o 

4970 DATA 
4980 DATA 
ava” 

4990 DATA 
5000 DATA 
S010 DATA 
5020 DATA 
5030 DATA 
5040 DATA 
5050 DATA 
5060 DATA 
5070 DATA 
SOBO DATA 
Ses,” 
5090 DATA 










































or 
5100 DATA 
SILO DATA 
5120 DATA 
5130 DATA 
S140 DATA 
5150 DATA 





Os homens podem se ver 
comprometidos com a figura da 
“mãe em Dezembro, mas é improváve 


que esta situação dure até Janeir 


No final de 1988 você pode 
achar que conquistou uma posição 
de autoridade, com opinibe 
*clar E 

Você não deve ser muito 
simpático com aqueles que não 
*o são; deve pensar um pouco” 
mais em você mesmo. 

Você se tornará muito popular 
“no trabalho em ja! oraças' 
a uma grande capacidade de comuni 





e objetival 

















ro, 


£ provável uma grande viagem 
ao exterior em Setembro. Tome 
cuidado com roubos 

“Sua casa, em março, parecerá” 
um campo de batalha. Tente 
“evitar afirmações ambígu 
“que podem ocasionar um rompiment 








Você passará o mês de Abril 
preocupado com a decoração de 
sua casa. 


“Pode suroir um caso em Agosto,” 





mas você deve tomar cuidado para 
não ser nem muito dominante 

nem exageradamente atencioso. 
us relacionamento duradouro 


surgirá com alguém que compartilh 





alguma atividade ou inter 


“com você, em Novembro 


A posição dos planetas em Setembr 


pode significar alguma mudança 
“na sua carreira, que você plane) 
desde o ano passado. 
Você estará financeiramente bem 
em 1988, 
instituições de caridade que 
cuidam de idosos. 

Você estará envolvido em um grand 








* fará donativos a 





“negócio durante todo o ano,” 
a partir de fevereiro 





"você se ligará a tantas associaç 


“particularmente de ensino supert 


que talvez esqueça de que 
tem uma casa 

Você passará por um período 
muito romântico em seu lar.” 
em Janeiro. 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 


DATA 


DATA 
DATA 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


A partir de fevereiro começará 
um ano de muita atividade para 





"você, fora de € 


Um romance pode começar no 
“Natal, mas talvez sem ” 
atração física. 

“Uma relação mais profunda,” 
“até certo ponto frívola, pode” 
“começar em Junho.Esta pode” 


ser uma relação ardente e dramáti 


A despeito de algumas 
“divergências, você trabalhará” 
“duro, como fez ano passado, para 








consolidar sua posição no trabalh 


Você deve se precaver contra 
"gastos desne tanto” 


seus como das outras pessoas da 


sários 





“que tendem a ser extravagantes.” 
Você se envolverá com trabalho 
*de caridade nos próximos anos,” 
sendo bom em aconselhar amigos 
Você vai querer viajar em Julho 
mas terá que esperar por Agosto 
até ter dinheiro o suficiente, 
Você vai sentir que sua família 


em peso quer que você faça 


















E 
sa70 
s48o 
s490 
5500 


DATA 
DATA 
DATA 

DATA 
DATA 


ss10 
5520 
ss30 
de 
5540 
' ssso 
5560 
5570 
, ss80 
A 5590 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


] s600 
s610 
sez0 


DATA 
DATA 
DATA 


b 5630 
s64o 
) s6so 
s660 
5670 
s680 
s690 
5700 
sno 
5720 
5730 
5740 
5250 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


curso superior. 
£ possível que sua família não 
receba bem um amigo seu que 

é conhecido por ser muito otimist 


Da segunda semana de Novembro 


até Dezembro existe a ponsibilida 





de começar uma intensa relação 
com uma pessoa mais velha 
or pode 


*começar no início do ano, mas” 





Um romântico caso de 





talvez desmorone se você não 
deixar de pensar tanto no trabalh 


Da segunda metade de Junho até 
mês de agosto você estará 
preocupado em afirmar sua carreir 


Financeiramente você estará 
consolidando os ganhos que 
“obteve em 1987, fruto de” 
longo e cuidadoso planejamento. 
Você vai se notar cada vez 





18 interessado em discutir 





ou falar sobre tei 





políticos. 
Uma viagem ao exterior é 

provável em Maio, provavelmente 
cumprindo um circuito turístico. 





5760 DATA 
5770 DATA 
5780 DATA 
5790 DATA 
S800 DATA 
5810 DATA 
5820 DATA 
5830 DATA 
5840 DATA 
5850 DATA 
S860 DATA 
5870 DATA 
5880 DATA 
5890 DATA 
5900 DATA 
5910 DATA 
5920 DATA 
5930 DATA 
5940 DATA 
5950 DATA 
5960 DATA 
5970 DATA 
5980 DATA 
5990 DATA 
6000 DATA 
6010 DATA 
6020 DATA 
6030 DATA 
6040 DATA 


Por um período de dez anos você 
sentirá atração por muda: 
para algum lugar perto de água 





£ provável que algum membro de 





sua família se interesse por 


particular 





uma religião ei 
ilar 





ou algo 
No final de Outubro um longo 
caso de 





or se iniciará. 


Compromissos importantes serão 
assumidos pelos homens no começo 
"de Outubro, e pel 
no começo de Novembro. 

Em junho você estará se 
“realizando com sua carreir: 
viagens 
relacionadas a seu trabalho 
Em Outubro você receberá 
orande soma em dinheiro 
fruto de antigos negócios. 








mulheres 








fazendo muita: 


Por todo este ano, como” 
“foi o ano passado, você” 


estará falando de sua carreira. 





Em Outubro/Novembro você será 
uma companhia apenas agradável 


6060 
6070 
6080 
s090 
6100 
610 
6120 
6130 
6140 
6150 
6160 
e170 
6180 
6190 
6200 
ez10 
s220 
6230 
240 
6250 
6260 
s270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 






































e estará num estado 
de muita despreocupação. 

Em 1988 você vai hospedar um 
ou” 











Um acontecimento inesperado no 
verão 88/89 pode significar 


uma mudança para nova ca: 















Um romance nascerá 
desde que sua atitude 
independente quanto a fori 
lar não estrague tudo. 
Existe a possibilidade de 
nto ou início de alguma 
relação permanente 
Outubro. 

O final de maio pode 
boa época para você mudar de 
“empreço, se acha que existe” 
essa necessida 
Você pode achar qualquer troca 
de emprego financeiramente 
vantajosa - este pode mer o 
final de uma er 
Em Outubro/Novembro você 
estará muito alegre e sociável 



















cas 















er um 







































6360 
6370 
6380 
6390 
6400 
sao 
6420 
6430 
6440 
6as0 
saso 
6470 
sao 
6490 
8500 
6s10 
6520 
6530 
6540 
6sso 
6560 
ss70 
es8o 
6590 
6600 
6610 
620 
6630 
s640 
6650 
so60 
6670 
6680 
690 
6700 
710 
6720 
6730 
6740 
6750 
sr60 
270 
780 
6790 
6800 
6810 
6820 
6830 
s840 
s8s0 
6860 
6870 
880 
6890 
6900 
és10 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 


para não ser muito mandão. 
Na primavera você vai estar 
“em algum lugar muito quent; 
e vai estar em muito 

boa companhia. 

Você pode ter que cuidar de 
alguma senhora idosa da família. 
Mas a obrigação pode ser aliviada 
em Ourubro e Novembro. 

Você vai aproveitar muito o 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA * 
DATA 
DATA 
DATA 
DATA 
DATA 
CATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





“Natal, mas cuidado para não” 
quebrar um braço nas festas. 

88 será um ano mais de amizades 
do que de casos amorosos 


vm romance de verão pode 
“acontecer nas férias, mas” 
ambos os parceiros não 

estarão apaixonados. 

Fevereiro e Abril serão meses 
significantes para sua carreira 
e você pode receber aumento. 
Setembro será um mês muito 
tranquilo financeiramente. 

Você gastará bastante em 

lazer. 

“Em setembro, uma disputa fio” 
trabalho pode o levar à 
oreve ou destacar sua 
participação 

Uma viagem ao exterior é 





muito provável no começo 
de Agosto 

Em junho você gozará a 
companhia dos homens da 





DATA família e relaxará em casa 
DATA" 

DATA Em Agosto você estará decorando 
DATA o Jardim ou comprando 

DATA antiguidades para sua cai 

DATA * 

DATA Em junho você pode iniciar um 


relacionamento de pura atração 
“física; sentimento de amor só” 
depois de Outubro, 

“Em Outubro, você poderá” 

ter uma criança. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA * * 

DATA “Nos próximos treze anos, 
DATA" você será capaz de influenciar,” 
DATA “sutilmente, as carreiras de” 
DATA muitas pesso: 
DATA Julho e Agosto serão meses muito 
DATA importantes para suas finanç: 
DATA em Agosto serão 
DATA 











Suas aquisiçõ 





compras inteligentes. 


DATA Você deve tomar cuidado com o 
DATA “que fala em Julho/Agosto, para” 
DATA não se meter em apuros. 

DATA * 

DATA É provável que surja uma 





7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
nao 
7150 
n160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 


7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7aso 
7460 
7470 
7480 
7490 
7500 
7510 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


velha 


7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 








orande viagem nas dltim: 
duas semanas de Dezembro e 
no final do ano es geral. 

Em setembro 
estrangeiro 
para sua ca! 





você trará algum 
ou forasteiro 





muito ativo em 
e se dividirá” 
entre seus compromissos sociais 
e os afazeres domésticos 

Você vai passar a maior 

casa,” 


Você estará 
“Setembro, 


“parte de setembro e: 
*curtindo uma paixão, e V 
causar entranheza a muito: 
Os homens vão se sentir muito 
*românticos no começo de Julho,” 
e as mulheres durante Junho e 
Julho. 

Você vai passar de Março a Maio 
“pondo em ordei 
você se sente gastando muito 











suas finança: 





impulsivamente. 
Em dezembro você vai começar 

a trabalhar ou mudar sua carreira 
para alguna coisa que lhe dê 
maior liberdade de comunicação. 
aparecerão muitas oportunidades 
"de viagem em 1988, especialmente 





ére. 
Uma viagem inesperada pode 
“acontecer em Dezembro, e” 
durante viagem pode 
surgir um romance. 














Em junho você pode se envolver 
te discussões na família 
torno de um membro idoso 
inválido. 


sto você vai gastar 
tante dinheiro es itens de 


Es 
ba: 
luxo para sua c 








Um caso secreto que teve 
seu início em Janeiro 
deve acabar em 

Fevereiro. 

Um romance pode começar no 
“seu trabalho em Outubro, 
o parceiro vai acabar se 
interessando por uma pessoa mais 








Depois de fevereiro você 

vai se envolver com problemas 
legais que afetam sua 
carreira 

Pode aparecer um ganho 
“extra em Junho, 
você deve reinvestir 


quer 


ótimo 
casa, e” 


Agosto vai ser um 
“mês para você em 
você se envolverá 
acirrados debates 
Se você vai se mudar em 1988 


em 
políticos. 






























































COMO APERFEIÇOAR O PROGRAMA 

Embora seja muito divertido, o pro- 
grama de horóscopo apresenta uma sé- 
ria desvantagem: não renova as inter- 
pretações e previsões, a não ser por um 
sorteio muito restrito. Assim, ele ““per- 
de a graça” depois de uma ou duas 
consultas, 

Se você conhece um pouco de pro- 
gramação BASIC, porém, poderá mo- 
dificar o programa e tornar seu interes- 
se mais duradouro. Eis aqui algumas 
práticas sugestões: 

— aproveite a idéia adotada em nosso 
programa original e aumente o núme- 
ro de alternativas de interpretação do 
horóscopo para cada signo. Se você 
colocar oito ou dez alternativas mais 
curtas para cada signo, e usar O gera- 
dor de números aleatórios para esco- 
lher uma delas, diminuirá a chance de 
que o programa se repita; 

— além do signo do zodíaco (que cor- 
responde à constelação que está no 
ponto mais alto do céu, no momento 
do nascimento), existe o signo ascen- 
dente (que é a constelação que está 
apontando no horizonte no momento 
do nascimento). Inclua-o no programa, 
com o conjunto de interpretações cor- 
respondente; 

— armazene os textos de interpretação 
em um arquivo de disco, separadamen 
te do programa. Depois que o signo da 
pessoa foi determinado, o texto corres- 
pondente será carregado na memória 
e mostrado no vídeo. Você poderá, as- 
sim mudar constantemente os textos, 
sem precisar alterar o programa pro- 
priamente dito. 
Lan 








7650 considere cuidadosamente todas 
7660 
7670 
7680 
7690 
7700 
7110 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“as implicações, especialmente” 
durante Abril e Agosto 

Nas duas ultimas semanas de Maio 
você vai fazer pequenas viagens 
para visitar velhos amigos 
Existe a possibilidade de uma 
viagem em Julho com alguém que 
não necessariamente seu parceiro 
Um amor de verão pode acabar 

se você tornar-se muito 
possessivo. Você pode ser 
envolvido por alguém frívolo 
“Para as mulheres, a 
baseada na figura paterna pode 


mizade” 


tornar-se muito profunda. 


NARA RA RES 64 | 49 corso piranha TES HE TEM JR ER A A 
COMEÇA O JOGO NrERPDÃO 




























CÂMARA LENTA 
INTERRUPÇÃO 








Na base da encosta, Willie permanece 150 REM dela dec a 
oi, 160 REM 3r nz,dela 
em compasso de espera. O cenário 170 REM djnz delb 
está completo — com pedras, buracos, A rotina a seguir é o laço principal” 180 REM ld a,254 
u que completa o jogo: 190 REM 3n a,254 
cobras e mar. Para que o jogo 200 REM bit 0,a 


mecê à « “Ação!!! 10 REM org 58702 210 REM 3r nz,alp 
comece, falta só um comando: “Ação! 20 REM alp call 59153 220 REM ret 


30 REM call 58993 
: a ai 40 REM call 59823 

Até agora, você digitou e testou se- 50 REM call 58882 
paradamente as várias rotinas que com- 60 REM call 58795 
põem o videogame Avalanche. Neste ar- 70 REM call 58751 
tigo, fornecemos a rotina final, que cha- 80 REM ld a, (57336) 
ma todas as outras na ordem certa cexe- 90 REM cp 1 
cuta o jogo completo. 1oo a boas Dias 
i Depois de digitar e rodar esta rotina, 150 nem 55 250652 
comece a jogar. Certamente você se sen- 130 REM dll ld b,50 
tirá recompensado por todo o trabalho 149 REM delb Id a,255 
que teve. 

Caso o programa não funcione ade- À 
quadamente, confira-o com a listagem 
completa e revisada (veja o próximo ar- 
tigo desta série). 














































Quando essa rotina e o restante do 
programa estiverem na memória, come- 
ce o jogo digitando a instrução: 


LET L=USR 58576 


Como você deve ter notado, ela cha- 
ER ma o endereço do rótulo gbin, que está 
na origem da rotina de inicialização do 
jogo, no artigo da página 969. 


ORDEM DE CHAMADA 


A rotina principal chama, nesta or- 
dem, a rotina de movimentação de Wil- 
ie, em 59153; a rotina das pedras, em 
58993; a rotina das cobras, em 59823; 
a rotina do mar, em 58882; a rotina da 
nuvem, em 58795, e a rotina das gaivo- 
tas, em 58751. 


RECOMPENSA, MORTE OU VIDA 


Em seguida, a rotina verifica a cha- 
mada variável da morte. Ela é transfe- 
rida de 57336 para o acumulador e com- 
parada com 1. Se este for o seu valor, 
Ma instrução jr z manda o processador pa- 
ra a rotina da recompensa, no endereço 
59788. Essa rotina incrementa o escore 
e coloca uma nova tela. 

| O conteúdo do acumulador é então 
comparado com 2. Se ele contém esse 


valor, o processador é mandado para a 
rotina da morte, no endereço 59652. Es- 
ta é a rotina que enterra Willie e encer- 
ra a partida. 


[or TARA 


Se o processador fosse instruído só 
para executar repetidamente a rotina fi- 
nal, a cada vez ele chamaria todas as ou- 
tras rotinas na memória, e o jogo seria 
tão rápido que se tornaria impraticável. 
Assim, para tornar o movimento mais 
lento, dois laços são construídos, o que 
atrasa o processador em dois centésimos 
de segundo. Pode não parecer muito, 
mas, considerando-se que a rotina é cha- 
mada seguidamente, trata-se de um tem- 
po significativo. 

B é carregado com 50, e A, com 255. 
A seguir, o conteúdo de A é decremen- 
tado. A instrução jr nz manda o proces- 
sador para o laço dela 256 vezes, para 
que A seja decrementado até 0. 

A instrução djnz decrementa o con- 
teúdo do registro B e faz o processador 
voltar e carregar A com 255 de novo. Is- 
so é feito até que B acabe sendo reduzi- 
do a 0. Portanto, o laço externo é exe- 
cutado cingienta vezes, e o interno, 255 
x 50 vezes. 


O registro B contém o valor 50 ape- 
nas quando o jogo começa. À medida 
que Willie recupera seu lanche, um no- 
vo valor é colocado no endereço ocupa- 
do por 50 na instrução ld b. Se você vol- 
tar ao programa dos prêmios, verá que 
o valor nesse endereço é carregado em 
A, decrementado e colocado de volta em 
B cada vez que Willie recupera um item 
do seu lanche. Essa operação resulta, 
efetivamente, em uma alteração no pro- 
grama — ou seja, uma rotina altera ou- 
tra rotina. Tal expediente só é recomen- 
dável quando seus efeitos forem total- 
mente controlados. 

O processador executará o laço de 
atraso uma vez menos, acelerando o jo- 
go em cerca de 90 microssegundos. 


FORA DO LAÇO 


Como todo bom programa, este tam- 
bém oferece ao usuário a alternativa de 
interromper a execução, sem ter que des- 
ligar o computador e perder tudo o que 
está na memória. 

Neste ponto do programa, precisa- 








mos verificar se a tecla <BREAK> foi 20 ALP LDA 45 170 DEL CLRA 
pressionada. Para isso, usamos o co- 30 STA 18258 180 DELA DECA 
mando in. Se <BREAK> não foi pres- 40 CLR 18261 190 BNE DELA 


i , a instrução jr nz, alp fazopro- 50 JSR ELB 200 DECB 
sionada, a instrução j p p' do DER GRI AGA 


cessador iniciar o laço principal outra 0 


vez. Se foi, o processador encontra a E sas EUR so NE asa ro 
instrução ret e volta para o BASIC, 90 JSR SEA 240 BNE BLP 
100 JSR MOVSUN 250 RTS 
110 LDA 18252 260 MOVSUN EQU S4DOF 
120 CMPA 41 270 ELB EQU $4B59 
di co 130 LBEQ RWD 280 MAN EQU S4DBE 
o programa a seguir co laço princi- 140 CMPA 42 290 SNK EQU 85178 
pal que completa o jogo. 150 LBEQ DIE 300 SEA EQU S4CDE 
10 ORG 20932 160 DLL LDB 4100 310 RWD EQU S50F1 


320 DIE EQU 55050 
330 BAR EQU 34045 


Carregue a parte já digitada de Ava- 
lanche e monte esse programa no topo. 


10 ORG 19572 
20 JMP ALP 


gs, 30 ALP EQU $51c4 
x : K 
, Tecle a instrução: 


EXEC 19426 





e o jogo irá começar! 








Cal jo 


A é carregado com 5, valor armaze- 
nado em 18258, para ajustar o atraso do 
sol. A posição de memória 18261, que 
contém a variável do salto, é carregada 
com 0. Garantimos, assim, que Willie 
não apareça saltando na tela. 

O processador vai para a rotina ELB 
e define os bits necessários para os ní- 
veis superiores do jogo. Segue, então, 
para a rotina MAN, que cuida do mo- 
vimento de Willie e, em seguida, salta 
para BAR, SNK, SEA e MOVSUN — 
rotinas que movimentam, respectiva- 
mente, a pedra, as cobras, o mar e o sol. 








O conteúdo da variável morte, em 
18252, é carregado no acumulador e 
comparado com 1. Se seu valor for igual 
a 1, Willie conquistou um prêmio. 
LBEQ faz o processador executar um 
longo desvio para a rotina que oferece 
a Willie sua recompensa. 

Se a variável morte não for igual a 
1, CMPA *2 verifica se seu valor é 2. 
A presença desse número indica que 
Willie está morto — o processador se 
desvia então para a rotina DIE, que to- 
ma todas as providências necessárias pa- 
ra os funerais. 


[od LAO 


B é carregado com 100, funcionan- 
do como contador para o maior laço de 
atraso. Note que a posição de memória 
ocupada por 100 quando o programa é 
montado — $51 EE — equivale ao byte 
decrementado na rotina do escore. 

A é apagado e decrementado, o que 
torna seu conteúdo, 255 igual a -1 na re- 





presentação binária. A instrução BNE 
verifica se A chegou a 0; se ainda não 
chegou, é novamente decrementado. 
Caso contrário, o processador sai fora 
desse laço. Em seguida, decrementa B 
e salta para o laço interno, onde A é de- 
crementado. Isso é feito até que B tenha 
chegado a 0. 

Em outras palavras: no início, o pro- 
cessador fica no laço 256 x 100 vezes, 
para tornar a execução mais lenta. Po- 
rém, quando Willie consegue uma re- 
compensa, O jogo se acelera, pois o pro- 
cessador fica nesse laço apenas 256 x 
99 vezes, ou 256 x 98 ou 256 x 97 e 
assim por diante. 


[do] 





Para examinar o teclado, saltamos 
para a sub-rotina em 32774. Verificamos 
então se a tecla <BREAK> foi pres- 
sionada, comparando o valor recebido 
no acumulador com 3. 

Se a tecla não foi pressionada, a ins- 


east conána 


trução BNE volta para dar prossegui- 
mento ao jogo. Caso contrário, o pro- 
cessador continua, encontra RTS e re- 
torna para o BASIC. 


FECHE O CÍRCULO 


Acrescentamos um último detalhe ao 
programa. Na rotina que seleciona a tela 
apropriada e ajusta o escore havia, ori- 
ginalmente, um RTS e duas instruções 
NOP. Elas foram usadas para reservar 
o espaço em que colocaríamos uma ins- 
trução de salto, que iria funcionar quan- 
do o jogo fosse executado pela primei- 
ra vez. Não podíamos introduzir essa 
instrução antes de escrever a rotina de 
acionamento. Agora que o programa es- 
tá pronto, montamos um JMP ALP na- 
quele endereço. Com isto, fechamos o 
círculo, completando Avalanche, nosso 
videogame em Assembler. 


E ass 










“LES 


O programa a seguir é o laço princi- 
pal que completa o jogo: 
10 org 54101 


20 59 call 54603 
30 call -11136 


40 call 55564 
50 call -11318 
60 call -11266 
70 call -11380 
so ld a, (-5201) 
90 cp l 

100 3p 2,55506 
110 cp 2 

120 »p 2,55334 
130 1d b,50 
140 atr ld a,255 
150 dl dec a 
160 3r nz.dl 
170 djnz atr 
180 ld a,7 

190 call 321 
200 bit 4,a 
210 Jr nz,)9 
220 ret 

230 end 


Quando essa rotina e o restante do 
programa já estiverem na memória, dê 
início ao jogo executando o pequeno 
programa BASIC: 


10 DEFUSR= -11681 














20 A=USR(0) 
30 END 


esse pro- 
al da ro- 
tina que inicializa o jogo, publicada no 
artigo da página 969. 


AD A 


O laço principal chama, nesta ordem, 
a rotina de movimentação de Willie, em 
54603; a rotina das pedras, em -11136; 
a rotina das cobras, em 55564; a rotina 
do mar, em-11318; a rotina da nuvem, 
em-11266, e a rotina das gaivotas, em 
-11380. 


AA 


Em seguida, a rotina verifica a cha- 
mada variável da morte. Ela é transfe- 
rida de - 5201 para o acumulador e com- 
parada com 1. Se este for o seu valor, 
a instrução jp z manda o processador 
para a rotina da recompensa, no ende- 
reço 55506. Essa rotina aumenta os pon- 
tos de Willie e seleciona um nível maior 
de dificuldade. 

O conteúdo do acumulador é compa- 
rado com 2. Se ele contém esse valor, 
o processador é mandado para a rotina 
da morte, em 55334. Essa rotina enter- 
ra Willie e encerra a partida. 


[RR E 


Se instruíssemos o processador para 
executar continuamente esse laço, a ca- 
da volta ele chamaria todas as rotinas 
da memória com crescente velocidade, 
tornando o jogo impraticável. Para tor- 
nar a execução mais lenta, montamos 
dois laços de atraso, como já fizemos na 
rotina da morte. 








CN an cómico DEMAGUINA MD 


B é carregado com 50, e A, com 255. 
A seguir, o conteúdo de A é decremen- 
tado. A instrução jr nz faz o processa- 
dor continuar a decrementar A, no la- 
ço dl, até que seu valor seja 0. 

A instrução djnz decrementa o con- 
teúdo do registro B e faz o processador 
voltar ao rótulo atr e carregar A com 
255 de novo. Isso é feito até que B se 
reduza a 0. Portanto, o laço externo é 
executado cinquenta vezes, e o laço in- 
terno, 255 x 50 vezes. 

O registro B contém o valor 50 só 
quando o jogo começa. À medida que 
Willie recupera seu lanche, um novo va- 
lor é colocado no endereço ocupado por 
50 na instrução Id b. Se você voltar à ro- 
tina do escore, verá que o valor nesse en- 
dereço (54133) é decrementado cada vez 
que Willie recupera uma parte de seu 
lanche. Essa operação resulta, efetiva- 
mente, em uma alteração no próprio 
programa — ou seja, uma rotina altera 
outra rotina. Esse expediente só é reco- 
mendável quando seus efeitos forem 
controlados. 

Diminuindo o valor carregado em B, 
o processador executará o laço interno 
256 vezes menos, acelerando o jogo. 


FORA DO LAÇO 


Como todo bom programa, este tam- 
bém oferece ao usuário a alternativa de 
interromper a execução, sem ter que des- 
ligar o computador e perder tudo o que 
está na memória. 

Neste ponto do programa. 
cisamos ver se <STOP> foi p 
sionada. Essa operação é idênti 
que executamos para checar se M 
ou N foram pressionadas na rotina 
de movimentação de Willie, 

O número 7 é carregado no acu- 
mulador e a rotina 321 da ROM é 
chamada. O número em A corres- 
ponde à linha da matriz do teclado 
na qual está a tecla que desejamos 
verificar. Se alguma tecla dessa linha foi 
pressionada, a rotina 321 coloca o va- 
lor 1 no bit do acumulador correspon- 
dente a ela. 

A instrução bit 4,a examina o bit 4 
do acumulador, que corresponde à te- 
cla <STOP>. Se ela não foi pressio- 
nada, a instrução jr nz, jg faz o proces- 
sador reiniciar o laço principal, jg. Ca- 
so contrário, o processador encontra a 
instrução ret e volta para o BASIC. 



















































OBJETIVO DO JOGO 
O ROLO E À TINTA 
E. SOMA DE VERIFICAÇÃO 






Este divertido jogo é um bom treino 
para os pintores “de fim de semana”, 
Manejando o rolo, eles devem impedir 
que a tinta escorra pela parede 

& manche seu precioso carpete... 


Manchar o carpete de tinta é um dos 
pesadelos dos pintores domésticos. Eis 
aqui uma boa oportunidade para que 
aprimorem sua técnica de trabalho e dei- 
xem de fazer tanta sujeira e provocar 
tanta confusão na casa. 

O objetivo do jogo é impedir que a 
tinta, que escorre pela parede (a tela), 
chegue até o chão (linha inferior da te- 
la). Para isso, você deve movimentar um 
rolo de pintura (um sinal gráfico hori- 
zontal, na tela), usando as teclas de con- 
trole do cursor. 


O programa é apresentado em duas 
versões; uma para os microcomputado- 
res compatíveis com a linha Sinclair 
Spectrum (TK-90X), e outra, para os da 
linha TRS-Color. Ambas utilizam códi- 
go de máquina, para que os cálculos se- 
jam efetuados com a rapidez necessária. 

Os programas em código de máqui- 
na estão incluídos no programa em BA- 
SIC, na forma de listagens numéricas 
decimais, dentro de linhas DATA. O 
programa de carregamento vê se os có- 
digos foram digitados etamente, por 
meio de somas de verificação (check- 
sum). Apesar disso, convém gravar O 
programa em fita ou disco antes de usá- 
lo, pois um só código errado poderá da- 
nificar o conteúdo da memória, 


1 CLEAR 28761: GOSUB 100 

5 CLS : PRINT AT B,2;"DIGITE 
NIVEL DE DIFICULDADI TAB 8 
Fº<1> MUITO FACIL"'TAB 8; 
> FACIL"'TAB 8;"<3> NORMAL" * 
TAB B;"<4> DIFICIL"'TAR B;"< 
5> IMPOSSIVEL” 



















6 LET D$=INKEYS: IF D5<"1" 
OR D$>"5" THEN GOTO 6 
7 POKE 28951, ((D$="1")*200)+ 
((D$="2")4175)+((DS="3") 280) 
+((DS="4")*40)+(D$="5") 
10 BORDER O: PAPER 7: INK 2: 
CLS : LET ag="": FOR nel TO 
32: LET aS-as+" "; NEXT n 
14 POKE 28953,0: FOR n=1 TO 4 
1 PRINT PAPER $;: NEXT n 
15 FOR N=19 TO 21: PRINT 
PAPER 6;AT N,O;AS: NEXT N 
16 PLOT 0,143: DRAW 255,0 
20 RAND USR 28672: RAND USR 
28702 
40 PRINT AT 12,7; FLASH 1; 
PAPER 5; INK O;" FIM DE 
JOGO"! FLASH O;AT 14,7 
; PAPER 7;"PLACAR FINAL ";: 
LET B$S="": FOR N=28945 TO 
28950: LET B$=BS+CHAS (PEEK N 
): NEXT N: PRINT B$ 
45 FOR N=1 TO 500: NEXT N 
50 IF INKEYS="" THEN GOTO 50 
60 RUN 5 
100 LET L=500: RESTORE L: 
N=28672 TO 28961 STEP 8 
110 LET T=0: FOR D=0 TO 7: 
READ A: POKE N+D,A: LET T=T+A: 
NEXT D 
120 READ A: IF A<>T THEN 
PRINT "ERRO NOS DADOS DA LINHA 
";L; STOP 
130 LET L=L+10: NEXT N: RETURN 
500 DATA 33,34,113,6,0,62,32, 
119,399 
510 DATA 35,16,252,33,128,100, 
34,32,630 
520 DATA 113,33,48,48,34,17, 
113,34,440 
530 DATA 19,113,34,21,113,201, 
205,228,934 
540 DATA 112,89,22,0,33,34,113 
,25,428 
550 DATA 126,60,254,156,200, 
245,229,205,1475 
560 DATA 176,34,209,193,245, 
126,254,255,1492 
570 DATA 40,2,120,18,241,254,0 
"71,746 
580 DATA 62,128,40,4,203,31,16 
,252,736 
590 DATA 70,176,119,58,25,113, 
214,64,839 
600 DATA 50,25,113,194,194,112 
+237,75,1000 
610 DATA 32,113,62,0,33,26,113 
+197,576 





FOR 


NÍVEIS DE DIFICULDADE 
ESCORE 














620 DATA 205,214,112,193,62, 
223,219,254,1482 

630 DATA 245,203,31,203,31,48, 
16,203,980 

640 DATA 31,48,15,203,31,48,14 
+203,593 

650 DATA 31,48,13,241,195,156, 
112,12,808 

660 DATA 24,7,4,24,4,5,24,1,93 
670 DATA 13,241,121,254,240,48 
+13,120,1050 

680 DATA 254,150,48,8,254,32, 
56,4,806 

690 DATA 237,67,32,113,237,75, 
32,113,906 

700 DATA 197,33,29,113,205,214 
+112,193,1096 

710 DATA 121,230,248,79,89,22, 
0,33,822 

720 DATA 34,113,25,72,6,24,126 
,185,585 

730 DATA 32,5,61,119,205,252, 
112,35,821 

740 DATA 16,244,42,23,113,45, 
32,253,768 

750 DATA 37,242,197,112,62,127 
+219,254,1250 

760 DATA 203,31,218,30,112,201 
,229,120,1144 

770 DATA 205,176,34,235,225,1, 
3,0,879 

780 DATA 237,176,235,201,42, 
118,92,237,1338 

790 DATA 91,120,92,25,237,90, 
84,93,832 

800 DATA 41,41,25,41,41,41,2 
34,289 

810 DATA 118,92,76,201,213,245 
+17,22,984 

820 DATA 113,26,60,254,58,32,6 
+62,611 

830 DATA 48,18,27,24,244,18, 
241,209,829 

840 DATA 201,48,48,48,48,45,48 
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+ 200,689 

850 DATA 0,64,0,0,0,255,255, 
255,829 

860 DATA 128.100,36,36,37,37, 
35,15,444 

O jogador controla o rolo por meio 
das teclas Y, U, 1 e O. O programa em 
código de máquina é responsável pelo 
movimento do rolo e dos pingos de tin- 
ta, além de cuidar do escore (número de 
pontos marcados). 

No programa em BASIC, a linha 1 
reserva espaço para o programa em có- 
digo de máquina, por intermédio do co- 
mando CLEAR, e chama a rotina que 
começa na linha 100, Esta lê os códigos 
numéricos correspondentes ao progra- 
ma em linguagem de máquina e os co- 
loca na memória reservada (usando co- 
mandos POKE, na linha 110). 


ET O 


A soma de verificação é armazenada 
na variável T, que é checada a cada oi- 
to códigos pela linha 120 do programa. 
Essa linha informa se o valor da soma 
é igual ao primeiro número lido na li- 
nha DATA. Em caso afirmativo, o pro- 
grama continua até ler todos os códigos, 

uc estão armazenados da linha 500 à 
linha 860. 

- As linhas 5 a 7 inicializam o nível de 
dificuldade — que pode ser fácil, razoa- 
velmente fácil, normal ou dificil — e co- 
locam o valor correspondente de atraso 
de tempo nas locações absolutas do pro- 
grama em código de máquina, por meio 
de comandos POKE. 

As linhas 10 a 16 montam a tela grá- 
fica e a 20 chama à rotina em linguagem 
“de máquina. As linhas 40 a 60 finalizam 
o jogo e imprimem o escore. 


10 CLEAR 200,15799:CLS 

20 FOR K=0 TO 13 FOR J=D TO 
25:READ A:T=T+A 

30 POKE 15800+K*26+J,A 

40 NEXT:READ A:IE T<>A THEN PRI 

NT”ERRO NOS DADOS DA LINHA” :100 

0+K*10:END ELSE NEXT 

50 CLS:PRINT 62,"ESCOLHA NIVEL 

DE DIFICULDADE” 
O PRINT 8200,"1 - FACIL”:PRINT 
232,"2 - SIMPLES": PRINT 6264, 

MEDIO”: PRINT €296,74 - DIF 

CIL”:PRINT €328,"5 - IMPOSSIVE 


AS=INKEYS: 


70 Ê 
"VAL (AS): POKE 16162,6-LV:P. 
64,128+64% (LU>2) : POKE 16 
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A tinta escorrendo na tela do TRS-Color. 


167.RND(256)-1 

90 PMODE 3,1:PCLS 2:SCREEN 1,0 
100 COLOR 4:LINE(0,0)-(2255,0), 
PSET:COLOR 3:LINE(0,168)-(255,1 
91), PSET.BF 

110 DEFUSRO=15800:S=USRO (0) 

120 SC=0:CLS:FOR K-5 TO O STEP 
=1:SC=SC*256+PEEK (16173+K) :NEXT 
130 PRINT €8,"VOCÊ GANHOU”; SC 
140 PRINT €161,"QUALQUER TECLA 
PARA RECOMECAR” :AS=INKEYS 

150 IF INKEYS="" THEN 150 ELSE 





50 

1000 DATA 127,63,33,127,63,37,7 
9,95,253,63,45,253,63,47,253,63 
+49,142,19,14,191,63,51,158,186 
.48,2585 

1010 DATA 137,1,0,191,63,41,48, 
137,19,223,191,63,43,204,0,128, 
142,63,53,167,128,90,38,251,141 
+29,2591 

1020 DATA 182,63,37,176,63,36,1 
83,63,37,38,243,141,119,23,0,14 
5,190,63,34,48,31,38,252,125,63 
+33,2426 

1030 DATA 39,226,57,206,63,53,1 
41,59,196,127,52,4,51,197,166,1 
96,198,32,61,211,186,31,1,53,4, 
31,2641 

1040 DATA 152,84,84,58,230,132, 
38,1,57,132,3,64,139,3,198,3,74 
,43,4,88,88,32,249,234,132,231, 
2553 

1050 DATA 132,108,196,166.196,1 
29,168,37,5,1 +183,63 33,5 
190,63,38,79,95,179,63,38,36, 
48,7439 

1060 DATA 31,179,63,38,36,2,48, 
31,195,255,254,36,2,48,1,52,16, 
163,225,37,3,131,0,1,253,63,216 
3 






1070 DATA 38,57,134,247,127,63, 
40,120,63,40,183,255,2,246,255, 
0,193,247,38,3,124,63,40,26,1,7 
3,2678 

1080 DATA 129,127,34,233,57,190 
,63,51,198,3,134,85,167,128,90, 
38,251.190,63,51,116,63,40,36,1 
0,31,2578 

1090 DATA 16,203,3,196,31,39,2, 
48,1,116,63,40,36.8,31,16,196,3 
1,39,2,48,31,116,63,40,36.1451 





EA e 


1100 DATA 8,188,63,43,34,3,48,1 ! 
36,32,116,63,40,36,14,188,63,41 
137,9,48,136,224,52,16,141,13,1 ] 
792 4 
1110 DATA 53,16,191,63,51,198,3 4 
+111,128,90,38,251,57,31,16,142 
.63,53,147,186,52.4,196,31,88,8 
8,2347 

1120 DATA 48,133,53,4,88,73,88, 
73,31,88,73,137,92,134,12,225,1 - 
32,38,4,106,132,141,6,48,1,74,2 
034 

1130 DATA 38,243,57,52,22,142,6 
3,45,198,6,26,1,166,132,137,0,1 
67,128,90,38,247,53,150,1,3,0,2 
205 





O jogador controla o rolo de tinta pe- 
las teclas de movimentação do cursor 
(flechas). O programa em código de má- 
quina é responsável pelo movimento do 
rolo e dos pingos de tinta, além de cui- 
dar do escore (número de pontos mar- 
cados). Ele verifica se alguma das teclas 
de controle do cursor está sendo pres- 
sionada e desloca o rolo de tinta na di- 
reção indicada. Se o jogador consegue 
deslocar um pingo de tinta, um atraso 
de tempo é introduzido e o escore é au- 
mentado. | 

No programa em BASIC, a linha 10 
reserva espaço para o programa em có- 
digo de máquina através do comando 
CLEAR. As linhas 20 a 40 lêem os có- 
digos numéricos correspondentes ao 
programa em linguagem de máquina e 
os coloca na memória reservada (usan- 
do comandos POKE, na linha 30). 

A soma de verificação é armazenada 
na variável T, que é checada pela linha 
40 do programa. Essa linha informa se 
o valor da soma é igual ao primeiro nú» 
mero lido na linha DATA, Em caso afir- 
mativo, O programa continua até ler to- 
dos os códigos, que estão armazenados 
nas linhas 1000 a 1130. 


GAR dit 


A linhas 50 a 80 inicializam o nível 
de dificuldade — que pode ser simples, 
médio, dificil e “impossível” — e colo- 
cam o valor correspondente de atraso de - 
tempo nas locações absolutas do progra- 
ma em código de máquina, por meio de 
comandos POKE. 

A linha 100 monta a tela gráfica e 
a linha 110 chama a rotina em lingua- 
gem de máquina, 

As linhas 120 a 150 finalizam o jogo 
e imprimem o escore. A seguir, O pro- 
grama pergunta ao jogador se ele = 


ja participar de mais uma rodada, 





] 
4 















A armazenagem e a manipulação de 
datas em BASIC apresentam problemas 
nem sempre fáceis de resolver. 

Com as rotinas aqui fornecidas, você 
simplificará bastante seu trabalho. 


Mais cedo ou mais tarde, o progra- 
mador vai ter que trabalhar com cálcu- 
los de datas. Como no BASIC não há 
nenhuma função que facilite a realiza- 
ção desses cálculos, a tarefa poderá en- 
volver algumas complicações, devido à 
própria irregularidade do sistema de da- 
tação em uso — meses com número di- 
ferente de dias, anos bissextos etc. 

Os principais problemas de cálculo e 
manipulação de datas, que surgem so- 
bretudo em programas para aplicações 
financeiras e/ou comerciais, são: 

— representação interna de datas na 
memória do computador; 

— checagem da validade de uma data; 
— determinação do dia da semana pa- 
ra uma data e do número de dias com- 
preendido entre duas datas; 

— cálculo de data corrida a partir de 
certa data de calendário. 

Mostraremos em INPUT alguns tru- 
ques que simplificam essas manipu- 
lações. 


CA NA E 


Há diversos tipos de notação para da- 
tas. A mais comum é a data gregoria- 
na, ou data de calendário, que tem a for- 
ma: dia/mês/ano (D/M/A). 

Essa data pode ser armazenada no 
micro de diferentes maneiras. A mais di- 
reta usa o formato de oito bytes: 


DD/MM/AA 


Em conseqiiência, deve ser armaze- 
nada em uma variável literal (alfanumé- 
rica), e não em uma variável numérica, 
ocupando, ao todo, oito bytes. 

Podemos reduzir o espaço para a ar- 
mazenagem suprimindo os sinais de se- 
paração (barras ou pontos), já que é 
possível inseri-los novamente no mo- 
mento de exibir ou imprimir uma data. 
Temos, então, o formato de seis bytes: 





OPERAÇÕES 
COM DATAS 


DDMMAA 


Armazenando as datas como são vi- 
sualizadas, é impossível ordená-las. Co- 
locar um conjunto de datas em ordem 
ascendente, por exemplo, resultará em 
uma enorme confusão; uma data como 
010187 virá antes de 011286. 

Por essa razão, é preferível usar o 
formato sueco, já adotado universal- 
mente em sistemas de computação: 


AAMMDD 


No exemplo acima, 861201 aparece- 
rá, corretamente, antes de 870101. 

Eis aqui duas rotinas para converter 
uma notação em outra. A variável N$ 
representa uma data em formato nor- 
mal, de oito bytes; IS, uma data em for- 
mato invertido, de seis bytes. 


Conversão de formato normal para for- 
mato invertido: 


anna sy) 


1000 IS=MIDS(N$,7,2)+MIDS(NS,4, 
2)+MIDS (N$,1,2) : RETURN 


1000 LET IS=NS(7 TOJ+NS(4 TO 5 
J+NS(I1 TO 2) 
1010 RETURN 


Lembre-se de dimensionar N$(8) e 
I$(6) no começo do programa. 


Conversão de formato invertido para 
formato normal: 


asma sy ÉS] 


1100 N$=MIDS(1$,5)+"/"+MIDS(IS, 
3,2)+"/"+MIDS(I$,1,2) : RETURN 


1100 LET NS=IS(5 TO)+"/"+IS(3 
TO 4)+"/"+IS(1 TO 2) 
1110 RETURN 


Seis bytes podem significar muito es- 
paço de memória para certas aplicações, 
por exemplo, para um banco de dados, 
em que cada registro deve reservar 
espaço para uma ou mais datas. 

Podemos reduzir ainda mais o espa- 








E CONVERSÃO DO FORMATO 
m COMPRESSÃO DE DATAS 
m TESTE DE VALIDADE 
n DATA CORRIDA 
ms INTERVALO ENTRE DATAS 







ço de memória ocupado por uma data 
de calendário, mas isso envolve algumas 
manipulações que codificam a data, im- 
pedindo sua exibição imediata (sem a 
prévia decodificação). 

Um dos formatos codificados de da- 
tas é o formato de três bytes: 


CHRS (AA) +CHRS (MM) +CHRS (DD) 


A data será armazenada em uma ca- 
deia literal de três bytes, no formato sue- 
co; mas não poderá ser impressa ainda. 
Seguem-se duas rotinas que realizam as 
conversões. Nelas, D$ é uma variável li- 
teral com uma data em oito bytes, e C$, 
uma variável com uma data em forma- 
to comprimido de três bytes. 


Compressão de oito para três bytes: 


PAY Lab) [5] 


1200 CS=CHRS (VAL (MIDS (DS,7,2))) 
+CHRS (VAL (MIDS (DS, 4,2))) +CHRS(V 
AL (MIDS (DS,1,2))) : RETURN 


1200 LET CS=CHR$ VAL DS(7 TO 8) 
+CHR$ VAL DS(4 TO 5) + CHR$ VAL 
D$(1 TO 2) 
1210 RETURN 





Não se esqueça de dimensionar C$(3) 
e DS$(8), no começo do programa. 


Descompressão de três para oito bytes: 


ana sy é) (S] 


1300 D$=RIGHTS (STR$ (ASC (MIDS (CS 
+2))),2)+"/"+RIGHTS (STRS (ASC(MI 
DS(C$,3))),2)+"/"+RIGHTS(STRS(A 
SC(C$)),2): RETURN 


1300 LET DS=STR$ CODE CS$(3 TO 3 
J+STR$ CODE CS(2 TO 2)+STRS COD 
E cs(1 To 1) 
1310 RETURN 

Essa técnica tem só uma desvanta- 
gem: na armazenagem de datas compri- 
midas em três bytes em arquivos segiuên- 
ciais (fita ou disco), a transmissão será 
truncada sempre que surgir um dia 13 
(pois CHR$(13) é o código ASCII para 
fim de linha). Isto não ocorrerá com ar- 
quivos de acesso aleatório. 












Nada impede que se armazene uma 
data de calendário em formato numéri- 
co — o que é até desejável em certas 
aplicações. Porém será desperdício de 
memória, mesmo que usemos variáveis 
inteiras (que ocupam só dois bytes de es- 
paço cada no TRS-80, TRS-Color, Ap- 
ple, TK-2000 e MSX; o ZX-8l e o Spec- 
trum não oferecem essa possibilidade). 

A armazenagem de uma data de ca- 
lendário em três variáveis inteiras — por 
exemplo, D, M e A — ocupará oito 
bytes. Podemos armazená-las em uma 
variável de precisão simples: 


DT = A * 10000 + M * 100 + D 
Veja os exemplos seguintes: 
Data DT 


01/01/47 470.101 
31/12/87 871.231 


Note que DT não pode ser uma va- 
riável inteira, pois esta não aceitaria os 
números maiores. Assim, ficamos, de 
novo, com seis bytes por data. 





AAA oo AU PARANA 


Uma boa prática de programação 
consiste em testar a validade da data de 
calendário que foi entrada pelo teclado, - 
checando separadamente o dia, o mês 
eo ano. 

Eis aqui uma rotina simples para teste 
de uma data entrada no formato de oi- 
to bytes (variável DS): 


anna dit] 


1500 E=0:M$="312931303130313130 
313031” 

1510 IF LEN(DS)<>8 THEN E=1:RET 
URN 

1520 M=VAL (MIDS (D$,4,2)):IF M<1 
OR M>13 THEN E=1:RETURN 

1530 D=VAL (MIDS (D$,1,2)):IF D<1 
OR D>VAL (MIDS (MS, (M-1)*2+1,2)) 
THEN 1590 

1550 RETURN 


1500 LET M$="312931303130313130 
313031” 


1505 LET E=0 

1510 IF LEN(D$)<>8 THEN GOTO 15 
0 

1520 LET M=VAL DS(4 TO 5) 

1525 IF M<l OR M>13 THEN GOTO 1 
560 

1530 LET D=VAL D$S(1 TO 2) 

1535 IF DX1 OR D>VAL MS((M-1)*2 


+1 TO (M-1)*2+2) THEN GOTO 1590 
1550 RETURN 
1590 LET E=1 
1600 RETURN 


Se a variável E retornar igual a 0, a 
data é válida; se retornar igual a 1, hou- 
ve erro de entrada. 


Peer 


Para muitas das técnicas de cálculo: 
de funções relacionadas a datas, é pre- 
ciso saber o dia do ano de certa data de 
calendário. Isso caracteriza a data cor- 
rida, composta do ano e do dia do ano 
(um número de 1 a 366). Por exemplo, 
a data corrida para 14 de maio de 1981 
é 134/81. 

Esta sub-rotina calcula a data corri- 
da a partir de uma data de calendário 
DS, em formato de oito bytes. O resul- 
tado será armazenado em N. 


nuns eélto) 


1600 M$="0000310590891201501812 
12242273303334" 

1605 D$=VAL (MIDS (DS,1,2)) :M$=VA 
L(MIDS(DS,4,2)) :At=VAL (MIDS (DS, 
7.2)) 

1610 N$=VAL (MIDS (MS, (M$-1)*3+1, 
3))+D$ 

1620 IF M$>2 AND 
=0 THEN N$=N$+1 
1630 RETURN 


1600 LET M$="000031059089120150 
181212242273303334" 

1605 LET D=VAL DS(1 TO 2) 

1606 LET M=VAL DS(4 TO 5) 

1607 LET A=VAL DS(7 TO 9) 

1610 LET N=VAL MS((M-1)*3+1 TO 
(M-1)*3+3) +D 

1620 IF M>2 AND (A AND NOT-4)=0 
THEN LET N=N+ 

1630 RETURN 


A variável M$, na linha 1600, con- 
tém o número do dia no ano equivalen- 
te ao primeiro dia de cada mês, menos 
1, para ano não bissexto. As variáveis 
D, Mc A são extraídas da variável DS, 
que contém a data de calendário. Na li- 
nha 1610, o número de dias correspon- 
dente à data D,M,A é calculado 
somando-se D ao número que se obtém 
extraindo-se do string M$ o valor para 
o primeiro dia do mês M. 

Finalmente, a linha 1620 verifica se 
o mês é março ou um dos meses que o 
sucedem e se o ano é divisível por 4 (ano 
bissexto). Nesse caso, acrescenta-se | ao 
número do dia, para compensar o fato 
de fevereiro ter 29 dias. O emprego, 
pouco usual, da expressão lógica AND 
NOT funciona como teste do resto da 
divisão por 4. 

A rotina só pode ser usada para os 
anos de 1901 a 1999, pois o cálculo de 
anos bissextos não funciona para sécu- 


(A& AND NOT-4) 


los ímpares — a não ser que o ano em 
questão seja divisível por 400. 


PR 


O modo mais fácil de determinar o 
número de dias transcorridos entre duas 
datas de calendário consiste em calcu- 
lar a data corrida de cada uma e obter 
a sua diferença mais 1. A operação fun- 
cionará bem se as datas forem do mes- 
mo ano; caso contrário, dará resultados 
errados. 

Por isso, devemos obter um outro 
número (chamado data juliana), que le- 
va em conta o total de dias entre uma 
data-base, fixa, e a data de calendário 
que especificamos. Para simplificar o 
cálculo, multiplicamos o ano por 365, 
de forma que a data-base passa a ser 
1900; depois, somamos o número de 
dias referente aos anos bissextos entre 
1900 e o ano atual. 

A próxima sub-rotina calcula a dife- 
rença entre duas datas, entre 1901 e 
1999, Adicione-a à sub-rotina anterior, 
que começa na linha 1600. 


ana !sy ÉS 


1700 DS=DIS:GOSUB 1600:N1l=N$+ 
ASX365+INT((A8-1)/4) 

1710 D$=D2S:GOSUB 
1600:N2=N$+A2*365+INT((A$-1)/4) 
1720 P=INT(N2-N1) : RETURN 


1700 LET D$=DIS 

1705 GOSUB 1600 

1706 LET NI=N+AX365+INT 
1710 LET DS=D25 

1715 GOSUB 1600 

1716 LET NZ=N+A*365+INT (A-1)/4 
1720 LET P=INT N2-N1 

1725 RETURN 


A sub-rotina aceita como argumen- 
tos duas datas, DIS e D2$, no formato 
de oito bytes (DD/MM/AA), e retorna 
o resultado armazenado em P. 

Para testá-la, acrescente as seguintes 
linhas: 


anna ÉS ES 


10 PRINT "PRIMEIRA DATA (DD/MM/ 
MA) "; 
20 INPUT 
30 PRINT 
AA) "5 
40 INPUT D25 
50 GOSUB 1700 
60 PRINT P 
70 GosUB 10 


(A-1)/4 


DIS 
"SEGUNDA DATA (DD/MM/ 


Use o programa para saber quantos 
dias você viveu até hoje! 
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FERRAMENTAS 
PARA O SPECTRUM 


COMANDOS EXTRAS 
RENUMERAÇÃO DE LINHAS 
ME AUTONUMERAÇÃO DE LINHAS 
ELIMINAÇÃO EM BLOCO 


OUTROS COMANDOS 




















Este conjunto de ferramentas de 
programação BASIC tornará seu 
trabalho mais fácil. Com ele, você 
terá acesso a diversos comandos 
inteiramente novos no Spectrum. 


Embora todos os micros examinados 
em INPUT utilizem a mesma linguagem 
BASIC, você já deve ter percebido que 
há diversas variantes, ou “dialetos” da 
mesma, De fato, é muito raro encontrar 
um programa, mesmo curto, que possa 
ser executado sem modificações em 
qualquer linha de computadores. Com 
frequência, trata-se apenas de uma va- 
riação na sintaxe dos comandos ou na 
maneira como eles são usados; nesse ca- 
so, a adaptação do programa não envol- 
ve maiores complicações. Algumas ve- 
zes, porém, constata-se que muitos dos 
comandos destinados a um computador 
simplesmente não existem para outros. 
Ainda que eles não sejam essenciais pa- 
ra a programação de muitas tarefas, não 
há dúvida de que, se fossem disponíveis, 
o trabalho do programador se tornaria 
bem mais fácil. Incluem-se nessa cate- 
goria os comandos para renumeração 
das linhas de um programa (RENUM), 
para eliminação de blocos de linhas 
(DEL) etc. Presentes em computadores 
de linhas mais recentes, como o MSX, 
esses comandos fazem muita falta nos 
micros da linha Sinclair. 

O programa apresentado neste arti- 
go adiciona várias comandos desse tipo 
ao interpretador dos microcomputado- 
res da linha Sinclair Spectrum, facilitan- 
do o desenvolvimento de programas em 
BASIC. Os micros das linhas TRS-80, 
TRS-Color e MSX não precisam de um 
programa como este, pois já dispõem da 
maioria dos comandos necessários em 
seu interpretador BASIC. 

O programa foi desenvolvido em có- 
digo de máquina, de modo a coexistir, 
na memória, com o programa em BA- 
SIC e o interpretador. 

São adicionados ao interpretador oi- 
to novos comandos e funções: 


* renumeração de linhas; 
* eliminação de um bloco de linhas; 


* número de bytes livres na memória; 

* comprimento de um programa; 

* numeração automática de linhas; 

* catalogador de fitas; 

* conversão de hexa para decimal e 
vice-versa. 


Todas essas funções são chamadas 
por intermédio do comando RANDO- 
MIZE USR, seguido de um número, 
conforme mostramos mais adiante. 

Uma vez que um novo comando te- 
nha sido ativado, ele pedirá diversos pa- 
râmetros — tais como os números das 
linhas a serem apagadas — através de 
mensagens exibidas na tela. 

O programa utiliza diversas rotinas 
em linguagem de máquina fornecidas 
em artigo posterior (Referência Cruza- 
da). Assim, será necessário juntar os 
dois programas. As instruções para a 
execução dessa tarefa estão contidas 
dentro do programa aqui apresentado, 
Bastará, portanto, digitar o programa, 
acioná-lo com um comando RUN e, en- 
tão, seguir a orientação dada pelas men- 
sagens exibidas na tela, O programa in- 
formará, também, se você cometeu al- 




























































gum erro na digitação das linhas DATA, 
que contêm o programa em código de 
máquina, pois efetua automaticamente 
uma soma de verificação. Corrija todos 
os erros, antes de armazenar o progra- 
ma em fita. 

Os códigos conjuntos do referencia- 
dor e do extensor de comandos serão ar- 
mazenados em fita sob a denominação 
“TOOLKIT” CODE. 

Para carregar o programa, digite: 


CLEAR 63488 


“OAD "TOOLKIT” CODE 
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A rotina de renumeração de linhas é 
ativada pelo comando: 


RANDOMIZE USR 63489 


O programa pede que se informe o 
incremento de linhas a ser utilizado (um 
número entre 1 e 255). Para achar o 
comprimento de um programa BASIC 
residente na memória, use: 


RANDOMIZE USR 63889 


Para achar o número de bytes dispo- 
níveis na memória, digite: 


RANDOMIZE USR 63860 


A numeração automática de linhas 
(comando AUTO, em outros computa- 
dores) é ativada por: 


RANDOMIZE USR 64154 


Em seguida o programa pedirá o nú- 
mero da linha inicial (entre 1 e 9900) e 
o incremento (1 a 9900). Para cancelar 
o comando, entre dois zeros quando o 
número de linha aparecer na tela. A ro- 
tina terminará com uma mensagem de 
erro, que deverá ser ignorada. 

Para apagar um conjunto de linhas 
de um programa, digite: 


RANDOMIZE USR 64000 


O programa solicita que o usuário di- 
gite os números de linha do início e do 
fim do bloco a ser apagado. Para acio- 
nar o catalogador de fitas, chame: 


RANDOMIZE USR 63919 


A seguir, a borda da tela começará 
a piscar. Posicione a fita a catalogar no 
início de um programa e pressione a te- 
cla PLAY do gravador. O programa exi- 





birá na tela informações contidas no ca- 

beçalho do arquivo (header). 
Finalmente, para converter números 

decimais para hexadecimais, use: 


RANDOMIZE USR 64394 


Para efetuar a conversão no sentido 
oposto, digite: 


RANDOMIZE USR 64453 


Não é preciso pressionar <EN- 
TER> após entrar o número hexa- 
decimal. 


5 CLEAR 63488: BORDER O: 
PAPER O: INK 6: CLS 
10 PRINT AT 0,5; INVERSE 1;"C 
ONJUNTO DE FERRAMENTAS” 
12 PRINT AT 8,2;” Qualquer te 
cla para carregar programa 
em codigo de maquina.”: PAUSE 
o 


14 LOAD "CREF"CODE 





15 CLS : PRINT "Pokeando codi 
go de maquina. Prepare o 
cassete para gravar.” 

20 LET L=100: RESTORE L: 
N=63489 TO 64560 STEP 16 
30 LET T=0: FOR D=0 TO 15 
40 READ A: POKE (N+D) ,A: 
T=T+A: NEXT D 

50 READ A: IF A<>T THEN 
PRINT "ERRO DE CHECKSUM EM "; 
L: STOP 

60 LET L=L+10 

70 NEXT N 

100 DATA 62,12,205,48,252,205, 
60,250,237,67,155,248,42,83,92 
+1,2019 

110 DATA 0,0,126,254,128,40,9, 
197,205,184,25,193,3,235,24, 
242,1865 

120 DATA 205,43,45,58,155,248, 
205,40,45,239,4,56,205,162,45, 
33,1788 

130 DATA 15,39,167,237,66,48,2 
+207,5,33,145,248,126,60,40,32 
«1470 

140 DATA 35,229,237,91,83,92, 
42,75,92,167,237,82,68,77,235, 
237,2079 

150 DATA 177,197,229,245,204, 
157,248,241,225,193,234,50,248 
,225,24,220,3147 

160 DATA 42,83,92,58,155,248, 
54,0,35,119,205,40,45,239,49, 
192,1656 

170 DATA 56,42,83,92,205,184, 
25,42,75,92,43,167,237,82,216, 
235,1876 

180 DATA 229,239,224,15,49,56, 
205,162,45,225,112,35,113,43, 
24,228,2004 

190 DATA 201,224,228,235,236, 
239,246,255,0,0,10,0,229,6,4, 
35,2148 

200 DATA 126,254,14,40,4,16, 
248,225,201,197,35,35,35,78,35 
+70,1613 

210 DATA 42,83,92,217,1,1,0, 
217,205,149,22,43,235,167,237, 
66,1777 

220 DATA 235,48,11,217,3,217, 
197,205,184,25,193,235,24,234, 
217,197,2442 

230 DATA 217,209,42,155,248, 
205,169,48,235,42,104,92,35,35 
+115,35,1986 

240 DATA 114,235,62,0,167,1,9, 
0,237,66,56,17,60,1,90,0,1115 
250 DATA 237,66,56,9,60,1,132, 
3,237,66,56,1,60,209,225,229, 
1647 

260 DATA 245,130,214,4,245,6,0 
+56,9,79,40,12,205,85,22,35, 
1387 

270 DATA 24,6,237,68,79,205, 
232,25,193,241,197,79,6,0,9,65 
+1666 

280 DATA 229,197,35,35,235,42, 
104,92,1,5,0,237,176,193,225, 
229,2035 

290 DATA 197,239,224,164,5,58, 
193,164,4,224,1,3,225,192,2,56 
+1951 

300 DATA 205,213,45,193,225, 


FOR 


LET 


198,48,119,43,16,228,229,42, 
104,92,35,2035 

310 DATA 35,126,225,198,48,119 
+241,193,245,42,83,92,167,229, 
237,66,2346 

320 DATA 225,48,8,197,205,184, 
25,193,235,24,242,235,35,35, 
293,126,2210 

330 DATA 128,119,201,62,0,205, 
48,252,205,26,31,33,0,0,62,0, 
1372 

340 DATA 237,66,229,193,205,43 
+45,62,254,205,1,22,205,227,45 
+201,2240 

350 DATA 42,75,92,237,75,83,92 
+62,0,237,66,229,62,1,205,48, 
1606 

360 DATA 252,193,205,43,45,205 
+227,45,62,2,205,48,252,201, 
221,33,2239 

370 DATA 32,255,17,17,0,175,55 
+205,86,5,62,3,205,48,252,221, 
1638 

380 DATA 33,32,255,221,126,0, 
198,6,221,229,205,48,252,62,13 
+215,2116 

390 DATA 62,4,205,48,252,221, 
225,221,35,221,126,0,254,255, 
40,10,2179 

400 DATA 6,10,221,126,0,221,35 
+215,16,248,62,13,215,62,5,205 
+1660 

410 DATA 48,252,221,33,32,255, 
221,78,11,221,70,12,195,163, 
249,205,2266 

420 DATA 142,250,62,10,205,48, 
252,205,60,250,205,110,25,229, 
62,13,2128 

430 DATA 215,62,11,205,48,252, 
205,60,250,205,110,25,193,32, 
16,229,2118 

440 DATA 35,35,126,35,95,126, 
87,225,237,90,17,4,0,237,90, 
229,1668 

450 DATA 197,62,0,237,66,218, 
87,252,195,89,252,6,0,197,205, 
95,2158 

460 DATA 252,205,115,252,193, 
254,13,40,26,254,58,48,240,214 
+48,56,2268 

470 DATA 236,245,4,120,254,6, 
32,4,5,241,24,225,241,245,198, 
48,2128 

480 DATA 215,24,218,221,33,49, 
255,120,254,0,40,207,33,0,0, 
221,1890 

490 DATA 94,0,221,86,1,241,254 
0,40,7,237,90,56,13,61,32,1433 
500 DATA 249,221,35,221,35,5, 
32,231,229,193,201,207,5,42,75 
+92,2073 

510 DATA 237,75,83,92,237,66, 
192,207,9,62,10,205,48,252,205 
+60,2040 

520 DATA 250,34,30,255,62,13, 
215,62,12,205,48,252,205,60, 
250,34,1987 

530 DATA 28,255,33,48,48,34,59 
+255,34,61,255,237,75,30,255, 
205,1912 

540 DATA 115,251,62,2,50,107, 
92,50,107,92,205,149,23,205, 
176,22.1708 





550 DATA 62,0,205,1,22,33,59, 
255,6,4,126,229,197,205,129,15 
+1548 

560 DATA 193,225,35,16,245,205 
+44,15,205,23,27,221,33,58,92, 
221,1858 

570 DATA 203,0,126,32,13,42,89 
+92,205,167,17,62,255,50,58,92 
+1503 

580 DATA 24,206,42,89,92,34,93 
+92,205,251,25,120,177,32,10, 
223,1715 

590 DATA 254,13,40,174,205,176 
+22,207,1,237,67,73,92,42,93, 
92,1788 

600 DATA 235,33,85,21,229,42, 
97,92,55,237,82,229,96,105,205 
+110,1953 

610 DATA 25,32,6,205,184,25, 
205,232,25,193,121,61,176,40, 
47,197,1774 

620 DATA 3,3,3,3,43,237,91,83, 
92,213,205,85,22,225,34,83, 
1425 

630 DATA 92,193,197,19,42,97, 
92,43,43,237,184,42,73,92,235, 
193,1874 

640 DATA 112,43,113,43,115,43, 
114,237,75,28,255,205,115,251, 
241,195,2185 

650 DATA 195,250,33,62,255,126 
+60,254,58,40,8,119,11,121,128 
+176,1896 

660 DATA 200,24,239,62,48,119, 
43,24,236,62,14,205,48,252,205 
+60,1841 

670 DATA 250,62,13,215,197,62, 
15,205,48,252,193,46,2,96,124, 
203,1983 

680 DATA 31,203,31,201,31,203, 
31,230,15,205,189,251,215,124, 
230,15,2207 

690 DATA 205,189,251,215,97,45 
+32,230,62,13,215,201,198,48, 
254,58,2313 

700 DATA 216,198,7,201,62,16, 
205,48,252,17,85,255,6,4,213, 
197,1982 

710 DATA 205,95,252,205,115, 
252,215,245,241,193,209,18,19, 
16,239,62,2581 

720 DATA 13,215,62,17,205,48, 
252,221,33,85,255,17,0,16,33,0 
+1472 

730 DATA 0,14,4,221,126,0,221, 
35,214,48,218,87,252,254,10,56 
+1760 

740 DATA 2,214,7,254,16,210,87 
+252,71,254,0,40,3,25,16,1704 
750 DATA 203,58,203,27,203,58, 
203,27,203,58,203,27,203,58, 
203,27,1964 

760 DATA 13,32,208,229,193,205 
+43,45,205,227,45,62,13,215, 
201,203,2139 

800 CLS : PRINT AT 5,5;” COMPI 
LACAO COMPLETA. ” 

810 PRINT AT 7,2;" PREPARE O CA 
SSETE PARA GRAVAR” 

820 PRINT AT 9,4;"0 NOME E TOO 
LKIT”” CODE” 

830 SAVE "TOOLKIT"CODE 63489, 
2000 
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e, computadores de uso geral, co- 
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série de dispositivos de entrada 
— como o teclado, o vídeo, joys- 

, impressora etc. Entretanto, é pos- 
utilizá-los como “'cérebro”” para 
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dão “inteligência” a um dispo- 
ivo mecânico. Se conectado a uma 
áquina de escrever, por exemplo, o 
mputador transforma-a em um ra 
nte processador de textos; se conec- 
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Os robôs reais ainda estão bem dis- 
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trial, por exemplo, ele continuará a sol- 
dar ou pintar “no vazio”. 

Já existem alguns robôs que possuem 
audição ou visão limitadas. Um robô de 
inspeção eletrônica, por exemplo, exa- 
mina placas de circuitos impressos com 
uma câmara de vídeo, e é capaz de de- 
tectar falhas de montagem. Outro tipo 
de robô é capaz de apanhar uma peça 
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ainda, são capazes de pegar um ovo sem 
quebrá-lo, pois têm delicados sensores 
de pressão na extremidade de seus “de- 
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sao utilizados em tarefas monótonas e 
repetitivas, como solda, pintura, mon- 
tagem e classificação de peças. 
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mas úteis, como, por exemplo, vigiar 
uma casa à noite. 

O LEO RO ES 
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percepções e movimentos. Esses dispo- 
sitivos separados são, em geral, contro- 
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tado no interior do próprio robô, ou em 
um microcomputador de uso geral, si- 
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COMUNICAÇÃO COM O EXTERIOR 


Para se comunicar com um robô, os 
microcomputadores pessoais geralmente 
têm pelo menos uma porta de entra- 
da/saída (E/S), através da qual podem 
entrar em contato com dispositivos me- 
cânicos externos. Existem dois tipos de 
porta E/S: as seriais e as paralelas. Elas 
diferem entre si quanto à maneira de en- 
viar e receber o fluxo de bits do perifé- 
rico. Na maioria dos micros, a unidade 
básica de intercâmbio de informação é 
o byte — um conjunto de oito bits, ou 
dígitos binários. A informação armaze- 
nada em um byte é uma segiiência de oi- 
to algarismos O ou 1 — por exemplo: 
00101101. 

Na memória interna de trabalho do 
computador, dois bytes são rotulados 
especialmente para intercâmbio de da- 
dos com cada porta de entrada e saída. 
O primeiro byte, chamado de Registro 
de Direção dos Dados (Data Direction 
Register, DDR), determina o status da 
porta, definindo quando o intercâmbio 
será no sentido da entrada ou no senti- 
do da saída. Em geral, se um bit no 
DDR tiver valor igual a 0, a porta cor- 
respondente está recebendo informações 
de fora; se for igual a 1, ela está trans- 
mitindo. Portanto, com o auxílio de um 
comando POKE, em BASIC, podemos 
ajustar cada um dos oito canais coman- 
dados pelo DDR, colocando um núme- 
ro decimal entre O (todos os canais re- 
cebendo) e 255 (todos os canais trans- 
mitindo, ou seja, DDR = 11111111 em 
binário). Colocando o valor 15, por 
exemplo, teremos DDR = 00001111 — 
isto é, os quatro primeiro canais estão 
emitindo, e os quatro últimos, receben- 
do. O endereço absoluto do DDR, a ser 
usado com o comando POKE, varia de 
computador para computador. 

O segundo byte que controla a porta 
corresponde ao endereço da mesma. Um 
dado colocado nesse byte é convertido 
pela interface, conforme a aplicação a 
que se destina, em uma série de pulsos 
de voltagem, que são então passados pa- 
ra o dispositivo. No sentido oposto, as 
voltagens emitidas pelo dispositivo pe- 
riférico são convertidas para bits pela in- 
terface, e colocadas no byte de endere- 
ço da porta. Dessa forma, o processa- 
dor central — e qualquer programa in- 
troduzido nele — tem fácil acesso à por- 
ta de entrada e saída, não precisando se 
ocupar com as conversões a serem rea- 
lizadas. 

A linguagem de máquina, como al- 
gumas linguagens de alto nível, entre 
elas o BASIC, dispõe de instruções pa- 
ra escrever e ler numa determinada por- 


ta de saída. Essas instruções são deno- 
minadas OUT e INP, respectivamente. 
Em BASIC, por exemplo, um comando: 


OUT 32,127 


coloca o número decimal 127 na porta 
de saída número 32. Normalmente, a 
maioria dos micros de oito bits admite 
até 256 portas de E/S, numeradas de O 
a 255. Embora algumas delas estejam re- 
servadas para periféricos já existentes, 
como o gravador cassete, as outras es- 
tão disponíveis para outros usos, como 
o controle de um robô. 

O comando INP tem a mesma sinta- 
xe e é usado para ler um byte no ende- 
reço da porta. Em geral, o computador 
não sabe quando este dado está dispo- 
nível. Assim, costuma-se usar um outro 
comando em BASIC para testar a dis- 
ponibilidade de um novo dado: WAIT 
(não confundir com o comando PAU- 
SE dos micros da linha Sinclair). 

Em uma porta paralela, os oito bits 
disponíveis no periférico ou byte de en- 
dereço da porta são transmitidos, simul- 
taneamente, por oito fios distintos. Na 
porta serial, a transmissão se realiza em 
um bit de cada vez, em “fila indiana”, 
por um único fio. 

Quando chega a seu destino, no pe- 
riférico, ainformação é usada para con- 
trolar várias operações. Em um dispo- 
sitivo eletromecânico, como um robô, 
ela é utilizada para ligar e desligar mo- 
tores, relés etc. Após selecionar o ende- 
reço da porta de saída, o programador 
pode enviar sinais para destinos especi- 
ficos. Por exemplo, se o valor é ajusta- 
do em 00110111, um sinal é mandado 
para as destinações correspondentes, 
através do terceiro, quarto, sexto, séti- 
mo e oitavo condutores de uma porta 
paralela, ou, sequencialmente, por um 
fio só, de uma porta serial, 
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Com o aumento do interesse pela ro- 
bótica, surgiram nos últimos anos vários 
tipos de robôs baratos que podem ser 
controlados por um computador domés- 
tico. As duas categorias básicas de ro- 
bôs desse tipo são os braços robóticos 
e os robôs móveis (tartarugas e buggies), 
geralmente fornecidos em forma de kits 
para montar, e com o software neces- 
sário para operá-los. 

Os braços robóticos procuram imitar 
os movimentos do braço humano. Cos- 
tumam ter cinco pontos de movimento, 
ou graus de liberdade: ombro, cotove- 
lo, pulso, garra (com ou sem rotação ao 
redor do pulso) e base do braço (movi- 
mento basculante). Braços robóticos po- 


dem ter até nove graus de liberdade. O 
nível de sofisticação do braço se refle- 
te, é claro, em seu preço final. 

Os braços mais baratos, como o Ar- 
matron, comercializado na Europa, não 
são programáveis. A designação de ro- 
bô não se aplica a eles, portanto — não 
passam de um brinquedo mais elabora- 
do. Outros, como o Armbot e o Arm- 
droid 1, podem ser controlados por vá- 
rios tipos de microcomputador. Têm 
cinco ou seis motores de passo variável 
e custam tanto quanto uma UCP de 
bom preço. Seus movimentos, realiza- 
dos um por vez ou de modo continuo, 
são controlados de modo direto ou por 
uma sequência armazenada no micro. É 
possível adicionar pausas, alterar a ve- 
locidade do braço e editar as segiiências 
armazenadas, para modificar ou acres- 
centar novas fases de movimento. O 
programa para controle do braço pode 
ser escrito em Assembler ou BASIC, 
com chamadas às rotinas em código de 
máquina que controlam as portas de 
E/S. Estas são fornecidas pelo fabrican- 
te que também coloca à disposição do 
usuário listagens-exemplo de BASIC, 
com comentários e explicações. 

Existem ainda braços robóticos que 
utilizam servomotores, em vez de mo- 
tores de passo. Um servomotor possui 
um sensor de posição que verifica con- 
tinuamente se as posições determinadas 
por comandos estão sendo atingidas. 
Circuitos integrados de preço bastante 
acessível (amplificadores lineares) per- 
mitem um controle razoável do perifé- 
rico, Um exemplo de braços desse tipo 
é o Beasty, comercializado na Inglater- 
ra para os micros da linha BBC. 

O Beasty tem diversos implementos 
úteis para o desenvolvimento de proje- 
tos de robótica aplicada. Uma câmara 
miniaturizada, chamada Snap, permite 
que o micro “veja” e mova o braço. Es- 
se dispositivo contém um circuito inte- 
grado sensível à luz, que transmite uma 
imagem digitalizada com uma resolução 
de 128 x 256. Pesa menos que 45 g, me- 
de 8 x 10 cm, e é capaz de captar até 
vinte imagens por segundo. Vários pro- 
gramas interessantes são fornecidos com 
o Snap, possibilitando, entre outras 
coisas: 


- exibir as imagens captadas no vídeo do 
microcomputador. A imagem pode ser 
“fixada”, como se fosse uma foto, ar- 
mazenada em disco ou fita, e, posterior- 
mente, reproduzida por meio de uma 
impressora gráfica; 


- animar uma segiência de imagens 
(vinte quadros), como se fosse um fil- 
me ou desenho animado; 


- comparar duas imagens tomadas em 
períodos distintos. Esse recurso tem lar- 
ga aplicação, por exemplo, na monito- 
rização de residências, edifícios ou lo- 
jas, no sentido de evitar a penetração de 
estranhos. Se a imagem tiver se modifi- 
cado além de um limite prefixado, um 
alarme pode ser ativado. O programa 
mostra um gráfico com o número de 
mudanças, em função do tempo; 


- reconhecer cenas e objetos e movimen- 
tar o braço em função disso. 


Muitas empresas que fabricam jogos 
mecânicos de armar, como Meccano e 
Lego, lançaram kits com braços robó- 
ticos, que podem ser conectados a mi- 
crocomputadores baratos, como o Sin- 
clair Spectrum. Esses jogos são muito 
educativos — aprende-se muito sobre o 
funcionamento de um robô, quando se 
tem a oportunidade de armar e progra- 
mar um sistema desde o início. 


SAUNAS 





Ao contrário dos braços robóticos, 
de base estacionária, alguns robôs para 
microcomputadores, como as tartarugas 
eos buggies, movimentam-se sobre ro- 
das. O primeiro robô desse tipo data dos 
anos 40, quando o cientista britânico 
Ross Ashby desenvolveu uma tartaruga 
eletrônica que tinha a tarefa de achar 
uma tomada para alimentar suas bate- 
rias. O “bichinho”, apesar de muito 
simples, exibia notáveis e surpreenden- 
tes padrões “comportamentais” 

A primeira tartaruga para micros 
apareceu no Laboratório de Inteligên- 
cia Artificial do MIT (Massachusetts 
Institute of Technology), nos Estados 
Unidos. Era o “filhote”* da equipe do 
Prof. Seymour Papert, criador da lin- 
guagem LOGO. Sua estrutura também 
é simples: consta de uma campânula he- 
misférica de acrílico, montada sobre 
uma base móvel com duas rodas inde- 
pendentes, acionadas por motores con- 
trolados pelo microcomputador. A cam- 
pânula pode ser acoplada a um sensor 
de contato, que se comunica com o com- 
putador quando o robô colide com al- 
gum objeto ou parede. Na “barriga” da 
tartaruga, um solenóide controla um 
porta-caneta, que levanta ou abaixa sob 
controle do computador. Assim, a tar- 
taruga pode ser “ensinada” a traçar de- 
senhos sobre um papel colocado no 
chão. 

As tartarugas têm sido muito utiliza- 
das em escolas secundárias, para ensi- 
nar conceitos de programação a crian- 
ças menores. Empregando a linguagem 


LOGO ou uma simplificação da mesma 
(com comandos de uma tecla), a crian- 
ça aprende a programar a tartaruga pa- 
ra realizar movimentos complexos. Um 
dos jogos preferidos consiste em dar co- 
mandos pelo teclado, até que a tartaru- 
ga entre em sua “casinha”. Os coman- 
dos em LOGO, digitados em um micro- 
computador, são traduzidos por uma in- 
terface de software para códigos biná- 
rios de controle das portas de saída. Es- 
ses sinais são enviados por um “cordão 
umbilical” ligado à tartaruga, ou, nos 
modelos mais sofisticados, como a Va- 
liant Turtle, por meio de sinais infraver- 
melhos. Uma placa com circuitos eletrô- 
nicos, na tartaruga, traduz os comandos 
binários em ações sobre os motores das 
rodas e da caneta. A tartaruga tem ain- 
da um olho luminoso, que acende quan- 
do ela se movimenta. 

Os comandos do LOGO permitem a 
movimentação da tartaruga segundo um 
sistema geométrico, em que a própria 
tartaruga é o ponto de referência. Exa- 
minaremos esses comandos em detalhe, 
na série de artigos sobre novas lingua- 
gens. Adiantamos aqui, entretanto, as 
instruções mais típicas: 


FORWARD - Move a tartaruga, em 
linha reta, para a frente. 

BACK -Move a tartaruga, em linha re- 
ta, para trás. 

RIGHT - Vira a tartaruga para o la- 
do direito. 

LEFT - Vira a tartaruga para o lado 
esquerdo. 

PENUP - Levanta a caneta, interrom- 
pendo o desenho. 

PENDOWN - Abaixa a caneta, per- 
mitindo o desenho. 

REPEAT - Repete uma segiiência de 
movimentos várias vezes. 

TO...END - Armazena uma segiiência 
programada de movimentos, que rece- 
be um nome (procedimento). 


Para fazer a tartaruga desenhar um 
triângulo com lados de duzentos passos 
(unidades de deslocamento), as instru- 
ções a serem dadas são: 


FORWARD 200 
RIGHT 120 
FORWARD 200 
RIGHT 120 
FORWARD 200 
RIGHT 120 


Poderíamos escrever o mesmo com 
mais economia: 
REPEAT 3 [FORWARD 200 RIGHT 
120] 


Ou, ainda, armazenar as instruções 
na forma de um procedimento denomi- 
nado TRIANGULO: 





Há robôs para micros no Brasil? 

Os leitores que se interessaram pe- 
lo assunto com certeza ficarão frustra- 
dos com a resposta: atualmente não 
há, no Brasil, robôs comerciais para co- 
nexão a microcomputadores. 

A Universidade Estadual de Campi- 
nas (Unicamp) construiu uma tartaru- 
ga semelhante à criada pelo MIT, para 
uso em seus projetos com a linguagem 
LOGO. Porém, essa tartaruga não che- 
gou a ser produzida industrialmente. 
Grupos de trabalho da Universidade de 
São Paulo (USP) e da Universidade Fe- 
deral do Rio de Janeiro (UFRJ) desen- 
volveram protótipos de braços robóti- 
cos, como os descritos no artigo, mas 
estes também não são comercializados 
ainda. 

Para quem tem condições, resta a 
possibilidade de mandar trazer do ex- 
terior um dos modelos de robô mais co- 
nhecidos, como a Terrapin Turtle ou a 
Valiant Turtle (tartarugas), o Hero | (ro- 
bô buggy da Zenith/Heathkit), Armbot, 
Armdroid ou Beasty (braços robóticos) 
e kits da Lego. 











TO TRIANGULO 

REPEAT 3 [FORWARD 200 RIGHT 
120] 

END 

Uma vez definida, a palavra TRIAN- 
GULO passa a fazer parte do vocabu- 
lário LOGO. Depois, para traçar a fi 
gura, basta digitar o comando TRIAN- 
GULO pelo teclado. 

Pode-se utilizar um mesmo procedi- 
mento dentro de outros, destinados a 
realizar movimentos mais complexos. 
Por exemplo, para fazer com que a tar- 
taruga desenhe uma flor formada de do- 
ze pétalas triangulares iguais, digitamos 
o seguinte: 


TO FLOR 
REPEAT 12 [TRIANGULO RIGHT 30] 
END 


O LOGO é uma linguagem muito 
versátil, também empregada para fazer 
cálculos matemáticos, manipular dados 
simbólicos como listas, palavras e no- 
mes etc. Associado a uma tartaruga, tem 
o poder de tornar muito divertido o 
aprendizado da programação. 

Programas em outras linguagens, co- 
mo o BASIC, também podem ser usa- 
dos para controlar a tartaruga. 















ATORRE 
DE BABEL 


Existem atualmente mais de duzentas 
linguagens de programação. 

Algumas delas prometem tornar-se 
tão conhecidas quanto o BASIC 

no decorrer dos próximos anos. 


Até agora, focalizamos em INPUT 
duas linguagens de programação: As- 
sembler e BASIC. Estas são, de fato, as 
linguagens mais difundidas entre os 
usuários dos microcomputadores pes- 
soais e domésticos existentes atualmen- 
te no mercado brasileiro. Não são, po- 
rém, as únicas disponíveis. 

Algumas linguagens vêm se tornan- 
do gradativamente mais conhecidas e 
utilizadas em micros pessoais — em par- 
ticular o LOGO, o PASCAL e o 
FORTH. Outras, criadas já há algum 
tempo, mas destinadas a computadores 
de maior porte, prometem estender seu 
uso aos micros, podendo se tornar o fu- 
turo “esperanto” das máquinas de me- 
nor porte, Entre elas, incluem-se o LISP 
eo PROLOG. Entretanto, como as lin- 
guagens mais recentes ainda se encon- 
tram em processo de aceitação e difu- 
são, nem sempre estão disponíveis para 
os micros de todas as marcas. 

Na série que se inicia com este arti- 
go, apresentaremos duas linguagens de 
programação cuja popularidade tem 
crescido dia a dia entre os usuários de 
micros: o LOGO e o PASCAL. Cada 
uma tem características que permitem 
sua aplicação seja como linguagem ge- 
ral de programação (como o PASCAL), 
seja como linguagem destinada a áreas 
específicas — a área educativa, por 
exemplo (como o LOGO). 

Examinaremos aqui alguns aspectos 
do desenvolvimento de linguagens de 
programação, a evolução histórica das 
linguagens existentes e os critérios usa- 
dos em sua classificação. 

Há atualmente mais de duzentas lin- 
guagens de programação catalogadas. À 
primeira vista, podemos ter a impressão 
de que se trata de uma enorme e bíblica 
“torre de Babel". No entanto, as lin- 
guagens de programação, tal como as 
linguagens naturais, podem ser enqua- 
dradas em linhas evolutivas, ou famílias 








de linguagens. Dentro de uma família, 
as semelhanças são maiores que as dife- 
renças, o que facilita muito a compreen- 
são e o aprendizado das linguagens que 
a compõem, 
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Um dos fatores condicionantes do 
aparecimento de novas linguagens de 
programação é o progresso tecnológico 
do hardware dos computadores — ou 
seja, a disponibilidade de memórias cen- 
trais cada vez maiores, o aumento na ve- 
locidade do processador central (UCP), 
o custo mais baixo das memórias auxi- 
liares de disco, o aparecimento de redes 
de computadores etc. 

Nos últimos anos, as linguagens de 
alto nível — que se parecem mais com 
a linguagem natural humana do que 
com a binária, entendida somente pelos 
computadores — sofreram grande evo- 
lução. Avanços técnicos recentes permi- 
tem que elas sejam utilizadas como a lin- 
guagem nativa dos computadores, no lu- 
gar da linguagem de máquina. Com is- 
so, a programação se torna muito mais 
fácil, podendo ser realizada, em muitos 
casos, pelos próprios usuários. 

No final da década de 70, o Assem- 
bler e o BASIC eram praticamente as 
únicas linguagens para micros de custo 
mais baixo, pois o tamanho das memó- 
rias ROM disponíveis limitavam muito 
a complexidade e a extensão do progra- 
ma interpretador, que deveria ficar per- 
manentemente na memória da máquina. 

Entretanto, à medida que o espaço 
para a memória foi sendo ampliado, 
cresceu também a demanda por outros 
tipos de linguagem — o que era de se 
esperar, dado o número cada vez maior 
de usuários e de possibilidades de apli- 
cação. Surgiram então as primeiras im- 
plementações práticas, em microcompu- 
tadores, de FORTH, PASCAL, LOGO, 
FORTRAN, PILOT, €, LISP, PRO- 
LOG, SMALLTALK e várias outras lin- 
guagens. Muitas delas só podiam ser 
usadas, anteriormente, em computado- 
res de grande porte. 

Mesmo algumas linguagens de maior 
complexidade, que encontram aplica- 
ções em áreas comerciais ou científicas 
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mais “*pesadas”', como o COBOL, 
APL, PL/1, SNOBOL, MODULA, 
ALGOL e ADA, já podem ser utiliza- 
das em microcomputadores da faixa 
profissional. 

Ao que tudo indica, a difusão dessas 
linguagens tende a crescer, conforme os 
usuários forem se familiarizando com as 
suas vantagens. A expansão na capaci- 
dade e velocidade dos micros fornecerá 
as bases para esse avanço. 

Outro fenômeno registrado na mi- 
croinformática é a multiplicação de pro- 
gramas que funcionam,ao mesmo tem- 
po, como um aplicativo (bancos de da- 
dos, planilhas eletrônicas etc.) e como 
linguagem de programação. É o caso do 
dBASE II (banco de dados) e do FRED 
(planilha eletrônica), entre outros. 

O desenvolvimento de muitos desses 
novos aplicativos “genéricos” deu ori- 
gem a linguagens altamente específicas, 
usadas para simulação (DYNAMO, 
GPSS), controle de equipamentos indus- 
triais (PEARL), controle de interfaces 
e equipamentos musicais (AMPLE) etc. 


DESENVOLVIMENTO DE LINGUAGENS 


Nada impede que todas as linguagens 
de programação venham a ser desenvol- 
vidas para microcomputadores. Mas pa- 
rece pouco provável que isso ocorra, vis- 
to o grande número de linguagens exis- 
tentes. Das mais de duzentas desenvol- 
vidas até agora, não chegam a vinte as 
que se tornaram conhecidas e utilizadas. 

Como as linguagens naturais, as lin- 
guagens de programação passam por 
contínuo processo de transformação, re- 
visão e alteração. O FORTRAN (FOR- 
mula TRANslation), por exemplo, evo- 
luiu tanto a partir da versão original, 
lançada em 1954, que, em alguns aspec- 
tos, é uma linguagem diversa. 

Além desse contínuo aperfeiçoamen- 
to, as linguagens também passam por 
um processo de geração de uma enor- 
me quantidade de “dialetos” ou varian- 
tes, desenvolvidas para implementação 
em linhas específicas de hardware, em 
diferentes sistemas e organizações. 

Uma das limitações mais sérias en- 
contradas pelo usuário de micros é jus- 
tamente a incompatibilidade entre dife- 
rentes dialetos do BASIC. Um progra- 
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ma desenvolvido segundo o BASIC da 
linha Apple, por exemplo, em geral não 
pode ser executado em um micro de ou- 
tra linha, como o Spectrum ou o MSX. 

Apesar de todo o esforço despendi- 
do na elaboração de um padrão inter- 
nacional, o ANSI BASIC, o problema 
ainda não foi solucionado. A inadequa- 
ção desse padrão é evidente: tanto que 
não há uma única marca de computa- 
dor que o adote integralmente. Por is- 
so, O interpretador BASIC, criado pela 
firma norte-americana Microsoft, tem 
sido usado como uma espécie de padrão 
por fabricantes de máquinas tão distin- 
tas como o Apple, o TRS-80 e o MSX. 

O projeto do MSX, aliás, é fruto de 
uma das últimas tentativas de se padro- 
nizar hardware e software de microcom- 
putadores pessoais através da implemen- 
tação de mais um dialeto do BASIC Mi- 
crosoft. Esse padrão tem tido excelente 
repercussão mundial, principalmente no 
Japão (seu país de origem), na Europa, 
e no Brasil. 

A história das outras linguagens não 
foi muito diferente: o sucesso de um pa- 
drão resultou sempre da conquista de 
uma boa fatia do mercado pela empre- 
sa que o desenvolveu. O FORTRAN, 
por exemplo, foi desenvolvido pela IBM 
e, como era distribuído gratuitamente 
com os computadores dessa empresa, 
passou a ser amplamente adotado e se- 
guido, inclusive por outros fabricantes. 
Contando com uma grande base de 
usuários, a própria IBM pôde realizar 
melhorias subsequentes do FORTRAN 
— como o FORTRAN II, o FORTRAN 
Iv, as versões G e H, o FORTRAN 77 
etc. 

Entretanto, uma linguagem como o 
PASCAL, que talvez seja a segunda lin- 
guagem mais popular para micros, pos- 
sui pelo menos sete versões diferentes. 
Cada uma delas é um semipadrão para 
o PASCAL relativo ao sistema opera- 
cional sob o qual roda. 
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GEM 


A torre de Babel é uma consegiiên- 
cia inevitável da necessidade de desen- 
volvimento de novas linguagens. 
Voltemos ao exemplo do FOR- 
TRAN. Seguramente, foi a primeira lin- 
guagem de alto nível desenvolvida. Sua 
criação atendeu a duas exigências: a re- 
solução de fórmulas matemáticas e cien- 
tíficas, e o uso eficiente dos recursos 
computacionais disponíveis. Nesses as- 
pectos, foi um sucesso. Mas, em dois 
outros pontos, que não tinham sido jul- 
gados importantes pelos projetistas do 
FORTRAN, a linguagem mostrou-se 
deficiente. Ela é excelente para fins ma- 













temáticos e científicos, mas extrema- 
mente inadequada (ou mesmo inútil) pa- 
ra tarefas como processamento de tex- 
tos ou bancos de dados. Além disso, não 
é uma linguagem estruturada, o que 
restringe a ação do programador. 

Na década de 60, desenvolveu-se uma 
outra linguagem, o ALGOL 60, com 
uma filosofia distinta de projeto. Seus 
pontos fracos e fortes diferem bastante 
daqueles que caracterizam o FORTRAN 
— sobretudo por se tratar da primeira 
linguagem de programação estruturada. 
Ela foi projetada para ser essencialmen- 
te algorítmica (dai seu nome, ALGO- 
rithmic Language), ou seja, para corres- 
ponder não às fórmulas matemáticas, 
mas ao processo inerente usado na re- 
solução de um problema (algoritmo). A 
unidade básica do ALGOL é o procedi- 
mento, um bloco autônomo de código, 
com uma tarefa claramente definida, 
que trabalha com tipos predefinidos de 
variáveis (declarações). Por essa razão, 
todas as linguagens derivadas direta- 
mente do ALGOL, como o PASCAL, 
o MODULA-2eo ADA, são classifica- 
das como procedimentais, declarativa, 
algorítmicas e estruturadas. 

Embora não tenha sido muito usado, 
o ALGOL 60 desempenhou um papel de 
destaque, gerando um grande número 
de linguagens. Já o COBOL, conside- 
rado o terceiro “avô” da computação, 
foi intensamente utilizado — mas só dei- 
xou um “descendente”, o PL/1. 

O COBOL (Common Business — 
Oriented Language) surgiu como respos- 
ta à conclusão — enunciada pelo Minis- 
tério da Defesa dos Estados Unidos — 
de que as instalações militares e centros 
de pesquisa necessitavam de uma lingua- 
gem de programação comum, se quises- 
sem operar o sistema americano de de- 
fesa como um todo, efetivamente. De- 
senvolvida a partir de um esquema de 
cooperação entre governo e indústria, 
essa linguagem difundiu-se rápida e am- 
plamente. É provável que seja, hoje, a 
linguagem mais utilizada para aplicações 
comerciais em computadores de grande 
porte. Uma das razões que explicam a 
grande aceitação do COBOL é sua pro- 
ximidade do inglês natural. 


EVOLU 


As linguagens de alto nível anterior- 
mente mencionadas deram origem à 
grande maioria das linguagens de pro- 
gramação da década de 60, muitas das 
quais ainda em uso. O BASIC, por 
exemplo, é um descendente direto do 
FORTRAN. As diferenças entre ambos 
refletem o intuito de se chegar a uma lin- 





guagem de fácil uso pelos iniciantes em 
programação. O ALGOL 60 deu origem 
ao ALGOL 68 — tão diferente, que po- 
de ser considerado uma nova linguagem, 
apesar do mesmo nome —, bem como 
ao PASCAL e ao SIMULA. De uma 
combinação entre o ALGOL e o CO- 
BOL surgiu o PL/1. Do PASCAL e do 
SIMULA nasceu um grupo de lingua- 
gens procedimentais e algoritmicas, que 
incluem o MODULA, o MESA, o EU- 
CLID e o ADA, Finalmente, uma lin- 
guagem bastante poderosa, voltada à 
programação de objetos, originou-se do 
SIMULA — o SMALLTALK. 
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Todas as linguagens citadas são clas- 
sificadas como imperativas, pois ope- 
ram através de uma segiiência de co- 
mandos declarativos — isto é, coman- 
dos que determinam um tipo altamente 
específico de ação sobre dados da me- 
mória, rotulados na forma de variáveis. 
Muitas pessoas estão tão acostumadas 
a essa forma de programação, que ima- 
ginam tratar-se da única possível. En- 
tretanto, outras famílias, que incluem 
linguagens como o FORTH, o LISP e 
o LOGO, têm estruturas de dados e de 
processamento bastante diferentes. Elas 
constituem o grupo de linguagens cha- 
madas funcionais ou aplicativas, ope- 
rando basicamente através da aplicação 
recursiva de funções. 


LINGUAGENS FUNCIONAIS 


As linguagens funcionais, como o 
próprio nome sugere, atuam sobre os 
dados por meio de funções ou procedi- 
mentos. Um procedimento é algo bem 
mais poderoso do que um comando. Ve- 
jamos por quê: toda linguagem de pro- 
gramação tem um vocabulário fixo de 
instruções, chamado conjunto de instru- 
ções. As linguagens imperativas utilizam 
um conjunto fixo de instruções, ou se- 
ja, um conjunto que não pode ser am- 
pliado pelo próprio usuário. A lingua- 
gem funcional, ao contrário, não faz 
distinção entre os comandos, declara- 
ções ou funções pertencentes ao conjun- 
to original e as funções ou procedimen- 
tos criados pelo usuário. Por isso, diz- 
se que certas classes de linguagens fun- 
cionais são extensíveis. 

O processamento baseado em fun- 
ções apresenta ainda outra vantagem: 
ela age sobre parâmetros de entrada e 
devolve parâmetros de saída, sem “'sa- 
ber'* necessariamente o que eles repre- 
sentam. Isso justifica a classificação das 
funções como generalizáveis. 


As linguagens funcionais podem ser 
divididas em módulos (blocos autôno- 
mos de processamento) mais facilmen- 
te do que as imperativas, e possuem uma 
estrutura interna hierárquica que é usa- 
da tanto para o armazenamento do pro- 
grama quanto dos dados. No LISP ou 
no LOGO, por exemplo, uma lista de- 
finida como uma estrutura de dados po- 
de ser usada para armazenar um progra- 
ma. Existem comandos para modificar 
e executar um programa, armazenado 
em uma lista (EXECUTE, em LOGO, 
e EVAL, em LISP). Essa propriedade 
de uma linguagem é chamada indireção. 

Já em uma linguagem imperativa, co- 
mo o BASIC, programa e dados são ele- 
mentos inteiramente distintos. O con- 
junto de instruções não pode ser amplia- 
do e a ordem de execução é muito im- 
portante: se ela sofrer alguma modifi- 
cação, determinados valores de memó- 
ria não serão criados ou atualizados. 

Linguagens como o LISP permitem 
uma abordagem bem diferente. Em um 
certo sentido, cada programa em LISP 
— ou nas linguagens que dele derivam 
— é uma extensão da linguagem origi- 
nal, com o acréscimo das novas funções 
definidas pelo usuário, Com uma lin- 
guagem funcional, o programador tem 
maior controle sobre o que faz do que 
com uma linguagem imperativa. 

As três propriedades mencionadas — 
recursão, extensibilidade e indireção — 
são fundamentais em um campo muito 
atual das ciências da computação: a In- 
teligência Artificial (“raciocínio” e 
“aprendizado” por máquina). LISP e 
LOGO, aliás, foram criados especifica- 
mente para facilitar o processamento 
simbólico, não-numérico, característico 
das aplicações de Inteligência Artificial. 
Ambos nasceram no Laboratório de In- 
teligência Artificial do MIT (Massachu- 
setts Institute of Technology, nosEUA), 
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Como já dissemos, as linguagens de 
computador, da mesma forma que as 
linguagens naturais, não permanecem 
estáticas: elas evoluem constantemente, 
absorvendo aspectos de outras lingua- 
gens. Com isso, as diferenças entre lin- 
guagens imperativas e linguagens fun- 
cionais tendem a diminuir. 

Tomemos como exemplo o BASIC: 
os dialetos mais difundidos do Micro- 
soft BASIC (para as linhas Apple, 
TRS-80, TRS-Color e MSX) são lingua- 
gens puramente imperativas. Seus des- 
cendentes mais modernos, porém, como 
o QuickBASIC (da própria Microsoft), 
possuem características funcionais, en- 
tre elas a programação estruturada. 


Um processo semelhante ocorreu 
com o BASIC original das linhas Sin- 
clair. O SuperBASIC do modelo QL 
Spectrum, que dele deriva, tem não só 
estruturas — como CASE SELECT — 
próprias do PASCAL, como também 
oferece a possibilidade de se chamar 
funções apenas pelo nome e de se utili- 
zar a recursão. Desenvolvimentos futu- 
ros da linguagem BASIC provavelmen- 
te a afastarão ainda mais do padrão ori- 
ginal (ANSI), incorporando elementos 
de linguagens funcionais como o 
FORTH e o LISP. 

Como já vimos, o LISP foi desenvol- 
vido como uma linguagem para o cam- 
po de Inteligência Artificial, e, ainda ho- 
je, predomina nessa área. Uma de suas 
principais características é o intenso uso 
de cadeias de caracteres (string). Outra 
linguagem útil na mesma área é o SNO- 
BOL (StriNg Oriented SymBOlic Lan- 
guage), originalmente desenvolvida pa- 
ra o processamento de linguagem natu- 
ral em Inteligência Artificial, Lingúísti- 
ca etc., em tarefas como a determina- 
ção da autoria de manuscritos, análise 
estilística de textos literários e geração 
automática de poemas. 

Também merece destaque a recente 
evolução das linguagens de desenvolvi- 
mento de sistemas. São linguagens de al- 
to nível, mas que incorporam recursos 
avançados de trabalho direto com a me- 
mória, processador e periféricos do 
computador. Entre as linguagens desse 
tipo, a de maior sucesso é o €, que foi 
usada para desenvolver o sistema ope- 
racional UNIX. Ela possui um podero- 
so conjunto de ferramentas de desenvol- 
vimento de software e tem sido utiliza- 
da sobretudo por programadores mais 
experientes. Para o usuário comum, o 
€ parece um tanto inacessível — está en- 
tre uma linguagem de alto nível, como 
o PASCAL, e um Assembler, bem mais 
flexível, mas difícil de usar. Mesmo as- 
sim, essa linguagem vem se difundindo, 
principalmente entre os amadores que 
desejam dominar sua máquina sem ter 
o trabalho de aprender Assembler. Exis- 
tem diversas implementações do C pa- 
ra micros, inclusive o Spectrum. 

O SmallTalk é outra linguagem que 
segue de perto a filosofia do LISP. Tí- 
pica de uma nova família, a das lingua- 
gens de programação de objetos, ela 
constitui um “ambiente” completo de 
programação, como o C, e não apenas 
uma linguagem. O SmallTalk tem, no 
entanto, diversos recursos voltados pa- 
ra a máxima simplificação do conceito 
de programa e da tarefa de programa- 
ção. Nessa linguagem, cada item de um 
programa é considerado um objeto. A 
programação é feita através do inter- 


câmbio de “mensagens” entre objetos. 
Como não existe outro tipo de proces- 
samento, qualquer ação em um progra- 
ma é sempre a mesma coisa: uma men- 
sagem enviada para um objeto, que, por 
sua vez, envia mensagens para outros 
objetos. 

Os objetos podem realizar processa- 
mentos internos, conforme a mensagem 
que recebem. Um objeto do SmallTalk 
é, assim, semelhante a uma função LISP 
ou a um procedimento PASCAL. Só 
que, em vez de construir procedimentos 
e incorporá-los a uma estrutura em ár- 
vore, como no LISP e LOGO, os obje- 
tos podem ser considerados entidades 
independentes — como os registros de 
uma base de dados, em que cada regis- 
tro interroga ou responde aos demais. 
Em outras palavras, um objeto pode 
conter tanto dados quanto programas. 

A idéia não é muito fácil de enten- 
der, a não ser que se observe o funcio- 
namento do sistema. Infelizmente, ain- 
da não se encontram implementações de 
SmallTalk para todos os micros. Mas 
certamente vale a pena investigar essa 
linguagem, pois ela representa uma ten- 
dência importante para o futuro, Siste- 
mas operacionais de micros modernos, 
como o Macintosh, da Apple, foram 
muito influenciados pela filosofia Small- 
Talk, inclusive quanto ao tratamento da 
interface com o usuário, que é feita atra- 
vés de “janelas” múltiplas, menus e 
acionamento do “mouse”. 
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Certas linguagens aplicativas mais re- 
centes (de quarta geração) foram desen- 
volvidas a fim de dotar o programador 
de poderosíssimos recursos, denomina- 
dos macros. Com efeito, nessas lingua- 
gens, um único comando ou função 
equivale a centenas ou milhares de ins- 
truções de uma linguagem imperativa 
comum, como o BASIC. Um exemplo 
de linguagem de quarta geração para mi- 
cros, o dBASE II (e sua extensão para 
micros de dezesseis bits, o dBASE III), 
é, ao mesmo tempo, um sistema aplica- 
tivo — mais especificamente, um siste- 
ma gerenciador de bases de dados, ou 
SGBD — e uma linguagem de pro- 
gramação. 

Outra linguagem de quarta geração 
em franca ascensão é o PROLOG 
(PROgramming in LOGic), desenvolvi- 
do na França e adotado pelos japone- 
ses em seu programa de computadores 
de quinta geração. O PROLOG está pa- 
ra o campo da Inteligência Artificial co- 
mo o dBASE para a área de gerencia- 
mento de dados. Existem PROLOG pa- 
ra micros de oito e dezesseis bits. 















Avalanche agora está completo, mas 
pode precisar de alguns acertos. E pou- 
co provável que você tenha digitado um 
programa tão longo sem cometer alguns 
enganos. Dedique-se à resolução de 
eventuais problemas causados ao criar 
ou copiar erros. Para descobri-los, ve- 
rifique suas listagens Assembly; se achar 
conveniente, remonte-as. 

Depois que as rotinas separadas esti- 
verem funcionando, carregue-as na me- 
mória, salve-as numa fita e teste o con- 
junto completo, chamando-o com o co- 
mando de execução de código de máqui- 
na de seu microcomputador. 

Por sua estrutura modular, o progra- 
ma do videogame Avalanche é fácil de 
corrigir. Caso encontre algum problema 
durante a execução do jogo, tenha o cui- 
dado de identificar a parte que apresen- 
tou o defeito e concentre nela seus es- 
forços para descobrir o erro. 

Mesmo que todas as rotinas funcio- 
nem adequadamente quando rodadas 
uma a uma, é possível que o programa 
completo apresente falhas. Rotinas cha- 
mam outras rotinas — e se uma delas 
contiver algum tipo de erro ou estiver 
montada em lugar inadequado, o pro- 
grama poderá não funcionar. Estamos, 
por isso, publicando uma listagem he- 
xadecimal completa do jogo. Utilize-a 
para checar sua versão final. 

Depois de montar Avalanche, o pro- 
grama estará na memória do computa- 
dor como uma série de números hexa- 
decimais em posições sucessivas, tal qual 
mostramos neste artigo. O número de 
quatro dígitos na coluna esquerda cor- 
responde ao endereço da posição de me- 
mória ocupado pelos dois primeiros 
bytes de programa naquela linha. Os pa- 
res subsegientes de dígitos ocupam as 
posições seguintes. Você tem, portanto, 
a possibilidade de examinar cada byte 
de Avalanche através do conteúdo da 
posição de memória correspondente e 
verificar se cada instrução do jogo foi 
montada corretamente. 

Ao contrário de alguns outros jogos 
de computador, Avalanche nunca che- 
ga a entediar, pois seus parâmetros de 
execução podem ser alterados. A cons- 
trução modular do programa deixa o 
usuário livre para fazer as modificações 
que quiser, permitindo-lhe adaptar Ava- 


lanche às suas preferências pessoais. Se- 
ja curioso. Experimente. Afinal, o jo- 
go agora é seu. E você pode fazer dele 
o que bem entender. 


O jogo está escrito na região 50000 
da memória para que possa ser monta- 
do pelo Assembler de INPUT. 

Se você não está usando o Assembler 
de INPUT, talvez precise deslocar o jo- 
go na memória por causa do espaço ocu- 
pado pelo próprio Assembler. A melhor 
alternativa é a região 20000. Para fazer 
a transferência basta mudar para 2 os 
endereços que iniciam com 5. 

Lembre-se de verificar se a rotina que 
executa a música não apagou outras ro- 
tinas ao ser deslocada. 

Use o monitor de código de máqui- 
na para analisar a memória do seu mi- 
cro e ver se ela confere com a listagem 
em hexa dada a seguir. Se você tiver des- 
locado o jogo, as posições de memória 
serão diferentes, mas a sequência de có- 
digos hexa deve ser a mesma. 


3c 
18 
oo 
oo 
04 
20 


3c 
1E 
o1 
EO 
oo 
oo 
18 
24 
oo 
o1 
Bo 
oz 
“o 
oo 
oo 
38 
o1 
co 
Bo 
oo 
oz 
oo 
oo 
oo 
00 
oo 
oo 
oo 
os 
18 


DEAB 
DEBO 
DEB8 
DECO 
DEC8 
DEDO 
DED8 
DEEO 
DEE8 
DEFO 
DEF8 
DFOO 
DFO8 
DF1O 
DF18 
DF20 
DF28 
DF30 
DF38 
DF40 
DF48 
DFSO 
DFS8 
DF60 
DF68 
DF70 
DF78 
DF8o 
DFBB 
DF90 


18 
3c 
o1 
Bo 
0E 
oo 


3c 
3c 
o3 
co 
00 
oo 


3c 
18 
o3 
60 
o1 
so 
00 
10 
“3 
oo 
oo 
o1 
oo 
04 
30 
7F 
or 
EO 
07 
1F 
so 
7c 
oo 
o8 
78 
1E 
oo 
oo 
os 
36 


18 
18 
oi 


3c 
18 
o1 
oo 
os 


ac 
18 
o1 
oo 
04 
30 


O jogo já foi todo digitado. 
Willie está pronto para escalar a 
montanha, enfrentar o mar, 
as pedras, as cobras e os buracos. 
Será que o programa vai funcionar? 


DF98 
DFAO 
DFA8B 
DFBO 
DFB8 
DFCO 
DFC8 
DFDO 
DEDE 
DFEO 
DFE8 
DFFO 
DFF8 


E000 
E008 
EO10 
E018 
E020 
E028 
E030 
E0o38 
E040 
Eo4B 
Eoso 
Eose 
E060 
E0o68 
E070 
E078 
E0o8o 
Eoss 
E090 
E098 
EOAO 
EOAB 
EOBO 
EOoB8 
Eoco 
Eoce 
EODO 
EoD8 
EOEO 
EOE8 
EOFo 
EoF8 
E100 
E108 
E110 
E118 
E120 
E128 
E130 
E138 
E140 
E148 
E150 
E158 
E160 
E168 
E170 
E178 
E180 


18 
06 
so 
Bá 
oo 


06 
10 
10 
oo 
oo 
oo 
oo 


oo 
oo 
oo 
oo 
oo 
o1 
oo 
oo 
oo 
oo 
oo 
00 
“B 
4s 
20 
“a 
20 


20 
61 
9 
72 
74 
74 
73 
73 
69 
63 
73 
sr 
[4 
61 
20 
57 
65 
74 
69 
sc 
73 
2c 
es 
62 
6E 
65 


61 
er 
es 
eB 


18 
06 
co 
D6 
o1 
oo 
os 
10 
1C 
oo 
oo 
oo 
oo 


00 
oo 
Bá 
3E 
sc 
3E 
A 
11 
Bá 
[7 
11 
AZ 
“1 
41 
41 
54 
50 
41 
73 
sc 
65 
es 
6F 


20 
70 
73 
20 
20 
76 
63 
6E 
20 
s9 
74 
er 
6D 
sr 
es 
62 
61 


67 
72 
6F 


75 
73 
65 


06 
18 
66 
FF 
1F 
3c 
FF 
38 
38 
si 
“s 
oo 
oo 


oo 
oo 


oo 
oo 
oo 
oo 
oo 
oo 
oo 
oo 
4c 


44 
4F 
“E 


65 
72 
EXA 
20 
72 
69 
67 
76 
[5 
69 
6F 
sc 
20 
20 
ss 
20 
[E 
sr 
65 
69 
20 
eq 
20 
6s 
e1 
6F 


73 
76 
73 
sr 
20 


06 
18 
sc 
FF 
3F 


FF 
a8 
38 
BA 
28 
oo 
oo 


00 
oo 
c7 
C4 
c4 
11 
B4 
c7 
B4 
Bá 
oc 
“9 
s2 
20 
“s 
20 
41 
72 
74 
69 
20 
6E 
6E 
6F 
os 
64 
63 
64 
20 
61 
65 
6E 
20 
6s 
66 
63 
73 
70 
er 
69 
72 
ec 
75 
sr 


69 
SE 
20 
20 


o3 
30 
38 
FF 
7F 
FF 


38 
10 
04 
10 
oo 
oo 


oo 
oo 
04 
03 
o3 
os 
os 
04 
os 
os 
06 
46 
“a 


57 
“2 
s2 
20 


ec 
20 
73 
64 
61 
20 
29 
6E 
69 
20 
20 
6D 
74 
20 
20 
66 
ec 
20 
sr 
6E 
73 
6s 
ec 
6c 
74 
20 
63 
e 
sb 
20 


SS 1 


AVALANCHE: 
LISTAGEM COMPLETA 


E220 
E228 
E230 
E238 


E240 


COMO DESCOBRIR 

OS ERROS 

TESTE O 

CONJUNTO COMPLETO 
VERIFICAÇÃO 








DA VERSÃO FINAL 

O CÓDIGO HEXADECIMAL 
ALTERAÇÕES POSSÍVEIS 
DESLOCAMENTO DO JOGO 
NA MEMÓRIA 








Você já deve ter observado que a ro- 
tina da música funciona independente- 
mente de qualquer outra e foi montada 
distante do programa principal. Isso não 
interfere com o Assembler de INPUT, 
mas, se você usou outro montador, po- 
derá descobrir que a rotina da música 
está na região de memória ocupada pe- 
lo próprio Assembler. Nesse caso, co- 
loque uma nova origem na rotina da 
música. Tente usar 24000 em vez de 
30000 — e não se esqueça de mudar as 
declarações EQU e as instruções JSR 
30000, para que o processador vá para 
o novo endereço inicial quando a roti- 
na da música for chamada. 

Use o monitor de código de máqui- 
na do seu computador para ler (com 
PEEK) a memória e verificar se ela con- 
fere com a listagem hexa dada a seguir. 


4268 03 OC 09 06 06 08 01 0E 
4270 07 05 12 03 12 05 01 14 
4278 05 04 20 02 19 20 01 ZE 
4280 04 OF 05 17 12 09 14 14 
4288 05 OE 20 02 19 20 13 2E 
4290 OB 05 0C OC 01 17 01 19 
4298 01 OE 04 20 07 ZE 08 05 
42A0 04 0C 05 19 20 01 06 14 
42A8 05 12 20 01 20 13 08 0F 
42B0 12 14 20 17 01 0C OB 20 
42B8 17 09 0C OC 09 05 20 20 
42co 20 20 20 20 12 05 14 05 
42C8 12 0E 13 20 14 OF 20 06 
42D0 09 OE 04 20 14 08 05 20 
42D8 07 OF 01 14 13 20 08 01 


43F0 
43F8 
4400 
4408 
4410 
441B 
4420 
4428 
4430 
4438 
4440 
4448 
4450 
4458 
4460 
4468 
4470 
4478 
4480 
4488 
4490 
4498 
44ao 
44A8 


44B0 + 


44B8 
44co 
44csB 
44DO 
44DB 
44EU 
44EB 
44Fo 
44FB; 
4500 
4508 
4510 
4518 
4520 





4638 
4640 
4648 
4650 
4658 
4660 
4668 
4670 
4678 
4680 
4688 
4690 
4698 
46A0 
46AB 
46B0 
46B8 
46c0 
46c8 
46D0 
46D8 
46E0 
46E8 
46F0 
46F8 
4700 
4708 
4710 
4718 
4720 
4728 
4730 
4738 
4740 
4A38 
4A40 
4»48 
4A50 
4A58 







































5018 
5020 
5028 
5030 
5038 
5040 
5048 
5050 
5058 
5060 
5068 
5070 
5078 
5080 
sos8 
5090 
5098 
50A0 
S0AB 
50BO 
50B8 
50co 
s0c8 
50DO 
50DB 
S0EO 
50E8 
S0FO 
50F8 
5100 
5108 
5110 
5118 
5120 
5128 
5130 













10 
55 
7F 
49 
89 
47 
30 
B6 
86 
BE 
CA 
CE 
oo 
0 
8c 
10 
FF 
BD 
B7 
ca 
BE 


16 
Al 
33 
33 
33 
F1 
33 
47 
03 
89 
51 
ac 
26 
AF 


AE 
26 
47 
CE 
oo 
49 
89 
BB 
83 
47 
30 
45 
FE 
71 

1B 


30 
4a 
FF 
B7 
07 
Al 
os 
86 
86 
86 
86 
B6 
B6 
3E 
BD 
BE 
23 
77 
06 
84 


84 
os 
55 
as 
FE 
CE 
00 
BE 
BE 
49 
89 
6E 
BD 
BD 
0 
FB 
1F 
ce 
22 
FF 
ol 
BE 
AF 
cs 
cs 
FF 
64 
FF 
47 
7A 
51 
47 
35 
39 
sr 
39 


35 
30 
7F 
6E 
BD 
06 
FE 
0 
oo 
CE 
0 
BD 
4B 
51 
25 
63 


B6 
B7 
c6 
AF 
20 
al 
BE 
BE 
BE 
D7 
BE 
3E 
51 
or 
40 
12 
A6 
84 
34 


10 
o1 
47 
BD 
4B 
00 
BD 
Be 
DS 
06 
FE 
4B 


33 
D3 
B6 
FC 
FF 
FF 
10 
al 
oF 
BE 
oo 
oo 
oo 
51 
00 
4c 
EE 
16 
3A 
4A 
84 
30 
02 


10 
BF 
4B 
aB 
ca 
BD 
aB 
BD 
BD 
00 
BF 
ca 
B6 
DE 
7a 
os 
4a 
22 
cz 
BE 
BE 
AF 
12 
FF 
cs 
FF 
EE 
96 
84 
c6 
FA 
34 
26 
4c 
1F 
B6 


Be 
47 
BE 
ca 
39 
aB 
ca 
51 
51 
BD 
47 
30 
LE 
47 
47 
SE 
26 
84 
B7 
os 
oD 
Al 
21 
BD 
BD 
BD 
16 
BD 
03 
os 
E8 
12 
F2 
81 
20 
FF 


55 
49 
47 
30 
BE 
ca 
39 
33 
33 
4B 
ag 
89 
BE 
49 
3F 
EF 
F6 
0F 
FF 
oB 
os 
BE 
AF 
51 
51 
51 
FA 
51 
B7 
B6 
1E 
BD 
BD 
0A 
F3 
o1 


5140 
5148 
5150 
5158 
5160 
5168 
5170 
5178 
5180 
5188 
5190 
5198 
S1AO 
S1A8 
5180 
51B8 
51C0 
s1cs 
S1DO 
51D8 
S1EO 
S1E8 
S1FO 
51F8 
5200 
7530 
7538 
7540 
7548 
7550 
7558 
7560 
7568 
7570 
7578 
7580 


F7 
os 
34 
1F 
30 
EB 
62 
47 
BE 
97 
0E 
BE 
35 
84 
39 
CE 
aB 
7F 
BE 
ac 
81 
10 
26 
E 
oo 
75 
02 
o1 
03 
23 
11 
BA 
E7 


E Eq 


AE 
E4 


B7 
B7 
10 
26 
1F 
lc 
86 
E3 
47 
BE 
F9 
47 
10 
or 
CE 
06 
ca 
47 
BD 
DE 
01 
27 
cD 
03 
00 
sa 
B6 
B6 
B6 
FE 
83 
FF 
FF 
7F 
E4 
26 


FF 
FF 
c6 
FC 
26 
AF 
04 
81 
4F 
1 
BD 
47 
22 
A? 
46 
0 
39 
55 
aD 
BD 
10 
FE 
5A 
26 
00 
BF 
FF 
FF 


75 
75 
75 
20 
FF 
aa 
CE 


03 
23 
FC 
AE 
FC 
35 
BD 
0z 
BE 
EF 
51 
30 
o1 
AO 
BE 
30 
B6 
BD 
as 
4D 
27 
63 
26 
D2 
0 
75 
o1 
03 
23 
E 
cD 
88 
30 
20 
26 
1c 


B6 
1A 
F7 
E4 
AE 
10 
51 
24 
13 
BD 
97 
s8 
39 
81 
81 
89 
os 
4B 
BD 
or 
FF 
c6 
F9 
39 
oo 
ss 
84 
8a 
8a 
1A 
25 
34 
1F 
30 
EB 
AF 


FF 
50 
FF 
7F 
E4 
39 
33 
o1 
E7 
51 
39 
1F 
A6 
07 
or 
FF 
B7 
59 
51 
B6 
0a 
64 
BD 
39 
oo 
86 
F7 
F7 
os 
so 
03 
10 
26 
1F 
32 
35 






23 
35 
20 
FF 
4a 
BE 
39 
39 
BD 
97 
34 
AC 
A4 
z4 
26 
00 
47 
BD 
78 
47 
81 
ar 
so 
03 
oo 
13 
B7 
B7 
B7 
37 
CE 
c6 
FC 
26 
62 
82 


7598 
75A0 00 A8 83 00 D4 31 00 BD 
7548 6E 00 AB E9 00 9E 62 00 
75BO BD 93 00 BD 2C 00 D4 62 
75B8 00 BD DC 00 AB 5C 00 c8 
75Cco DC 00 FC 00 00 00 00 00 
75cs 0 00 


Pr! E 


Avalanche foi montado a partir do 
endereço 49436, para possibilitar a uti- 
lização do Assembler de INPUT. 

Provavelmente você já percebeu que 
alguns trechos da memória do compu- 
tador não foram aproveitados: entre a 
tabela de cores e a tabela de padrões e 
entre o fim do programa e a tabela de 
perfil. Assim, você terá a possibilidade 
de alterar os endereços de montagem 
tanto da tabela de cores como da tabela 
de perfil, mas não se esqueça de alterar 
também todas as instruções nas rotinas 
que fazem referência a essas tabelas. Es- 
sa precaução deve ser tomada sempre 
que quiser modificar determinado ende- 
reço de montagem no programa. 

Faça um programa BASIC ou exami- 
ne manualmente as posições da memó- 
ria, verificando se os conteúdos confe- 
rem com a listagem hexadecimal a se- 
guir. Se você tiver deslocado alguma 
parte do jogo, os endereços serão dife- 
rentes, mas a segiiência de códigos he- 
xa deve ser exatamente a mesma. 








Cl1C 17 17 17 17 17 17 17 17 
ClêA 17 17 17 17 17 17 47 27 
€12€ 17 17 227 1717 27.27 37 
c134 17 17 17 17 17 17 17 17 
C1l3C 17 17 17 17 17 17 17 17 
c144 17 17 17 17 17 17 17 17 
Cl4c 17 17 17 17 17 17 17 17 
C154 17 17 17 17 17 17 17 17 
Cci5c 17 17 17 17 17 17 17 17 
c164 17 17 17 17 17 17 17 17 
C16C 17 17 17 17 17 17 17 17 
cl74 17 17 17 17 17 17 17 17 
Cl7C 67 67 67 67 67 67 67 67 
Ci84 67 67 67 67 67 67 67 67 
Cci8c 67 67 67 67 67 67 67 67 
C194 67 67 67 67 67 67 67 67 
Cl9C 67 67 67 67 67 67 67 67 
ClA4 67 67 67 67 67 67 67 67 
ClIAC 67 67 67 67 67 67 67 67 
CiB4 67 67 67 67 67 67 67 67 
CIBC E7 E7 F7 E7 F7 F7 F7 E7 
C1C4 F7 E7 F7 F7 F7 F7 F7 F7 
ClCC F7 F7 F7 E7 F7 F7 F7 F7 
C1D4 F7 F7 F7 F7 F7 F7 F7 E7 
CIDC F7 F7 E7 F7 F7 F7 F7 F7 
C1E4 F7 F7 E7 F7 F7 F7 F7 F7 
CIEC F7 F7 F7 F7 F7 F7 F7 F7 
C1F4 F7 F7 F7 E7 F7 F7 F7 F7 
CIFC 17 17 17 17 17 17 17 17 
C204 17 17 17 17 17 17 17 17 
C20C 17 17 17 17 17 17 17 17 
c214 17 17 17 17 17 17 17 17 



































g90C 
914 
Cotc 
coza 
E92c 
€9 34 
c93c 
co44 
cgac 
cgsa 
c95c 
cy64 
c96c 
co74 
eszc 
co84 
coBc 
c994 
c99c 
C9A4 
C9AC 
coma 
coBc 
coca 
coco 
Cc9D4 
Cope 
cora 
CEC 
cora 
core 
cAoa 
CAQE 
cAl4 
CALC 
CAZ4 
caze 
CAs 
CAIO 
cada 
cAdc 
casa 
case 
ca6a 
CA6o 
caza 
cAZe 
CAB4 
case 
caga 
Cage 
cAA 
CAAC 
caB4 
CABC 
caca 
Cacc 
caD4 
CADC 
cara 
CAEC 
Car 4 
CAFC 
cBO4 
cBoc 
cBi4 
cBIC 
cB24 
cBZe 
caBa 
ca3e 
cBas 
cBac 






































CcBSC 
ch64 
cB6c 
cB74 
cB7c 
casa 
cBBC 
cB94 

cao 
CBA4 
CHAC 
CBE4 
cBBC 
cac4 
cBce 
CBD4 
cBDe 
CBE4 

CBEC 
cBr4 
CBFC 
ccos 
ccoc 
Cci4 
ccic 
ceza 
ceze 
cc34 

ce3c 
ccaa 

cc4c 
ccsa 

cesc 
cc6a 

cc6c 
ccza 

cc7c 
ccs4 
ccsc 
cc94 

ces, 
ccad 

ccag 
ccBa 
ccne 
cccá 
cego 
ccna 
ccDe 
ccE4 
CCEC 
cera 
cerc 
cDo4 
cDOC 
CcDI4 
cDIC 
cD24 
cDzc 
CD34 


DO00 
DO08 
DO1O 
DOIB 
DOZO 
DO28 
D030 
D038 
DO40 
Do48 
DO5s0 


cD 


oo 


co 
FE 
06 
ED 


DO6O 
D068 
DO70 
DO78 
DOSO 
DDSs 


D090 2 


Do98 
DOAO 
DOAS 
DOBO 
DOB8 
DNcO 
DOC8 
DODO 
DOD8 
DOEO 
DOE8 
DOFO 
DOF8 
D100 
D108 
D110 
D118 
D120 
D128 
D130 


D138 
Dido 
Dl48 
D1S50, 
Dis8 
D160 
D168 
DI70 
D178 
DIBO 
D188 
DI90 
DL98 
DIAO 
DIAS 
DIBO 
DIBS 
DICO 
DICB 
DIDO 
DIDS 
DIEO 
DIES 
DIFO 
DIFB 
D200 
D208 
D210 
D218 
D220 
D228 
D230 
D238 
D240 
D248 
D250 
D258 
D260 
D268 
D270 
D278 
D280 
D288 
D290 
D298 


D9 


DO 
DO 


EB 
14 
06 
Aa 
3E 
Ag 
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TIPOS DE QUEBRA-CABEÇA 
USANDO O COMPUTADOR 





TENTATIVA E ERRO 
TRUQUES MATEMÁTICOS 






















































Desafie seu microcomputador a 
decifrar alguns quebra-cabeças 
matemáticos. Você também irá 
aprender técnicas de grande utilidade 

na resolução de sistemas de equações. 


Ao chegar a este ponto de INPUT, 
você já teve contato com as principais 
técnicas de programação em BASIC. 
Dado um problema, será bem capaz de 
construir um programa para solucioná-lo 
(caso haja uma solução, é claro). Entre- 
tanto, a não ser que você tenha um hob- 
by ou esteja trabalhando em algum pro- 
jeto, são raras as suas oportunida- 
des de mostrar o que sabe fazer 
em seu microcomputador. 

Certos quebra-cabeças re- 
presentam gostosos desafios para 
quem quer praticar programação ou 
simplesmente exercitar o raciocínio. 
A popularidade desse tipo de diverti- 
mento não é novidade. Os egípcios 
destacavam-se por sua habilidade em 
decifrar enigmas, assim como os gre- 
gos eram admirados pelos seus interes- 
santes quebra-cabeças lógicos e matemá- 
ticos e seus paradoxos inexplicáveis. De 
fato, muitos problemas inicialmente tra- 
tados como simples recreação transfor- 
mam-se em grandes descobertas cien- 
tíficas. 

Encontrar uma solução elegante pa- 
ra um determinado problema geralmen- 
te traz uma satisfação muito grande. 
Mas, para os usuários de microcompu- 
tadores, a resolução de quebra-cabeças 
constitui, antes de tudo, um excelente 
exercício de programação — na verda- 
de, bem mais eficiente que a análise e 
execução de programas prontos, uma 
vez que os estimula a escolher técnicas 
e aplicar idéias próprias. 


[Sa [aU 


Existem diversos tipos de quebra-ca- 
beça, e nem todos podem ser resolvidos 
no computador. Alguns exigem simples- 
mente intuição ou um pouco de racio- 
cínio lógico. Um exemplo clássico seria 
o seguinte: um homem possui um lobo, 











um carneiro e um repolho, e quer levá- 
los para o outro lado do rio em uma ca- 
noa. A canoa é muito pequena e ele só 
pode transportar um de cada vez. Mas 
não deve deixar sozinhos em qualquer 
das margens do rio nem o lobo e o car- 
neiro, nem o carneiro e o repolho, pois 
algum não sobraria... Como chegar ao 
outro lado do rio com todos os seus 
bens? 

Você pode resolver esse problema uti- 
lizando um computador (se quiser, es- 
creva um programa), mas é muito mais 
rápido encontrar a sua solução com um 
lápis e um papel. 

Os problemas mais adequados ao uso 
do computador são aqueles em que, da- 
do um certo número de situações com 
os respectivos valores, pergunta-se so- 
bre o valor de uma situação hipotética. 
A máquina também é útil quando a 
questão envolve cálculos aritméticos 
complexos ou geometria. Nesses casos, 
chega-se mais depressa ao resultado es- 
crevendo um programa do que buscan- 
do a solução à mão. 

Neste artigo, mostraremos como re- 
solver três dos tipos mais comuns de 
quebra-cabeça. Antes de olhar as solu- 
ções, tente encontrá-las sozinho. Em se- 
guida, examine os programas e veja co- 
mo eles funcionam. 


SIMPLIFICANDO O PROBLEMA 


Se você não está acostumado a resol- 
ver quebra-cabeças, poderá ter algumas 
dificuldades em compreender o que é pe- 
dido em cada um deles, pois a maioria 
requer certa prática em extrair as infor- 
mações essenciais de um texto razoavel- 
mente confuso. 

O primeiro tipo de problema, por 
exemplo, apresenta um texto de tama- 
nho considerável que o torna muito mais 
complicado do que na realidade é. Va- 
mos começar por uma situação bastan- 
te simples, que pode ser resolvida sem 
o auxílio do computador. 

Em uma certa manhã de inverno, um 
grupo de amigos entra em uma lancho- 
nete e toma três xícaras de café e duas 
de chá, pagando uma conta no valor de 
Cz$ 44,00. No dia seguinte, eles retor- 
nam ao mesmo lugar, mas tomam o do- 
bro de xícaras de chá e um café a me- 
nos. Sabendo que desta vez a conta foi 
de Cz$ 48,00, qual é o preço de cada xi- 
cara de chá? 

Se você conseguir remover todas as 
informações necessárias e colocar os da- 
dos principais sob a forma de variáveis, 
o problema consistirá na solução das se- 
guintes equações: 3c + 2h = 44€e2c + 
4h 8. 


Estamos diante de um sistema de 
equações lineares: ambas devem ser re- 
solvidas com os mesmo valores de e e 
h, que não estão elevados a nenhuma 
potência (3ct2 — 2h = 44, por exem- 
plo, não seria uma equação linear). Pa- 
ra se chegar a uma solução desse siste- 
ma são necessárias tantas equações 
quantas forem as variáveis. Neste caso, 
existem dois valores desconhecidos — e 
eh — e duas equações; logo, existe uma 
solução, 

Uma maneira de resolver o problema 
seria isolar uma variável na segunda 
equação — c=(48 - 4h)/2 — e 
substituí-la na primeira, obtendo: 3 (48 
— 4h)/2 2h = 44. Como resultado, 
teremos h = 7, ou seja, uma xícara de 
chá custa Cz$ 7,00. 

Sistemas com duas equações são bem 
fáceis de resolver, Com três, também 
não são tão difíceis. Mas, a partir daí, 
você, certamente, irá precisar da ajuda 
do computador. 


Ria SS 


Um negociante possui uma caixa de 
selos estrangeiros agrupados em seis ti- 
pos de envelope. Cada envelope, classi- 
ficado de A a F, tem um preço diferen- 
te. Seis crianças, membros de um clube 
filatélico, gastaram todo o seu dinheiro 
do seguinte modo: 


A BCDEF Preço 
Belinha 623112 C7434 
Nanda 14110121 Cz$469 
Digo 0 13643 Cz$598 
Lu 5 352 11 C437%6 
Dudoca 12 14 432 Cz$587 
Alcino 8 01103 Cz$293 


Qual é o preço de cada envelope? 

Poderíamos resolver esse sistema eli- 
minando uma variável por vez, mas, 
agindo assim, perderíamos muito tem- 
po e qualquer erro aritmético inutiliza- 
ria o resultado. 

Existem, porém, diversas maneiras de 
se resolver um sistema de equações — 
você mesmo seria capaz de inventar um 
método diferente. O que escolhemos pa- 
ra nosso programa é bem mais rápido 
e relativamente simples. 


10 INPUT 
NHAS ";R 
15 LET C=R+1 
20 DIM A(R,C): 
DIM AS(C-1,20) 
30 FOR K=] TO C-1 

40 INPUT "NOMES DAS COLUNAS " 
1AS(K) 


"DIGITE NUMERO DE LI 


DIM B(R,C): 


50 NEXT K 
60 FOR J=1 TO R 
70 PRINT : PRINT "VALORES PAR 


A A LINHA ";J 

80 FOR K=1 TO € 

90 INPUT A(J,K) 

95 PRINT A(J,K);” "; 

100 LET B(J,K)=A(J,K) 

110 NEXT K: NEXT J 

120 FOR L=1 TO R 

130 GOSUB 230 

140 GOSUB 280 

150 NEXT L 

160 CLS 

170 FOR K=1 TO C-1: 

14XK-4;AS(K): NEXT K 

180 FOR J=1 TO R: FOR K=1 TO € 
PRINT AT 1+],K*4-4;B(J,K) 

190 NEXT K: NEXT J 

200 PRINT "RESPOSTAS:" 

210 FOR K=1 TO C-1: PRINT AT 4 

+R,KX4-4;A(K,C): NEXT K 

220 STOP 

240 LET D=A(L,L) 

250 FOR K=1 TO € 

260 LET A(L,K)=A(L,K)/D 

270 NEXT K: RETURN 

290 FOR J=1 TO R 

300 IF J=K THEN NEXT J: 

RETURN 

310 LET F=A(J,L) 

320 FOR K=1 TO € 

330 LET A(J,K)=A(J,K)-F*XA(L,K) 

340 NEXT K: NEXT J: RETURN 


PRINT AT 1 





10 CLS: INPUT"DIGITE NUMERO DE L 
INHAS E COLUNAS ";R,C 

20 DIM A(R,C),B(R,C) ,AS(C-1) 

30 FOR K=1 TO C-1 

40 INPUT"NOMES DAS COLUNAS ";AS 
(K) 

50 NEXT 

60 FOR J=1 TO R 

70 PRINT"VALORES PARA AS LINHAS 
";J 

80 FOR K=1 TO € 

90 INPUT A(J,K) 

100 B(J,K)=A(J,K) 

110 NEXT K,J 

120 FOR L=1 TO R 

130 GOSUB 230 

140 GOSUB 280 

150 NEXT 

160 cLS 

170 FOR K=1 TO C-1:PRINT 64*kK-3 
+AS(K) NEXT 

180 FOR J=1 TO R:FOR K=1 TO C:P 
RINT €4*K-5+32*J,B(J,K) 

190 NEXT K,J 

200 PRINT"RESPOSTAS:"” 

210 FOR K=1 TO C-1:PRINT AS(K); 
"= ";:PRINT USING" AH .HET;A 
(K,C) :NEXT 

220 END 

230 D=A(L,L) 

250 FOR K=1 TO € 

260 A(L,K)=A(L,K)/D 

270 NEXT;RETURN 

280 FOR J=1 TO R 

300 IF J=L THEN NEXT:RETURN 




















































310 F=A(J,L) 

320 FOR K=1 TO € 

330 A(J,K)=A(J,K)-FXA(L,K) 
340 NEXT:NEXT: RETURN 


(db) [) 


10 HOME INPUT "DIGITE O NUME 
RO DE LINHAS E COLUNAS ";R,C 

20 DIM A(R,C): DIM B(R,C): DIM 
As(c - 1) 

30 FORK=1TOC-1 

40 INPUT "ENTRE COM OS NOMES P 
ARA ASCOLUNAS ";AS(K) 

50 NEXT K 

60 FORJ = 1 TOR 

70 PRINT : PRINT "INTRODUZA VA 
LORES PARA A LINHA ";J 

Bo FORK = 1 TOC 

90 INPUT A(J,K) 

100 B(J,K) = A(J,K) 

110 NEXT K: NEXT J 

120 FORL = 1 TOR 








130 GOSUB 240 
140 GOSUB 290 
150 NEXT L 
160 HOME 


170 FORK = 1 TOC- 1: VTAB( 
1): HTAB (K * 5): PRINT AS(K): 
NEXT K 

180 FORJ=1 TOR: FORK=1 
TO C: HTAB (K * 5): VTAB (4 * J 
): PRINT B(J,K) 

190 NEXT K: NEXT J 
200 UTAB (4 * J): 
INT "RESPOSTAS:-" 
210 FORK=1 TOC-1: VTAB( 
4x J+ 4): HTAB (K * 5): PRINT 
INT (A(K,C) * 100) / 100: NEX 


HTAB (1): PR 


Ro 
220 END 
240 D = A(L,L) 


250 
260 
270 


FORK = 1 TOC 
A(L,K) = A(L,K) / D 
NEXT K: RETURN 


290 FORJ=1 TOR 

300 IF J=L THEN NEXTJ: RET 
URN 

310 LET F = A(J,L) 

320 FORK = 1 TOC 

330 A(J,K) = A(J,K) - F * A(L,K 


) 
340 


su 


10 CLS: INPUT "DIGITE O NÚMERO D 
E LINHAS E COLUNAS ";R,C 

20 DIM A(R,C):DIM B(R,C):DIM AS 
(C-1) 

30 FOR K=1 TO C-1 

40 INPUT "ENTRE COM OS NOMES PA 
RA AS COLUNAS ";AS(K) 

50 NEXT K 

60 FOR J=1 TO R 

70 PRINT:PRINT "INTRODUZA VALOR 
ES PARA A LINHA ";J 

80 FOR K=1 TO € 

90 INPUT A(J,K) 

100 B(J,K)=A(J,K) 

110 NEXT K,J 

120 FOR L=1 TO R 

130 GOSUB 240 


NEXT K: NEXT J: RETURN 


140 GOSUB 290 

150 NEXT L 

160 CLS 

170 FOR K=1 TO C-1:LOCATE K*5+1 
+1:PRINT AS(K) :NEXT K 

180 FOR J=1 TO R:FOR K=1 TO C:L 
OCATE K*5,4*J:PRINT B(J,K) 

190 NEXT K,J 

200 LOCATE 1,4*J:PRINT "RESPOST 
AsS:-" 

210 FOR K=1 TO C-1L:LOCATE K*5,4 
*J+4: PRINT INT(A(K,C)4100)/100: 
NEXT K 

220 END 

240 D=A(L,L) 

250 FOR K=1 TO € 

260 A(L,K)=A(L,K)/D 

270 NEXT K:RETURN 

290 FOR J=1 TO R 

300 IF J=L THEN NEXT J: RETURN 
310 F=A(J,L) 

320 FOR K=1 TO € 

330 A(J,K)=A(J,K)-F*A(L,K) 

340 NEXT K,J:RETURN 


A primeira parte do programa, da li- 
nha 10 à 110, permite que você introdu- 
za as informações, enquanto a segunda 
parte, da linha 120 à 150, chama as sub- 
rotinas de cálculo. A resposta será for- 
a pela última parte, da linha 160 

220. 


Os valores são colocados em uma 
matriz A(J,K), uma linha por vez. Nes- 
te programa, J se refere à linha da ma- 
triz e K corresponde à coluna. A matriz 
A(J,K) é copiada em outra idêntica — 
B(JK). Conservamos, desse modo, a 
matriz original, que será impressa com 
a resposta, na linha 180, 

O cálculo, feito linha por linha, é 
controlado pelo laço entre as linhas 170 
e 210. Primeiro, a rotina entre as linhas 
240 e 270 (230 e 270 no TRS-Color) se- 
leciona o elemento de cada linha que 
pertence à diagonal da matriz (A(1,1), 
A(2,2), e assim por diante). Em segui- 
da, divide cada um desses elementos pe- 
lo seu valor. Consequentemente, todos 
os elementos da diagonal da matriz tor- 
nam-se iguais a 1. 

A próxima rotina executa a maior 
parte do trabalho. Embora tenha ape- 
nas seis linhas, é muito difícil entender 
o seu funcionamento. 

Suponl amos que a rotina anterior já 
tenha feito A(1,1)=1. O programa se- 
rá então desviado para a linha 290 (280 
no TRS-Color), com L= 1. A linha 300 
não deixará que a linha 1 da matriz seja 
processada; assim, o laço partirá da li- 
nha 2. A linha 310 tomará o primeiro 
elemento da linha 2, colocando seu va- 
lor em F. Ainda em 2, a linha 320 irá 
selecionar cada coluna para que a linha 
330 multiplique F pelo elemento da li- 
nha 1 da coluna em questão e subtraia 
esse resultado do elemento da linha 2 da 


coluna. O mesmo será feito com as li- 
nhas 3, 4, 5 e 6. Em seguida, o processo 
se repetirá com L = 2. 

Ao final, os elementos pertencentes 
à diagonal da matriz continuarão iguais 
a 1, e os restantes, exceto os que se en- 
contram na última coluna da direita, se- 
rão iguais a O. 

Será possível, então, ler diretamente 
os valores de A, B, C etc. na coluna não 
nula. Todos os microcomputadores, me- 
nos o Spectrum, apresentarão os resul- 
tados com duas casas decimais após a 
vírgula. Sem isso, uma resposta que se- 
ria 10 poderia aparecer como 9.999998 
ou 10.000001. 


O PRESENTE DE NATAL 


Utilizando o programa anterior, vo- 
cê poderá resolver qualquer sistema de 
equações lineares que possua um núme- 
ro igual de equações e de variáveis. Mui- 
tos problemas, porém, incluem menos 
equações e apresentam incógnitas eleva- 
das a algum expoente. Nesse caso, o me- 
lhor caminho para se chegar a uma res- 
posta consiste no emprego da tentati- 
va e erro. Geralmente, o próprio texto 
fornece alguma pista para encurtar seu 
trabalho. 

Tente resolver este problema: no Na- 
tal, vovô Alberto, um excêntrico ma- 
temático, anunciou a seus dois jovens 
netinhos que cada um deles ganharia 
tantos pacotes quantos anos tivessem 
(contando apenas anos completos). Dis- 
se também que cada pacote conteria 
um número de envelopes corresponden- 
te à sua idade e que, em cada envelo- 
pe, eles encontrariam, do mesmo modo, 
o valor em cruzados equivalente à ida- 
de. Por fim, comentou que, no ano se- 
guinte, o mesmo presente lhe custaria 
Cz$ 500,00 a mais. Quantos anos têm 
seus netos? 

Definindo a idade dos garotos como 
AeB,eo valor gasto no ano em ques- 
tão como M, reduzimos o problema a 
duas equações: 


AB+B3=M e 
(A + 1) 13+(B + 1)13 = M+500 


Temos, portanto, duas equações e 
três incógnitas. Sem recorrer à ajuda do 
computador, levaríamos um bom tem- 
po experimentando valores de A e B que 
satisfizessem as duas equações. O com- 
putador trabalhará da mesma maneira 
— só que mais rapidamente e sem risco 
de cometer erros. 

Antes de partir para os cálculos, de- 
vemos verificar se há no texto alguma 
informação que nos permita delimitar os 





valores de A e B. A referência aos ““jo- 
vens netinhos”” sugere que os garotos 
não têm mais de catorze anos nem me- 
nos de três. 

Como você poderá constatar, o pro- 
grama para resolver o quebra-cabeça é 
bem simples. 


10 FOR A=3 TO 14 

20 FOR B=A TO 14 

30 LET M=A"3+B"3 

40 LET N=(A+1)"3+(B+1)73 

50 IF ABS (M+500-N)<.01 THEN 
PRINT "A=";A,"B=";B 

60 NEXT B 

70 NEXT A 


[eb LS] sy 


10 FOR A=3 TO 14 
20 
30 
40 LET N=(A+1)"3+(B+1)"3 

50 IF ABS(M+500-N)<.01 THEN PRI 
NT “A= ";A,"B= ";B 

60 NEXT B 

70 NEXT A 











Embora o sistema possa apresentar 
mais de uma solução, obteremos apenas 
uma, devido à restrição introduzida nas 
linhas 10 e 20. Se o problema não espe- 
cificasse, em sua formulação, “jovens 
netinhos”, o laço FOR...NEXT seria 
bem mais extenso. 

A função ABS da linha 50 evita que 
se cometa erros de arredondamento, 
checando se realmente M + 500 é igual 
aN. 

O método utilizado funciona para to- 
dos os problemas em que o número de 
incógnitas é maior que o número de 
equações. Outras situações podem exi- 
eir mais variáveis ou mais condições 
Ir...THEN. Dependendo da complexi- 
dade do problema, o computador pode- 
rá levar alguns minutos ou então até ho- 
ras para fornecer uma resposta, mas 
com certeza chegará a ela. 


MATEMÁGICA 


O terceiro grupo de quebra-cabeças 
que aparece em revistas especializadas 
em computador é o que envolve exclu- 
sivamente números. À primeira vista, 
parece simples questões aritméticas; 
mas, quando se tenta solucioná-las, lo- 
go se percebe a necessidade de recorrer 
à máquina. 

Seguem-se alguns exemplos. 

Existe um número formado de qua- 
tro dígitos que, quando invertido e mul- 
tiplicado por outro número inteiro, re- 
torna ao seu valor original. O problema 
consiste em descobrir se outros núme- 


ros apresentam essa mesma caracteris- 
tica e, em caso afirmativo, apontar 
quais são eles. 

Outro caso muito interessante é o do 
número 987654321. Ele é divisível por 
17 e inclui todos os dígitos, de 1 a 9. 
Aqui, é preciso identificar um outro nú- 
mero que apresente essas mesmas pro- 
priedades. 

Para solucionar ambos os problemas, 
devemos tratar o número como uma co- 
leção de dígitos (e não como um valor 
numérico). Podemos dividir o número 
em unidades, dezenas, centenas etc. ou 
manipulá-lo como uma cadeia de carac- 
teres, usando RIGHTS, MIDS e LEFTS 
ou os comandos equivalentes no micro 
da linha Spectrum. 

Resolveremos o problema do núme- 
ro de quatro dígitos empregando o pri- 
meiro método. Sendo tal número 
ABCD, chegariamos a esta equação: 


1000*A + 100*B + 10*C + D = X* 
(1000*D + 100*C + 10*B + A) 


Como sempre, a maior dificuldade 
para encontrar as cinco incógnitas resi- 
de na delimitação do intervalo em que 
pode estar cada uma delas. A varia en- 
tre le 9 — se fosse 0, teríamos um nú- 
mero de três dígitos. Be C, por sua vez, 
variam entre 0 e 9. O fator de multipli- 
cação X não deve ser menor que 2 ou 
maior que 10/D, pois, nesse caso, a se- 
gunda metade da equação seria um nú- 
mero de cinco dígitos. Por essa mesma 
razão, D não pode ser maior que 4. Ten- 
do delimitado esses intervalos, podemos 
escrever o programa para solucionar o 
problema. 


10 FOR A=1 TO 
20 FOR B=0 TO 
30 FOR C=0 TO 
40 FOR D=1 TO 
50 FOR X=2 TO INT (9.9/D) 

60 LET J=1000*A+100*B+10*C+D 
70 LET K=1000*D+100*C+10*B+A 
80 IF X*K=J THEN PRINT J;"=" 
FRGPATSK 

90 NEXT X: NEXT D: NEXT Cc: 
NEXT B: NEXT A 


Maia (cód 


FOR A=1 TO 9 
2 FOR B=0 TO 9 
30 FOR C=0 To 9 
40 FOR D=1 TO 4 
50 FOR X=2 TO INT(9.9/D) 
60 J=1000*A+100*B+10*C+D 
70 K=1000*D+100*C+10xB+A 
80 IZ X*K=J THEN PRINT J;"=";X; 
ERRAR 
90 NEXT X,D,C,B,A 


»ovo 















Digite O programa € execute-o. Seja 
paciente: você precisará esperar um bom 
tempo para obter o resultado, pois o 
computador irá verificar todas as com- 
binações possíveis. 

Para solucionar o segundo problema, 
trataremos o número como se fosse uma 
cadeia de caracteres. O programa para 
o Spectrum é um pouco diferente dos 
programas destinados aos demais com- 
putadores, porque esse micro só mani- 
pula oito digitos por vez, mas os princí- 
pios básicos são os mesmos. 


10 LET M=98765432 

20 LET M=M-27 

30 LET M$=STRS M 

40 LET F=0 

50 FOR P=2 TO 9 

60 LET PS=STRS P 

70 LET X=0: FOR K=1 TO 8: IF 


PS=MS(K TO K) THEN LET X=K 
75 NEXT K 

80 IF X=0 THEN 
90 NEXT P: 
M$: STOP 
100 


LET F=F+ 
IF F=0 THEN PRINT 


Goro 20 


| 


10 M=987654321 

20 M=M-17 

30 MS=STRS(M) 
F=0 


50 FOR P=1 TO 9 

60 PS=CHRS (48+P) 

70 X=INSTR (MS, PS) 

80 IF X=0 THEN F=F+1 

90 NEXT 

100 IF F=0 THEN PRINT M$:END 
110 Goro 20 


[eb Lc] 


10 M = 987654321 

20 Me M= 17 

30 M$ = STR$S (M) 

40 F=0 

50 FORP=1Tog9 

60 PS = CHR$ (48 + P) 

65 FORZ = 1 TO LEN (M$) 

70 IF MIDS (M$,Z2,1) = PS THEN 
90 

80 NEXT Z:F = F+1 

90 NEXT P: IF F = O THEN 
T M$: END 

100 Goto 20 


Fazendo uma contagem regressiva a 
partir de 987654321, o programa con- 
verte todo múltiplo de 17 em uma ca- 
deia M$. As linhas 50 e 60 tratam cada 
um dos dígitos, de 1 a 9, como um ca- 
ractere. A linha 70 verifica se o dígito 
está na cadeia M$; se não estiver, um in- 
dicador F é incrementado. A cadeia M$ 
só será exibida se possuir todos os dígi- 
tosdela9. 
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MICROS E MIDI 


Embora seja um atributo relativamen- 
te recente dos micros, a capacidade de 
executar efeitos sonoros e musicais tem se 
tornado cada vez mais comum nos com- 
putadores pessoais de última geração. 
Muitos usuários com inclinações musi- 
cais chegam a escolher o computador em 
função de seus recursos sonoros. Os mi- 
cros mais sofisticados possuem gerado- 
res de som de vários canais, embutidos, 
e permitem a programação dos mesmos 
através de comandos em BASIC. 

Além de compor e executar músicas 
em um micro, o usuário tem, agora, a 
opção de conectar sua máquina a instru- 
mentos musicais eletrônicos, como sin- 
tetizadores, órgãos e outros. Um padrão 
de interface, chamado MIDI (Musical 
Instrument Digital Interface), criado há 
poucos anos por um consórcio de indús- 
trias eletrônicas japonesas e européias, 
está se firmando rapidamente, e prome- 
te abrir novas e numerosas possibilida- 
des para o uso do computador em mú- 
sica. Examinaremos aqui esse periféri- 
co e suas características. 


PRODUÇ. 





A técnica de geração de efeitos sono- 
ros e musicais em um micro evoluiu 
muitíssimo em relação aos ““bipes”” emi- 
tidos pelas primeiras marcas surgidas no 
mercado. Dos computadores cobertos 
por INPUT, o TRS-80 e o Apple são os 
que oferecem menos recursos para a ge- 
ração de sons, exigindo programação 
elaborada em linguagem de máquina pa- 
ra a produção de algo mais complexo. 
O TK-2000 e o Spectrum têm comandos 
em BASIC, como o SOUND, que faci- 
litam bastante a programação de efei- 
tos sonoros, mas ainda em um nível 
mais simples. Já o TRS-Color e o MSX 
dispõem de recursos bem sofisticados, 
via comando PLAY. O MSX é o primei- 
ro micro nacional com propriedades de 
sintetizador, pois permite o controle in- 
dividual de algumas características da 
onda sonora, como a envoltória. Isso é 
possível graças a um circuito integrado 
específico para o controle de som. 

Se você experimentou os programas 
para composição e execução de músicas, 
dados em artigos anteriores (como os 


das páginas 741 e 1009), certamente já 
tem uma idéia do que o seu computa- 
dor pode (ou não) fazer. Seja através de 
recursos sonoros já embutidos na con- 
figuração básica do micro, seja através 
da adição de interfaces especiais (das 
quais existe uma grande variedade no 
mercado), as características mais impor- 
tantes a observar em um bom sistema de 
geração sonora são: 


- número de canais de saida sonora, ou 
vozes. Com apenas um canal, a música 
gerada é monofônica; o ideal é dispor 
de um mínimo de três vozes, para a sin- 
tetização de três instrumentos tocando 
simultaneamente; 


- velocidade: se for muito baixa, não 
permite a execução de acordes múltiplos 
em cadência rápida; 


- controle individual tanto de timbre co- 
mo de intensidade; 


- controle completo das características 
da onda sonora: bordo de ataque, bor- 
do de fuga, envoltória etc. Esses recur- 
sos permitem sintetizar qualquer tipo de 
instrumento musical existente, ou até 
mesmo criar vozes para instrumentos 
que não existem; 


- facilidade de programação: de prefe- 
rência, deve ser possível utilizar coman- 
dos em BASIC; 


- processador independente: permite que 
a melodia se inicie no ponto determina- 
do pelo software principal, sendo exe- 
cutada independentemente do que a 
UCP estiver fazendo. 


Apesar de toda a sofisticação das in- 
terfaces musicais de última geração, é 
preciso ter sempre em mente que a mú- 
sica gerada por um microcomputador 
nunca atinge os padrões de desempenho 
da música instrumental. 

Devemos lembrar, ainda, que o tecla- 
do de um micro não corresponde ao te- 
clado de um instrumento musical, como 
o piano, por exemplo, e é, na verdade, 
muito desajeitado para uso mais ““sé- 
rio”. É aqui que entram em cena os ins- 
trumentos musicais digitais. 


A interface MIDI oferece excelentes 
recursos para quem quer fazer música 
— amadorística ou profissionalmente. 
Veja como transformar seu computador 


ador musical. 





em um sinte! 


SU A 


O desenvolvimento de novos instru- 
mentos musicais nas últimas décadas é 
marcado por passagens semelhantes às 
que se observam na história das máqui- 
nas de calcular. Tradicionalmente, to- 
dos os instrumentos eram mecânicos: 
compunham-se de cordas, membranas, 
tubos etc. Aos poucos, a necessidade de 
obter intensidades sonoras maiores em 
shows destinados a grandes públicos 
(início da era do rock), assim como a in- 
tensa demanda criada pelas gravações, 
levou à eletrificação (ampliação eletrô- 
nica) de vários instrumentos musicais, 
como guitarras, órgãos e baterias. Final- 
mente, começaram a surgir instrumen- 
tos puramente eletrônicos — primeiro 
analógicos, e depois digitais — como o 
sintetizador. 

As máquinas de calcular, por sua vez, 
evoluíram do ábaco para as calculado- 
ras mecânicas movidas a manivela ou a 
motor elétrico, que, posteriormente, fo- 
ram substituídas pelas modernas calcu- 
ladoras eletrônicas. Como estas, os ins- 
trumentos musicais atuais estão rechea- 
dos de chips integrados. 

Os sintetizadores digitais são dispo- 
sitivos sofisticadíssimos. Não se limitam 
à gama de notas e efeitos especiais ofe- 
recidos pelos micros (mesmo os mais 
modernos): dispõem de uma espantosa 
parafernália de recursos. 

Um sintetizador comum, na faixa 
média de preço, permite a execução de 
acordes de até oito notas em um tecla- 
do como o de um piano. Quase todas 
as máquinas contam com um conjunto 
considerável de sons, envoltórias, tim- 
bres e ritmos especiais, possibilitando ao 
músico escolher instantaneamente entre 
um piano com eco, um violino ou um 
oboé, com acompanhamento de valsa, 
bebop ou batuque, em duas ou três vo- 
zes, com ou sem percussão. 

Sons e instrumentos totalmente dife- 
rentes ou mesmo bizarros, efeitos de si- 
renas, explosões, gargalhadas, periqui- 
tos — ou o que vier à cabeça do execu- 
tante — estão entre os recursos dos mo- 
delos de maior preço. Por meio de al- 
gumas teclas, eles nos dão acesso a uma 
orquestra completa. 
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Uma rede MIDI ligando um computador, 
um sintetizador e uma máquina de 
percussão. 
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Em geral, o tipo mais comum de sin- 
tetizador utiliza o teclado de piano ou 
órgão como dispositivo de execução. 
Mas como o sintetizador é, na realida- 
de, uma caixa cheia de circuitos eletrô- 
nicos, capazes de receber sinais das mais 
diversas origens, podemos recorrer a 
qualquer tipo de instrumento musical 
para gerá-los. Os mais utilizados, atual- 
mente, são os de cordas (guitarra, con- 
trabaixo etc) e os de percussão (bateria 
eletrônica). 

Tomemos como exemplo as máqui- 
nas de percussão: elas podem funcionar 
isoladamente ou embutidas dentro de 
um sintetizador. A qualidade artificial 
da percussão eletrônica, evidente nos 
primeiros modelos, tornou-se pratica 
mente imperceptível nos sintetizadores 
modernos. Muitos deles têm memória 
RAM que permite o armazenamento de 
sequências complexas ou não rítmicas, 
para execução posterior. 

Essa capacidade dos sintetizadores 
está promovendo uma verdadeira revo- 
lução na maneira de se fazer música. Até 
recentemente, a habilidade manual — 
a capacidade de mover os dedos com 
desenvoltura e rapidez sobre as cordas 
ou teclas ou de fazer soar um acorde 
ou batida no momento exato — era in- 
dispensável à execução musical. Com o 
advento do instrumento musical prog; 
mável, isso está mudando. 

O instrumento programável age no 
sentido de “liberar” o talento musical 
de uma dependência da destreza ma- 
nual. Mas, com certeza, não o substitui 
a sensibilidade para o ritmo e a capaci- 
dade de compor músicas mentalmente 
ou de obter um efeito desejado sempre 
serão necessária: 

O sintetizador mus 


al pode gerar 


a 


sons de vários intrumentos musicais 
através do teclado. Se, por outro lado, 
você tiver a capacidade de programar e 
armazenar sequências complexas de me- 
lodias, e tocá-las à vontade, até simul- 
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taneamente, seu “gênio musical" será 
enormemente ampliado. 
Mas, antes que você se entusiasme, 
convém saber que os sintetizadores mu- 
ais programáveis são muito caros. E 
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Cada canal de informação de uma rede 
MIDI controla um instrumento. 
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MIDI é um padrão industrial — da 
mesma forma que uma interface serial 
| RS-232 ou uma paralela Centronics. 

» usadas para conectar periféricos a um 

computador. Embora dirigida exclusi- 

U vamente ao mundo da música, a MIDI 
desempenha um papel semelhante ao 

/ dessas interfaces, proporcionando um 

protocolo padronizado de transferência 
4 de informação entre o computador e um 
O tipo especial de periférico: o instrumen- 
? to musical digital. Isso assegura que 
qualquer instrumento (que seja compa- 
tível com o padrão MIDI) “'entenda”* o 
que o computador está ordenando. 
Já se registraram outras tentativas de 
desenvolver um padrão de comunicação 
entre instrumentos musicais e computa- 
dores, mas nenhuma delas obteve uma 
grande aceitação. A MIDI, ao contrá- 
rio, parece determinada ao sucesso: pe- 
lo menos os dois maiores fabricantes 
N 9 N mundiais de sintetizadores e máquinas 
DR E de percussão (Roland e Yamaha) já ade 
riram ao padrão MIDI. Além disso, vá- 
rios microcomputadores lançados nos 
últimos anos, a começar do MSX, pos- 
sibilitam a conexão à MIDI sem maio- 
res dificuldades. Em consegiência, 
prevê-se que esse padrão será universal- 
mente adotado em pouco tempo. 
Cada peça de equipamento compati- 
vel com a MIDI tem três soquetes de ci: 
co pinos, do tipo DIN. Eles são rotula- 
dos de IN, OUT e THRU (alguns equi- 















pamentos MIDI mais antigos podem 
é exatamente aqui que entra em cena a mentos musicais modernos utilizando a não ter este último tipo de conector). O 
nova interface MIDI, salvando da frus- mesma tecnologia básica, tornou-se soquete IN permite a recepção de sinais 
tração o amante da música que não tem | cil interconectá-los e transmitir informa- | gerados em outro equipamento MIDI. 
um alto poder aquisitivo ções de um para o outro. É exatamente THRU envia uma cópia idêntica dos si- 


Com os computadores e os instru- para isso que serve a MIDI. nais de entrada de um MIDI para ou- 


tro, possibilitando a ligação de vários 
equipamentos “em cascata” (um equi- 
pamento que não tiver o soquete THRU 
é mais limitado, pois só pode ser conec- 
tado ao final de uma cadeia). OUT, fi- 
nalmente, permite enviar sinais gerados 
em um equipamento para outro. 

O padrão MIDI comporta até dezes- 
seis canais simultâneos (paralelos) de in- 
formação. Cada canal controla um ins- 
trumento separado, mas a informação 
de vários instrumentos coexiste nos mes- 
mos condutores elétricos (um artifício 
técnico denominado multiplexação de al- 
ta velocidade). Os instrumentos se en- 
carregam de “'sintonizar”” a informação 
a eles encaminhada, da mesma maneira 
que um aparelho de televisão seleciona 
diversos canais. 


(Op RPA No o 


Embora exista desde 1982, so recen- 
temente a MIDI recebeu mais atenção 
do público. No Brasil, o interesse por es- 
sa interface surgiu com o advento dos 
primeiros microcomputadores compatí- 
veis com a linha MSX. Entre suas apli- 
cações mais frequentes, destaca-se o co- 
mando de um instrumento musical por 
outro. Interconectando um sintetizador 
e um órgão eletrônico, por exemplo, a 
MIDI permite que ambos sejam coman- 
dados de um único teclado. 

A MIDI também possibilita a sincro- 
nização de dois instrumentos diferentes 
— como uma máquina de percussão e 
um piano elétrico —, assim como a li- 
gação de um segienciador. Esse dispo- 
sitivo “'memoriza” o que foi tocado na 
ordem correta, podendo repetir a exe- 
cução de forma idêntica, tanto em tem- 
po real quanto passo a passo. No pri- 
meiro caso, o sequenciador reproduz 
exatamente o que o músico tocou; já no 
segundo, ele executa, etapa por etapa, 
trechos da melodia, permitindo que o 
músico acrescente outras notas, de mo- 
do a preencher os segmentos de tempo. 


UR EE 


Como já mencionamos, o “'casamen- 
to” entre computadores pessoais e a in- 
terface MIDI veio a público com o lan- 
çamento da linha MSX. Os fabricantes 
japoneses da linha MSX tinham um 
grande interesse nessa associação, uma 
vez que a maioria deles opera também 
com divisões altamente rentáveis de ins- 
trumentos musicais digitais. A Yamaha 
introduziu, com um custo muito baixo, 
um sintetizador semiprofissional com- 
pleto: o modelo CXSM, que é um mi- 







cro MSX com um sintetizador embuti- 
do e um teclado de piano. Essa máqui. 
na abre uma série de possibilidades in- 
teressantes para'o músico, como a exi- 
bição na tela de vídeo das notações mu- 
sicais de uma composição ou o uso do 
computador como um seqiienciador de 
alta capacidade de memória, sem a ne- 
cessidade de equipamentos extras. 

Modelos diversos de microcomputa- 
dores — da linha MSX ou de outras li- 
nhas — podem ser utilizados com um 
equipamento MIDI acrescentando-se 
uma interface especial, ligada ao conec- 
tor externo de expansão. 

É provável que o preço de um com- 
putador completo ainda seja mais bai- 
xo que o de um sintetizador MIDI com- 
patível. Mas, da mesma forma que 
aconteceu com outros periféricos, ini- 
cialmente muito caros — como impres- 
soras, disquetes e monitores a cores —, 
o preço dos sintetizadores deverá dimi- 
nuir bastante em um futuro próximo. 

Antes mesmo que os preços comecem 
a cair, os usuários atraídos pela com- 
binação microcomputador-instrumento 
musical devem ser informados sobre al- 
gumas peculiaridades desse periférico. 
Convém ter claro, em primeiro lugar, 
que a capacidade de geração sonora pró- 
pria do micro não é usada quando se 
trabalha com a interface MIDI: o som 
é sempre gerado pelo sintetizador ou ou- 
tro instrumento digital externo ao com- 
putador. Assim, não há vantagem em 
comprar um micro mais caro, dotado 
dos últimos recursos em matéria de ge- 
ração musical. Mesmo a memória extra, 
disponível nos micros profissionais, não 
é tão importante, pois os computadores 
pessoais têm memória mais do que su- 
ficiente para o desempenho da função 
de sequenciador. 

Vale a pena observar, também, que 
a qualidade de som disponível não é li- 
mitada pelo meio de registro utilizado. 
Como o som é armazenado de forma di- 
gital (imune a ruídos), tanto faz usar 
uma fita cassete ou um disquete — a 
qualidade será sempre comparável à de 
um Compact Disc (CD). Em outras pa- 
lavras, obtém-se na saída exatamente o 
que se colocou na entrada. 


SOFTWARE 


Uma vez que ligamos o computador 
a um ou mais equipamentos MIDI, é ne- 
cessário um software especial para acio- 
nar o conjunto. A variedade de softwa- 
re é ainda restrita, e os preços são mais 
altos do que a média. A situação tende- 
rá a mudar à medida que o uso da MI- 
DI se popularizar. 





Apesar das limitações, funções sofis- 
ticadas — como seguenciamento, emu- 
lação de estúdios multicanais, compo- 
sição e edição de melodias — são possi- 
bilitadas pelo software. 

Mesmo quem não é capaz de tocar 
uma só nota em um instrumento musical 
normal, terá facilidade em compor te- 
mas musicais complexos no computador 
e enviá-los, em seguida, para execução. 
A composição pode ser armazenada di- 
gitalmente em fita ou disco, executada 
novamente, modificada etc. Já existem 
cartuchos de EPROM para micros com- 
patíveis com o padrão MIDI, com con- 
juntos de músicas prontas, para auto- 
acompanhamento ou, simplesmente, pa- 
ra se tocar no computador, usando-o co- 
mo um sistema de alta-fidelidade. 

Um pacote de software típico para 
a linha MIDI é o compositor musical, 
cujo funcionamento é exatamente igual 
ao de um editor de textos, só que traba- 
lhando com a notação musical conven- 
cional, desenhada sobre a pauta. As 
suas funções mais comuns são inserção 
de músicas, apagamento, edição, lista- 
gem em vídeo ou impressora e execução 
musical em diversas cadências. 

Um bom software coloca ainda à dis- 
posição do usuário uma série de funções 
de controle do sintetizador, tais como 
o comando independente de várias vo- 
zes (um sintetizador polifônico de qua- 
lidade deve ser capaz de tocar até dezes- 
seis notas simultaneamente), seleção de 
ritmos, timbres ou segiiências, mixagem 
etc. Se entre as características do sinte- 
tizador se incluir a capacidade de divi- 
dir o teclado, você poderá tocar um ins- 
trumento com a mão esquerda e outro 
com a direita. 


PADRONIZAÇÃO 


É possível enviar três tipos de infor- 
mação através de uma interface MIDI: 
notas, mudanças de programa e mixa- 
gem de timbre. Atualmente, existe um 
conjunto padronizado de códigos MIDI 
que funciona como qualquer sintetiza- 
dor compatível. Entretanto, esses códi- 
gos permitem apenas o controle das fun- 
ções mais elementares. Funções especiais 
são controladas por segiiência de códi- 
gos, que usualmente variam de instru- 
mento para instrumento. Como resulta- 
do, um programa feito para um sinteti- 
zador MIDI pode não funcionar corre- 
tamente com outro. Além disso, para se 
programar orquestrações complicadas, 
é preciso estar familiarizado com a enor- 
me gama de 'alternativas de controle. 
Provavelmente, também essas dificulda- 
des serão atenuadas no futuro. 


COMPUTADORES 
QUE OUVEM 


Como já vimos, os periféricos 

de síntese de voz capacitam o micro 
a falar. O que talvez você não saiba 
é que as máquinas também podem 
entender a fala humana. Veja como. 


No artigo Computadores que Falam 
(página 446), examinamos o funciona- 
mento e as aplicações dos periféricos de 
síntese vocal, já disponíveis para a maio- 
ria dos microcomputadores. Como ob- 
servamos, eles não são, em termos téc- 
nicos, muito complexos — existem mo- 
delos de preço acessível até para micros 
domésticos pequenos. 


Se conferissemos ao computador é 


habilidade inversa — ou seja, enten- 
der aquilo que falamos —, teriamos o 
“computador do futuro”, que não pre- 
cisaria de vídeo, nem de teclado para 
“conversar” conosco, humanos. 

Mas isso não é tão fácil. Dotar a má- 
quina da capacidade de reconhecer a fa- 
la é uma tarefa bem mais complicada do 
que fazê-la gerar a fala. Por essa razão, 
ainda não há sistemas capazes de um re- 
conhecimento total da fala, nem mesmo 
nos mais sofisticados computadores de 
grande porte. 


TIPOS DE SISTEMA 


Não queremos dizer, com isso, que 
não se tenham desenvolvido sistemas 
com uma certa capacidade de reconhe- 
cimento da fala. Esses sistemas existem, 
inclusive em versões para microcompu- 
tadores pessoais, desde 1980/81. 

Devemos identificar, portanto, o 
grau de desempenho de uma unidade de 
reconhecimento automático da fala 
(RAF). Dois critérios são utilizados. No 
primeiro deles, os sistemas são classifi- 
cados em: sistemas de reconhecimento 
da fala contínua e sistemas de reconhe- 
cimento de elocuções isoladas. 

Um sistema de reconhecimento da fa- 
la contínua deveria ser capaz de “enten- 
der”” 90% das palavras emitidas no dis- 
curso natural — por exemplo, o pronun- 
ciamento de um deputado, uma conver- 
sa telefônica etc. E isso deveria ser fei- 


to em tempo real, ou seja, simultanea- 
mente à fala. Sistemas com esse grau de 
desempenho ainda não existem. Os pou- 
cos sistemas de reconhecimento da fala 
contínua desenvolvidos até agora fun- 
cionam apenas em computadores imen- 
sos e custam muito caro. Além disso, 
eles são capazes de reconhecer um nú- 
mero muito restrito de palavras (o vo- 
cabulário é pequeno). 

Já os sistemas de reconhecimento iso- 
lado, fabricados em uma grande varie- 
dade de modelos, são bem mais simples 
e baratos. Eles podem reconhecer com 


grande precisão um número restrito de. 


palavras ou frases, enunciadas isolada- 
mente e com clareza. O tamanho do vo- 
cabulário varia entre doze e trezentas 
palavras ou frases curtas, dependendo 
da sofisticação do sistema. 

O segundo critério utilizado para a 
classificação dos sistemas RAF diz res- 
peito à dependência do locutor. 

Os sistemas independentes do locu- 
tor, como diz o nome, são capazes de 
reconhecer a fala de qualquer pessoa, 
em qualquer situação. Tais sistemas são 
tão raros quanto os de reconhecimento 
da fala contínua. Mais comuns são os 
sistemas cujo desempenho depende da 
pessoa que fala. Nesse caso, para que o 
sistema seja capaz de reconhecer a fala 
com um mínimo de precisão, a pessoa 
que vai usá-lo precisa “treinar” o com- 
putador, repetindo cada palavra ou fra- 
se do vocabulário um certo número de 
vezes. O programa analisa estatistica- 
mente as repetições e as armazena na 
memória, para utilizá-las durante o pro- 
cesso de reconhecimento. 


(o) o Rae po 


O reconhecimento da fala requer o 
emprego de diversos algoritmos e pro- 
cessos. Inicialmente, a fala, captada por 
um microfone, é enviada ao computa- 
dor e digitalizada por um conversor ana- 
lógico digital. O conversor executa um 
processo de amostragem, ou seja, con- 
verte as ondas contínuas da fala em uma 
segiiência de números digitais a cada 
50/100 milissegundos. 

Os dados, armazenados em um buf- 
fer (memória intermediária), são proces-! 
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sados por um saftware especial, que 
analisa o conteúdo de fregiiência de ca- 
da amostra (análise espectral). Isso re- 
sulta em uma matriz (tabela), em que ca- 
da coluna corresponde a uma amostra, 
e cada linha, a uma fregiúência. A ma- 
triz referente à palavra a ser identifica- 
da é comparada com as matrizes-padrão 
armazenadas internamente, uma para 
cada palavra do vocabulário. A palavra 
que, na comparação, acusar maior in- 
cidência é a palavra mais provável. 


a SAR o 


Existem, no exterior, diversas inter- 
faces — em versões destinadas a micro- 
computadores pessoais ou profissionais 
— para reconhecimento automático da 
fala. Todos os modelos atualmente dis- 
poníveis empregam sistemas de reconhe- 
cimento de elocuções isoladas, depen- 
dente do locutor. 

Para as linhas Apple, TRS-80 e TRS- 
Color, por exemplo, os sistemas Dragon 
e VoiceBox permitem o reconhecimen- 
to de 32 a trezentas palavras ou frases 
curtas, com 80% ou mais de precisão. 
Compõem-se de uma placa ou caixa de 
expansão, contendo um conversor AD, 
um conjunto de circuitos integrados es- 
pecializados e software — parte do qual 
residente na memória ROM da unida- 
de, parte em disquete. 

Para utilizar o sistema, geralmente 
conecta-se o mesmo a uma porta de en- 
trada serial do computador (RS-232C). 
Após carregar o software residente em 
disquete, o sistema pode ser operado 
com o auxílio de um microfone. 


APLICAÇ 


As aplicações do reconhecimento au- 
tomático da fala são extremamente va- 
riadas, incluindo, por exemplo, o ensi- 
no de línguas, auxílio a pessoas inváli- 
das, controle de aparelhos domésticos 
pela voz e até programação (existe uma 
versão ““falada”” do BASIC). 

Existem também jogos muito diver- 
tidos para micros, como um jogo de pô- 
quer, que utilizam voz sintética e reco- 
nhecimento da fala. 

















Prosseguindo nossos estudos sobre a 
organização da tela dos micros compa- 
tíveis com a linha TRS-80, examinare- 
mos como transformar o sistema de po- 
sições de vídeo, baseado na notação 
PRINT Q, em um sistema de coorde- 
nadas verdadeiras, X e Y — recurso dis- 
ponível para os usuários das linhas 
MSX, Apple, TK-2000 e Sinclair. 
Relembrando o que já foi apresenta- 
do nesta série de artigos, a tela do 
TRS-80 é organizada em 1024 posições 
sequenciais, numeradas de O (canto su- 
perior esquerdo da tela) a 1023 (canto 
inferior direito). A numeração aumen- 
ta da esquerda para a direita em uma li- 
nha. O número-índice de cada posição 
na tela é o utilizado na expressão (O (ar- 
roba) de um PRINT posicional. 


POSICIONAMENTO RELAT! 


A expressão (O corresponde a um po- 
sicionamento absoluto, ou seja, indica 
o local exato da tela onde deve começar 





PROTEJA O SEU PROGRAMA 

Utilize o que você aprendeu sobre a 
desativação da tecla <BREAK> no 
TRS-80 para proteger o seu precioso 
programa em BASIC contra a curiosi- 
dade dos “piratas” de software. 

A operação é simples: faça o com- 
putador carregar e executar automati- 
camente o programa. A primeira linha 
executável deve conter os comandos 
POKE, vistos neste artigo, que desati- 
vam a resposta à tecla <BREAK>. Es- 
sa providência impedirá que o progra- 
ma seja interrompido e listado por meio 
do comando LIST. 

Se o seu TRS-BO tiver o sistema 
operacional de disquetes (DOS), colo- 
que o comando BASIC NOME (nome 
dado ao programa) no arquivo de 
auto-execução. Mas lembre-se de gra- 
var NOME usando a opção de proteção 

contra listagem (SAVE “NOME”, P). 








uma impressão. Em diversas aplicações, 
porém, é interessante realizar posiciona- 
mentos relativos — como avançar para 
a próxima posição na linha de baixo, re- 
cuar uma posição na mesma linha, ir pa- 
ra o final da mesma linha e assim por 
diante. 

Por meio de algumas expressões ma- 
temáticas, podemos realizar facilmente 
o posicionamento relativo, de modo a 
tratar a tela como um plano bidimensio- 
nal. Essas expressões seguem um forma- 
to comum, em que se executa o cálculo 
de conversão e, ao mesmo tempo, se im- 
põem os limites de variação mínima e 
máxima. Por exemplo: se a posição 
atual do cursor é P (um número inteiro 
entre O e 1023), podemos fazer com que 
ele avance uma posição para a direita 
por meio da expressão: 


Pt=Pt-(Pt+1<1024) 


A notação intrínseca P'% é utilizada 
para indicar que P é um número intei- 
ro. Evitamos, assim, alguns erros de ar- 
redondamento nas expressões. A expres- 
são acima combina, em uma única fór- 
mula, uma adição e um teste: 
P2=P3+1:IF P$>1023 THEN P$=1023 


Ou seja, a posição P'% sofre um in-" 


cremento de 1, ao mesmo tempo em que 
é forçada a não exceder 1023. 

Analisando a expressão completa, 
vemos que a subexpressão entre pa- 
rênteses (P% + | < 1024) terá um valor 
iguala —1 se for verdadeira, isto é, se 
a próxima posição P% for menor que 
1024. Nesse caso, ela será reduzida a 
P9% = P% + 1, causando um incremen- 
to. Se a subexpressão for falsa, isto é, 
se P% + 1 for igual a 1024, seu valor se- 
rá igual a O e P% receberá um incremen- 
to de O (ou seja, não será incrementado). 

Em seguida, listamos as expressões 
mais úteis para posicionamento relati- 
vo. Estude-as cuidadosamente para en- 
tender como funcionam. 





O endereçamento linear da tela, tal 
qual é usado pelo interpretador BASIC 
do TRS-80, apresenta uma série de in- 
convenientes para a impressão de dese- 


OS SEGREDOS 
DO TRS-80 (4) 


Você sabe converter o sistema de 
posições de vídeo do seu micro em um 
sistema de coordenadas do tipo X e Y? 
Neste artigo, ensinaremos este e 
outros truques aos usuários do TRS-80. 


nhos e textos que requerem o emprego 
de um sistema de coordenadas ortogo- 
nais (semelhante ao existente para a tela 
gráfica, com os comandos SET, RESET 
e POINT). Entretanto, não é difícil es- 
pecificar um conjunto de equações que 
promova a transformação de um siste- 
ma de referência em outro. 

Em primeiro lugar, precisamos ado- 
tar uma convenção referente à origem 
do sistema de coordenadas ortogonais. 
Se a origem deste corresponder ao can- 
to superior esquerdo (X=0 e Y=0), e 
se X indicar a coluna, e Y, a linha da 
tela, estaremos usando a mesma conven- 
ção estipulada para os gráficos com 
SET. Neste caso, teremos: 


1. Converter (X,Y) para uma posição O: 
Pt = 644 +X 


2. Converter uma posição (O para (X,Y): 


X = P$-INT(P$t/64)*64 
Y = INT(P$/64) 


Se quisermos adotar a convenção car- 
tesiana clássica (origem no canto infe- 
rior esquerdo), teremos: 

1. Converter (X,Y) para uma posição O: 
Pt = 64*(15-Y) + X 
2. Converter uma posição (O para (X,Y): 


X = PI-INT(P$/64)*64 
Y - 15-INT(P2/64) 





AEE 





EA 


O teclado dos micros compatíveis 
com a linha TRS-80 apresenta certas 
particularidades que, uma vez conheci- 
das, permitem a programação de alguns 
truques muito interessantes. 

Da mesma forma que o vídeo, o te- 
clado do TRS-80 tem uma área de me- 
mória, na RAM, reservada à armazena- 
gem dos dados da matriz de entrada. 
Cada tecla, quando pressionada, envia 
um sinal por meio de dois condutores: 
um horizontal (percorre as fileiras de te- 
clas) e outro vertical (percorre as colu- 
nas). Isso corresponde a um verdadeiro 
endereço da tecla, que tem seu corres- 
pondente em uma unidade da RAM. 

Para compreender de que maneira o 










teclado é processado e controlado pelo 
BASIC, precisamos conhecer uma ou- 
tra área de memória RAM, que abran- 
ge diversos endereços — chamados co- 
letivamente de bloco de controle do te- 
clado. Como veremos em seguida, mui- 
tos desses endereços são úteis para nos- 
sos truques de programação. 


Rd O CURSOR 


O BASIC do TRS-80 tem uma fun- 
ção intrínseca, chamada POS(O), que 
informa a posição corrente do cursor 
dentro de uma linha, O número forne- 
cido por essa função varia entre O e 63, 
e não informa a posição bidimensional 
na tela (posição (O), que corresponde a 
um número de O a 1023 

A posição do cursor é armazenada no 
bloco de controle do teclado, nos bytes 
16416 e 16417 (é um número de dezes- 
seis bits, portanto). Para determinar a 
posição do cursor, basta usar um par de 
comandos POKE: 

V = 256*PEEK (16417) +PEEK (16416) 





Por meio dessa expressão, obtemos 
diretamente o endereço absoluto da me- 
mória de vídeo onde está o cursor. Pa- 
ra converter o valor resultante em uma 
posição PRINT q, basta subtrair o va- 
lor 15360, que corresponde ao primeiro 
endereço da memória de vídeo: 


P = 256*PEEK(16417) + PEEK 
(16416) -15360 


Rodando o próximo programa, vo- 
cê terá uma demonstração desse cálcu- 
lo. O programa preenche a tela com nú- 
meros inteiros, até chegar à posição 960, 
onde é chamada uma rotina de interrup- 
ção, Pressionando-se qualquer tecla, a 
tela é limpa, e a impressão continua a 
partir do último número exibido. 


100 DEFINT N:N=0 

110 CLS 

120 N=N+1:PRINT N 

130 NP=256*PEEK (16417) +PEEK( 
16416) - 15360 

140 IF NP<960 THEN 120 

150 PRINT "APERTE <ENTER> P/ 
CONTINUAR” 

160 IF INKEY$="" THEN 160 ELSE 
110 


Alo 























E A NOTAÇÃO O O TECLADO DO TRS-80 
E POSICIONAMENTO RELATIVO E BLOCO DE CONTROLE 
E LIMITES DA TELA E POSIÇÃO DO CURSOR 
E FÓRMULAS DE CONVERSÃO E TECLAS AUTO-REPETITIVAS 
EE COORDENADAS ORTOGONAIS E À TECLA <BREAK> 








REPETIÇÃO OMÁTICA DE TECLAS 


O teclado original do TRS-80, assim 
como o de seus compatíveis, não é re- 
petitivo — ou seja, nada acontece se 
mantemos pressionada uma tecla, 
Trata-se de uma deficiência, pois seria 
conveniente, em muitas aplicações (jo- 
gos, por exemplo), que algumas teclas 
fossem auto-repetitivas. 

Mas existe uma solução para esse 
problema: podemos saber se uma tecla 
está sendo pressionada ou não por in- 
termédio do endereço 14591 do bloco de 
controle do teclado, que contém essa in- 
formação. Basta, portanto, consultar 
uma vez esse endereço — a cada repeti- 
ção de um laço, por exemplo — e dire- 
cionar a lógica do programa de acordo 
com a informação obtida. 

Para verificar a operacionalidade do 
endereço 14591 em seu micro, digite o 
seguinte programa: 


10 PRINT PEEK(14591);:GOTO 10 


Em seguida, digite RUN e experimen- 
te pressionar qualquer tecla, Note que, 
enquanto não se pressiona nenhuma te- 
cla, o programa fica imprimindo zeros 
na tela. Um número maior que zero apa- 
rece quando se pressiona alguma tecla 
ou combinação de teclas. 

O próximo programa ilustra com 
bastante clareza essa aplicação: uma es- 
pécie de ''minhoquinha” é formada so- 
bre a tela, quando se pressionam as qua- 
tro teclas com as flechas: 


100 DEFINT A-Z:X=64:Y=24 

110 T$ = CHR$(9) + CHRS(8B) + 
CHR$(91) + CHR$(10) 

120 CLS 

130 SET(X,Y) 
THEN 160 
140 CS=INKEYS:IF AS="" THEN 130 
150 C=ASC(CS) :GOTO 130 

160 ON INSTR(T$,AS) GOSUB 200, 
250, 300, 350 

170 GOTO 130 

200 X=X+1:IF X>127 THEN X=127 
210 RETURN 

250 X=X-1:IF X<1 THEN X=1 

260 RETURN 

300 Y=Y-1:IF Y<1 THEN Y=1 

310 RETURN 

400 Y=Y+1:IF Y>47 THEN Y=47 
RETURN 


:IF PEEK(14591)>0 


































O que é edição em tela completa? 

Em um banco de dados, a ficha de 
entrada de informações é exibida na te- 
la com todos os campos. Edição em te- 
la completa é o recurso que permite ao 
usuário “passear” com o cursor por to- 
da a tela, corrigindo e mudando as in- 
formações contidas nos vários cam- 
pos, até ficar satisfeito com o resulta- 
do. Em seguida, por meio de uma te- 
cla de controle, o conteúdo é armaze- 
nado na memória. 

Conhecendo as funções do vídeo e 
do teclado do TRS-80, você não terá 
dificuldade em desenvolver um progra- 
ma de edição em tela completa. Obser- 
ve a seguinte estrutura: 

- Inicialmente, a tela é limpa e os cam- 
pos são exibidos na tela. Use coman- 
dos PRINT Q para isso; 

- em seguida, a sub-rotina de entrada 
de dados é chamada por INKEY$. Co- 
loque nela vários IF, para detectar se 
alguma tecla de controle foi pressiona- 
da. Localize o cursor e efetue a opera- 
ção solicitada; 

- finalmente, tendo pressionado a tecla 
que assinala o fim da edição, leia (com 
PEEK) o conteúdo dos campos e trans- 
fira-o para a memória. 





jato Ro a TS 


Podemos desativar a tecla < BREAK > 
do TRS-80 Modelo 1 ou Modelo 3 (e dos 
microcomputadores compatíveis) se der- 
mos os seguintes comandos (em modo 
direto, ou dentro de um programa): 


POKE 16396,175:POKE 16397,201 


Para ativar novamente, digite: 
POKE 16396,201 


Esse recurso é de grande utilidade 
quando desejamos impedir que um pro- 
grama seja interrompido — intencional 
ou acidentalmente — pelo usuário. 
















PROGRAMANDO 


EM LOGO 


Os computadores da década de 60 
eram extremamente caros. A potência e 
a capacidade hoje disponíveis em um 
simples micro doméstico custavam al- 
guns milhões de dólares nos computa- 
dores de grande porte de então, pois 
mesmo as máquinas maiores e mais so- 
fisticadas contavam com um máximo de 
144 Kbytes de memória RAM. 

Assim, por razões de economia, as 
primeiras linguagens de programação 
foram projetadas para ocupar a menor 
quantidade de memória possível. Prio- 
rizava-se a facilidade de sua implemen- 
tação no computador, e não a facilida- 
de de uso para o programador. 

Com o aparecimento dos microcom- 
putadores, por volta de 1975, as lingua- 
gens dos antigos computadores torna- 
ram-se bastante populares entre os usuá- 
rios dos micros, pois essas máquinas, no 
começo, também dispunham de uma 
memória muito limitada. A maioria das 
pessoas aceitava como natural as difi- 
culdades de aprendizado do BASIC e 
outras linguagens do gênero. “O que é 
simples para o computador também é 
simples para o programador”, dizia-se. 


Si LINGUAGEM 


Quase todos os micros operam, ori- 
ginalmente, com um interpretador BA- 
SIC residente na memória ROM. E es- 
ta é a única linguagem utilizada pela 
maioria dos proprietários de micro. 

Entretanto, não há motivo para que 
se limitem a uma única linguagem. O 
BASIC é apenas um programa em có- 
digo de máquina, que pode tanto resi- 
dir na memória quanto ser carregado de 
uma fita ou disquete. Nos micros pro- 
fissionais, por exemplo, o BASIC é uma 
linguagem a mais, e precisa ser carrega- 
da quando se quer usá-la em programa- 
ção. Isso significa que é perfeitamente 
possível carregar interpretadores de ou- 
tras linguagens — ou seja, podemos mu- 
dar a linguagem que o computador “en- 
tende”, Esses interpretadores são pro- 
gramas em código de máquina, capazes 
de entender o vocabulário e a sintaxe de 
uma linguagem de programação, e de 
traduzi-los em instruções executáveis pe- 
la UCP do micro. 









No artigo da página 1288, vimos que, 
desde o aparecimento dos primeiros 
computadores, mais de duzentas dife- 
rentes linguagens de programação fo- 
ram desenvolvidas. Essas linguagens ser- 
vem aos mais variados propósitos. Mui- 
tas delas são extremamente especializa- 
das, encontrando aplicação apenas em 
campos de pesquisa muito sofisticados. 
Outras são tão genéricas e fáceis de usar 
quanto o BASIC, e já estão disponíveis 
para microcomputadores. 

Se você quiser utilizar uma determi- 
nada linguagem de programação no seu 
modelo de microcomputador, precisará, 
antes de mais nada, achar um progra- 
ma interpretador ou compilador que 
possa ser executado nele. Linguagens al- 
ternativas são fornecidas em fitas ou dis- 
cos, e devem ser carregadas na memó- 
ria, antes de sua utilização. Algumas ve- 
zes, o interpretador também é encontra- 
do em cartuchos removíveis da ROM 
(como os que existem para os micros 
TRS-Color e MSX), não precisando, 
evidentemente, ser carregado. 

Os microcomputadores profissionais, 
com sistemas operacionais do tipo MS- 
DOS, CP/M ou UNIX, são os que dis- 
põem de maior variedade de linguagens 
de programação. Já existe, porém, uma 
razoável oferta de linguagens alternati- 
vas para micros mais baratos — como 
os das linhas Spectrum, TRS-Color, Ap- 
plee MSX—, principalmente se pude- 
rem ser acoplados a disquetes. 


DNS [o] 


Uma linguagem de programação po- 
de ser entendida tanto pelo usuário 
quanto pela máquina, constituindo uma 
espécie de mediação entre as linguagens 
de ambos — ou seja, entre a linguagem 
natural (o inglês, por exemplo) e a lin- 
guagem binária, empregada por todos 
os computadores existentes. 

Quando a linguagem de programação 
está mais próxima da binária do que da 
natural, diz-se que é de nível baixo. O 
Assembler é um exemplo de linguagem 
desse tipo. Já as linguagens de alto ní- 
vel, como o BASIC, são mais parecidas 
com a natural. As máquinas de quinta 
geração — a próxima geração de com- 





A linguagem LOGO foi desenvolvida 
para facilitar o aprendizado da 

programação. Mas, se você pensa que 
ela se destina apenas a crianças, ficará 
surpreso com a riqueza de recursos. 


putadores — provavelmente irão utili- 
zar linguagens superavançadas e pode- 
rão entender ordens dadas em lingua- 
gem natural ou seminatural. Mas as lin- 
guagens atuais — mesmo as mais avan- 
çadas, como o PROLOG — represen- 
tam ainda um meio termo entre a faci- 
lidade de uso e a facilidade de imple- 
mentação em um computador. 

Além do BASIC, muito poucas lin- 
guagens de alto nível são utilizadas mais 
intensamente em microcomputadores 
pessoais: as principais são o LOGO e o 
PASCAL. Como veremos nos artigos 
desta série, essa linguagens são total- 
mente diferentes quanto a seu histórico 
e a seu campo de aplicação. 


ORIGENS DO LOGO 


Em 1967, um grupo de pesquisadores 
do famoso Massachusetts Institute of 
Technology (MIT), localizado na costa 
leste dos Estados Unidos, começou a ex- 
plorar um caminho totalmente novo no 
desenvolvimento de linguagens para com- 
putadores. Essegrupo, liderado por Sey- 
mour Papert, um sul-africano expatria- 
do, tinha como objetivo criar uma lin- 
guagem mais adaptada ao modo de fun- 
cionamento do intelecto humano do que 
ao processador central de um computa- 
dor. Desse empenho nasceu o LOGO. 

Papert tinha trabalhado com o famo- 
so psicólogo e filósofo suíço Jean Pia- 
get. As pesquisas de Piaget sobre o de- 
senvolvimento da cognição evidencia- 
vam que uma criança só é capaz de en- 
tender um conceito abstrato quando ele 
é apresentado por meio de exemplos 
concretos. As condições ideais de apren- 
dizado estariam, assim, condicionadas 
ao envolvimento e experimentação pes- 
soais. Essa abordagem influenciou for- 
temente a elaboração do LOGO. 

Outra influência importante foi o tra- 
balho de Marvin Minski, pesquisador do 
MIT e um dos pais da Inteligência Arti- 
ficial — ciência que procura reprodu- 
zir aspectos da inteligência humana em 
computadores. 

Os computadores não são inteligen- 
tes: sua capacidade se limita à obediên- 
cia de instruções dadas com grande de- 
talhe e precisão. A resolução de um pro- 
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blema intelectual envolve fatores tão 
complexos e variados, que programar 
uma máquina para uma operação desse 
tipo constitui uma tarefa especialmente 
desafiadora. Minski e seus colaborado- 
res dedicaram-se a ela, buscando desen- 
volver uma linguagem de programação 
que facilitasse a simulação da capacida- 
de de decisão e de resolução de proble- 
mas. Chegaram ao LISP (LJSt Proces- 
sing) — linguagem que passaram a uti- 
lizar desde o início dos anos 60. 

A estrutura básica de dados do LISP 
é a lista, uma coleção de objetos elemen- 
tares (chamados de átomos). Uma lista 
pode fazer parte de outras listas, o que 
torna mais fácil representar e processar 
dados simbólicos (não numéricos). En- 
tretanto, o LISP é muito difícil de 
aprender. 

O LOGO é essencialmente um diale- 
to do LISP — contém todas as estrutu- 
ras e comandos que essa linguagem em- 
prega para representar e processar da- 
dos simbólicos (palavras, listas etc.). 
Além disso, possui poderosos comandos 
gráficos, incluídos para facilitar seu uso 
por crianças pequenas. 


DEMONSTRAÇÕES CONCRETAS 


Papert e seus colegas estavam interes- 
sados em uma linguagem que permitis- 
se iniciar as crianças no mundo da pro- 
gramação. Três áreas foram privilegia 
das: desenho, música e robótica. Isto re- 
sultou da constatação de que as crian- 
ças se sentem mais motivadas a usar o 
computador quando a tarefa a realizar 
consiste em desenhar na tela, tocar mú- 
sica ou movimentar pequenos robôs 
com o auxílio do computador. Este úl- 
timo interesse levou Papert a criar uma 
“tartaruga” robótica. 

Na época, não se encontravam mo- 
nitores gráficos de vídeo a preços aces- 
síveis. A tartaruga, um pequeno robô 
móvel sobre rodas, supria essa deficiên- 
cia: carregava uma caneta em sua ““bar- 
riga”, e, sob o controle de comandos es- 
pecíficos do LOGO, podia abaixá-la e 
levantá-la. Assim, era capaz de desenhar 
figuras no chão, obedecendo às ordens 
da criança, que passava a relacionar os 
comandos da linguagem com os movi- 
mentos da tartaruga e com conceitos de 
orientação e geometria. 

Quando surgiram os computadores 
pessoais, porém, a tartaruga-robô pas- 
sou a correr risco de “extinção”, pois 
era muito mais simples e barato imitar 
seu movimento na tela por meio de grá- 
ficos. Sua descendente direta é a tarta- 
ruga gráfica bidimensional — um sim- 
ples cursor, em geral de forma triangu- 

















lar, que obedece às mesmas instruções 
de deslocamento usadas para movimen- 
tar a tartaruga-robô. Mas o simpático 
“animalzinho” não chegou a desapare- 
cer. Ao contrário, tem se observado 
uma tendência a trazê-lo de volta às sa- 
las de aula. O pequeno robô é, sem dú- 
vida, bem mais adequado ao ensino de 
crianças pequenas, que não entendem o 
formalismo da tartaruga gráfica. Além 
disso, é muito mais divertido! 


Dog ta 


O que tem a ver a movimentação de 
uma tartaruga de brinquedo com pro- 
gramação de computadores e psicologia 
infantil? Papert vê no computador um 
importante veículo para a criatividade 
e a expressão de idéias, e acredita que 
se deve ensinar as crianças a dominá-lo, 
evitando que sejam dominadas por ele. A 
melhor maneira para que uma criança 
aprendesse a manipular computadores 
seria viver em uma “*cultura computa- 
cional”, assim como a melhor maneira 
de aprender italiano é viver na Itália. O 
LOGO — dando à criança os meios para 
usar os poderosos recursos disponíveis 
no computador — é a sua proposta pa- 
ra realizar isso. Como Papert procura 
demonstrar em seu livro LOGO, Com- 
putadores e Educação (Mindstorms, 
Children, Computers and Powerful 
Ideas, no original), essa linguagem fun- 
ciona não só como uma ferramenta para 
a resolução de problemas, mas como um 
verdadeiro sistema de referência — de- 
nominado micromundo — para a intro- 
dução de novas idéias e conhecimentos 

Logo após o aparecimento do primei 
ro interpretador LOGO para comput 
dores de grande porte, surgiram as pri- 
meiras versões para micros. Por sua ca: 
pacidade gráfica superior, a linha Ap- 
ple foi privilegiada com as versões ini- 
ciais mais poderosas da linguagem. Pos- 
teriormente, outros micros — entre os 
quais o Spectrum, o MSX, e o TRS- 
Color — ganharam interpretadores LO- 
GO compatíveis com o padrão MIT 

Como o campo de aplicação do LO- 
GO é eminentemente educacional, os 
simbolismos da palavra escrita para a 
descrição da forma e funcionamento do 
nosso mundo tem grande importância. 
Assim, esta foi a primeira linguagem a 
ser amplamente traduzida para idiomas 
locais, inclusive o português. A partir de 
1974, especialistas da Unicamp (Universi- 
ade Estadual de Campinas, no Estado 
de São Paulo) começaram a produzir o 
BRASLOGO, a versão brasileira do 
LOGO, que mais tarde foi adotada por 
diversas empresas fabricantes de micro- 

















computadores, como a Itautec, a Gra 
diente e a Microdigital, Hoje, há versões 
dessa linguagem para as linhas Apple, 
MSX, TK-90X e CP-400, entre outras 
Existem também diversos “pseudo-LO- 
GO”, assim chamados por serem versões 
muito reduzidas ou limitadas do LOGO 
original, do qual aproveitam apenas os 
recursos gráficos. Como o ColorLOGO, 
do TRS-Color I, esses pseudo-LOGOS 
não contam com os recursos de proces- 
samento de listas, funções matemáticas 
etc. da versão completa. 

LOGO foi a primeira linguagem sim 
bólica “amistosa”, ou seja, fácil de 
usar. Como ela se presta a aplicações 
educacionais, muitos julgam que se des- 
tina exclusivamente às crianças. Nada 
mais longe da verdade. Os recursos in- 
trínsecos do LOGO (recursão verdadei- 
ra, processamento de listas etc.) 
colocam-no no mesmo ranking que o 
LISP, o SNOBOL, o PROLOG e outras 
linguagens empregadas em campos com- 
plexos, como Inteligência Artificial 
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[Rope jon Rae] 


A primeira providência a ser toma- 
da quando se quer programar em LO- 
GO é carregar o interpretador da lingua- 
gem. Cada linha de computador tem 
uma versão especial, pois ainda não 
existe uma padronização do LOGO. 


O micro Spectrum dispõe de diversas 
versões do LOGO — e de pseudo-LO- 
GO — em inglês. Estas, contudo, só po- 
dem ser obtidas no exterior. 

No Brasil, a Microdigital lançou um 
LOGO em português para os computa- 
dores TK-90X e TK-95, Essa versão é 
carregada a partir de fita cassete e se- 
gue aproximadamente o padrão BRAS- 
LOGO (ou LOGO Itautec, desenvolvi- 
do pela Itautec em conjunto com a Uni- 
versidade Estadual de Campinas) 





Os modelos da linha TRS-Color só 
dispõem de um interpretador LOGO em 
cartucho ou disquete, com comandos e 
mensagens em inglês. Uma versão antiga, 
o ColorLOGO, é apenas um pseudo-LO- 
GO gráfico, embora muito poderoso. 


Esta é a linha que, internacionalmen- 
te, dispõe do maior número e varieda- 
de de interpretadores LOGO, todos eles 
carregados a partir de disquete. Em in- 
glês, existem varias versões bastante efi- 
cazes, como o Terrapin LOGO, o Ap- 
ple LOGO etc., que implementam o pa- 
drão MIT, além de terem comandos pa- 
ra geração de música, controle de 
tartaruga-robô e outros recursos 

Em português, a versão mais difun- 
dida é o MLOGO, desenvolvida por 




















uma software-house paulista, a Micro- 
Arte. Essa versão, entretanto, não é 
compatível com o padrão BRASLOGO. 


Os micros desta linha contam com 
vários interpretadores LOGO em inglês, 
em cartucho e em disquete. Todos apro- 
veitam os excelentes recursos gráficos e 
sonoros do MSX para oferecer coman- 
dos especiais, que permitem o uso de 
sprites, tartarugas múltiplas etc. 

No Brasil, há duas versões do LOGO 
em português. Uma delas, a da Gradien- 
te, é apresentada em cartucho e seus re- 
cursos são bastante limitados. A outra 
— o HOTLOGO, da Sharp —, em car- 
tucho e em disquete, é poderosíssima e 
segue o padrão BRASLOGO/ Itautec 

As versões brasileiras aceitam pala- 
vras acentuadas segundo as regras da 
língua portuguesa 


Lea Ra AR 


Como não existe uma versão padro- 
nizada para o LOGO, todos os progra- 
mas desta série serão dados em duas ver- 
sões bem conhecidas: o padrão MIT, em 
inglês (listagens identificadas pelo síim- 
bolo do Apple), e o padrão BRASLO- 
GO/Itautec, em português (listagens 
identificadas pelo símbolo do MSX). 

No último artigo apresentaremos 
uma tabela de conversão de comandos 
para outras versões menos difundidas, 
Nas versões em português, a sintaxe é 
sempre a mesma; muda apenas a forma 
usada nas palavras-chave. 

Quando se carrega o LOGO na me- 
mória (o que é desnecessário se a ver- 
são for em cartucho, pois, nesse caso, 
o programa se auto-executa), surge na 
tela uma mensagem inicial de ““boas- 
vindas”, que varia de acordo com o ti- 
po de interpretador usado. 

O sinal adotado pelo LOGO para avi- 
sar que está pronto a aceitar um coman- 
do é o ponto de interrogação. Ao lado 
desse sinal, aparece o cursor. 

Inicialmente, vamos explorar os co- 
mandos gráficos do LOGO: colocare- 
mos a tartaruga gráfica na tela e dare- 
mos comandos para movimentá-la, fa- 
zendo diversos desenhos. Para colocar 
a tartaruga na tela, digite este coman 
do, e, depois, pressione a tecla <E 
TER> ou <RETURN>: 











SHOWTURTLE 








hu 


TARTARUGA 


O cursor aparece no centro da tela — 
sob a forma de um triângulo ou como 
uma tartaruga estilizada, conforme a 
versão do LOGO —, já pronto para de- 
senhar. Por analogia com o robô mecã- 
nico, dizemos que a tartaruga está com 
a “caneta abaixada”. 

Dispomos de vários comandos de 
deslocamento da tartaruga. Ela pode an- 
dar para a frente ou para trás e virar pa- 
ra a direita ou para a esquerda. O des- 
locamento linear é medido em número 
de passos (steps) ou pontos gráficos, e 
a virada, em graus (ângulo). Por exem- 
plo, para fazer a tartaruga andar trinta 
passos adiante, digite: 


[é 


FORWARD 30 


sy 


PARAFRENTE 30 


Deixe um espaço entre a palavra de 


comando e o parâmetro (30, no caso). 
Sem esse espaço, o computador enten- 
derá a linha como um comando único, 
que não é capaz de reconhecer, e mos- 
trará uma mensagem de erro do tipo: 


[eé] 


I DON'T KNOW HOW TO FORWARD3O 


sy 


VOCÊ AINDA NÃO ME ENSINOU 
PARAFRENTE30 


À medida que a tartaruga se deslo- 
ca, traça uma linha reta na direção de- 
sejada, pois, como dissemos, ela já apa- 
rece na tela em modo de escrita. 

Uma linha de comando pode ser corri- 
gida com as teclas do cursor, antes de se 
digitar <ENTER> ou <RETURN>. 

Para alterar a direção em que a tar- 
taruga se movimenta, usa-se o coman- 
do que indica a direção e o ângulo da 
virada. Experimente: 


[ek] 


RIGHT 30 


hay 


PARADIREITA 30 


Com isso, o símbolo da tartaruga 
apenas se inclina na direção desejada. 
Para que ela avance, digite: 


[é] 


FORWARD 50 


hay 


PARAFRENTE 50 


A linha traçada pela tartaruga forma 
um ângulo de 30 graus à direita da li- 
nha vertical anterior. 

Comandos sucessivos podem ser da- 
dos na mesma linha. Experimente: 


[é] 


LEFT 30 BACK 50 


hay 


PARAESQUERDA 30 PARATRAS 50 


A linha de comando ordena, em su- 
ma, que a tartaruga retorne à orienta- 
ção original (isto é, “olhando” para a 
parte superior da tela), por meio de uma 
virada de 30 graus, e que ande para trás 
cinquenta passos. 


EA 


Para facilitar a digitação, podemos 
recorrer à forma abreviada de muitos 
comandos da linguagem LOGO. Veja 
abaixo as abreviaturas para os coman- 
dos que foram mostrados até agora: 


[é] 


SHOWTURTLE sT 
FORWARD FD 
BACK BK 
LEFT LT 
RIGHT RT 
TARTARUGA TAT 
PARAFRENTE PF 
PARATRAS PT 
PARAESQUERDA PE 


PARADIREITA 








| 
ASR II 


O LOGO possui uma grande varie- 
dade de comandos (também chamados 
primitivos). Vejamos mais alguns deles, 
relacionados à elaboração de gráficos: 


[dé] 


HOME - Leva a tartaruga de volta ao 
centro da tela, sem apagá-la. 

CLEARSCREEN - Apaga o conteúdo 
da tela e leva a tartaruga de 
volta ao centro (abreviação: 
cs). 

PENUP - “Desliga” o modo de escrita 
da tartaruga: ao se movimen- 
tar, ela não deixará nenhum 
traço (abreviação: PU). 

PENDOWN - “Liga” o modo de escri- 
ta da tartaruga (abreviação: 


PD). 

PENCOLOR - Muda a cor do traço e 
das letras. É seguido de um 
número entre O e 6, que indi- 
ca o código da cor (abrevia- 
ção: PC). 


Digite o programa que se segue pa- 
ra ter um exemplo da utilização dos 
comandos aprendidos até o momen- 
to. Nunca se esqueça de pressionar a 
tecla <ENTER> após cada linha de 
comando. 


SHOWTURTLE 
LEFT 45 
FORWARD 71 
RIGHT 135 
PENUP 
FORWARD 50 
PENDOWN 
LEFT 45 
BACK 71 
PENUP 

HOME 
PENDOWN 


O comando CLEARSCREEN se en- 
carregará de limpar toda a tela, caso vo- 
cê queira realizar outras experiências. 


sy 


PARACENTRO - Leva a tartaruga de 
volta ao centro da tela, po- 
rém sem apagá-la (abreviação: 
PC) 


). 

APAGUEDESENHO - Apaga o con- 
teúdo da tela e leva a tartaru- 
ga de volta ao centro (abrevia- 
ção: AD). 

USENADA - “Desliga” o modo de es- 

crita da tartaruga: ao semo- 











vimentar, ela não deixará 
nenhum traço (abreviação: 
UN). 
USELÁPIS - “Liga” o modo de escrita 
da tartaruga (abreviação: 


). 

USEBORRACHA - Apaga todos os 
traços por onde passar a tar- 
taruga (abreviação: UB). 

MUDECL - Muda a cor do traço e das 
letras. Deve ser seguido de um 
número entre O e 7, que indi- 
ca o código da cor. 


Eis aqui um exemplo para ilustrar o 
uso dos comandos aprendidos até ago- 
ra. Não se esqueça de pressionar a te- 
cla <ENTER> após cada linha de 
comando. 


TARTARUGA 
PARAESQUERDA 45 
PARAFRENTE 71 
PARADIREITA 35 
USENADA 
PARAFRENTE 50 
USELAPIS 
PARAESQUERDA 45 
PARATRAS 71 
USENADA 
PARACENTRO 
USELAPIS 


DURO Rate do 


Todos os comandos examinados fo- 
ram dados em modo direto, ou ““ime- 
diato”, que equivale ao modo direto do 
BASIC — ou seja, o comando é execu- 
tado imediatamente pelo interpretador, 
e logo esquecido. Entretanto, existe um 
outro modo em LOGO: o modo progra- 
mado, ou modalidade procedimento. 

Nessa modalidade, atribui-se um no- 
me a um conjunto de comandos, que 
passam, então, a ser conhecidos como 
um procedimento. O nome que for da- 
do ao procedimento torna-se parte in- 
tegrante do vocabulário do LOGO. Diz- 
se, por essa razão, que o LOGO perten- 
ce à família das linguagens extensíveis. 

Quando se digita o nome de um pro- 
cedimento registrado, o interpretador 
executa todos os comandos contidos no 
mesmo, em seqiiência. Assim, pode-se 
dizer que o procedimento também é um 
programa. Mas, ao contrário de um 
programa em linguagem BASIC, dis- 
pensa a numeração das linhas. 

Para iniciar a entrada de um novo 
procedimento, use o comando: 


[é] 


TO NOME 


sy 


APRENDA NOME 


Na versão em português, o comando 
APRENDA pode aparecer na sua for- 
ma abreviada, ou seja, AP. 

O NOME do procedimento pode ser 
qualquer um e ter qualquer tamanho. Só 
não deve conter espaços em brancos ou 
coincidir com o nome dos primitivos da 
linguagem LOGO, 

Você poderá entender melhor de que 
maneira funciona um procedimento por 
meio de um exemplo. Vamos definir um 
procedimento chamado ZIGZAG. Lo- 
go que digitamos o comando inicial — 
TO ZIGZAG, em inglês, ou APREN- 
DA ZIGZAG, em português —, tudo o 
que estava na tela desaparece, e entra em 
ação um pequeno editor de textos, que 
permite a entrada dos comandos que 
constituirão o procedimento, O sinal de 
prontidão muda de ? (ponto de interro- 
gação) para > (sinal de maior). 

Para finalizar o procedimento, pres- 
siona-se a tecla END (para as versões em 
inglês) ou FIM (versões em português). 
O sinal de ? aparece novamente, indi- 
cando que voltamos ao modo direto. 
Em alguns computadores, como o Ap- 
ple, por exemplo, é necessário pressio- 
nar as teclas <CTRL> e <C>. 


[é] 





TO ZIGZAG 

FORWARD 20 LEFT 150 
FORWARD 20 RIGHT 150 
FORWARD 20 LEFT 150 
FORWARD 20 RIGHT 150 
FORWARD 20 LEFT 150 
FORWARD 20 RIGHT 150 
END 


Pay 


APRENDA ZIGZAG 
PARAFRENTE 20 
PARAFRENTE 20 
PARAFRENTE 20 
PARAFRENTE 20 
PARAFRENTE 20 
PARAFRENTE 20 
FIM 


ZIGZAG é, agora, um novo coman- 
do do LOGO. Se você digitar esse co- 
mando, a tartaruga executará os coman- 
dos gráficos do programa anterior e tra- 
çará um ziguezague na tela. 

Como você deve ter observado, o 
programa compõe-se de três repetições 
da mesma segiiência de comandos, uma 
para cada “perna” do ziguezague. Mas 


PARAESQUERDA 150 
PARADIREITA 150 
PARAESQUERDA 150 
PARADIREITA 150 
PARAESQUERDA 150 
PARADIREITA 150 





CONVERSÃO PARA O MLOGO 

Um dos interpretadores LOGO mais 
usados no Brasil é o desenvolvido pela 
Micro-Arte, de São Paulo, para compu- 
tadores da linha Apple. Como nessa 
versão os comandos primitivos do Ap- 
ple LOGO foram traduzidos para o por- 
tuguês em desacordo com o padrão 
BRASLOGO, apresentamos abaixo os 
comandos do MLOGO corresponden- 
tes aos utilizados neste artigo. A sin- 
taxe permanece a mesma. 


BRASLOGO MLOGO 
TARTARUGA MOSTRET 
PARACENTRO CENTRO 
APAGUEDESENHO LIMPETELA 
PARAFRENTE FRENTE 
PARATRÁS VOLTE 
PARADIREITA DIREITA 
PARAESQUERDA ESQUERDA 
USELÁPIS COLORIDO 
USENADA SEMCOR 
USEBORRACHA - 
MUDECL COR 
REPITA REPITA 
APRENDA APRENDA 
FIM FIM 
ADEUS ADEUS 











o LOGO tem um comando que permite 
especificar o número de repetições (se- 
melhante ao FOR ... NEXT do BASIC). 
Utilizando-o, e abreviando os comandos 
gráficos, nosso programa ficará assim: 


[é] 


TO ZIGZAG 

REPEAT 3 (FD 20 LT 150 FD 20 RT 
150] 

END 


Pay 


APRENDA ZIGZAG 
REPITA 3 [PF 20 PE 150 PF 20 PD 
1503 
FIM 

A rotina a ser repetida, delimitada 
pelos sinais [e] (não use parênteses), é 
precedida pelo comando de repetição e 
pelo número de vezes que ela deve ser 
repetida. O comando de repetição é mui- 
to útil para a obtenção de figuras geo- 
métricas regulares. Podemos traçar um 
semicírculo, por exemplo, com o seguin- 
te comando: 












[01] 


REPEAT 180 [FORWARD 1 RIGHT 1] 


hay 


REPITA 180 [PARAFRENTE 1 
PARADIREITA 1] 


DURA 


Agora que temos todos os “ingre- 
dientes”” para montar um programa 
mais complexo, vamos tentar desenhar 
uma pista de corrida na tela. Para isso, 
dividiremos o problema em várias par- 
tes, ou subtarefas, que depois serão cha- 
madas na ordem correta. 

Começando com a parte interna da 
pista, definiremos um procedimento que 
trace a curva e, em seguida, a reta: 


[ek] 


TO LADOINTERNO 

FORWARD 100 

REPEAT 180 [FORWARD 1 RIGHT 1] 
END 


a] 


AP LADOINTERNO 

PF 100 

REPITA 180 [PF 1 PD 1] 
FIM 


A combinação de duas curvas e duas 
retas nos fornecerá a parte interna da 
pista de corrida: 


[é] 


TO PISTAINTERNA 
LADOINTERNO LADOINTERNO 
END 


hay 


AP PISTAINTERNA 
LADOINTERNO LADOINTERNO 
FIM 


A parte externa da pista requer uma 
curva maior. Para obtê-la, aumentamos 
o passo da tartaruga: 


[é] 


TO LADOEXTERNO 

FORWARD 100 

REPEAT 90 [FORWARD 3 RIGHT 2] 
END 





e: 


TO PISTAEXTERNA 
LADOEXTERNO LADOEXTERNO 
END 


ha 


AP LADOEXTERNO 
PF 100 
REPITA 90 
FIM 


Es 
AP PISTAEXTERNA 


LADOEXTERNO LADOEXTERNO 
FIM 


Para começar a pista em um ponto 
adequado da tela, definimos o procedi- 
mento chamado INICIO: 


[eb] 


TO INICIO 

PENUP 

LEFT 40 FORWARD 110 RIGHT 130 
PENDOWN 

END 


hay 


AP INICIO 

USENADA 

PE 40 PF 110 PD 130 
USELAPIS 

FIM 


[PF 3 PD 2) 


Um outro procedimento, PARTIDA, 
moverá a tartaruga para onde a linha de 
partida e o início da parte interna da pis- 
ta devem ser desenhados: 


[é] 


TO PARTIDA 
RIGHT 90 FORWARD 30 LEFT 90 
END 


hay 


AP PARTIDA 
PD 90 PF 30 PE 90 
FIM 





Finalmente, para traçar a pista toda 
de uma vez, definiremos um procedi- 
mento chamado PISTA. 


[é] 


TO PISTA 
INICIO 
PISTAEXTERNA 
PARTIDA 
PISTAINTERNA 
END 



























Como posso traduzir os comandos de 
meu LOGO que estão em inglês? 
Nada mais fácil. Como o LOGO é 
uma linguagem extensível, podemos 
desenvolver vários procedimentos sim- 
ples, que obedecem a um comando em 
português e chamam o primitivo equi- 
valente em inglês. Se você resolver, por 
exemplo, trabalhar com um BRASLO- 
GO dentro do LOGO original, defina: 


TO PARAFRENTE :D 
FORWARD D: 
END 


TO PARATRAS :D 
BACK :D 
END 


TO PARADIREITA :A 
RIGHT :A 
END 


TO PARAESQUERDA :A 
LEFT :A 
END 


TO PARACENTRO 
HOME 
END 


TO REPITA :N :LIST 
REPEAT :N :LIST 
END 

e assim por diante. Em seguida, grave 
esse conjunto de procedimentos com 
SAVE “BRASLOGO, e, quando quiser 
programar em português, carregue-o 
com LOAD “BRASLOG! 











sy 


AP PISTA 
INICIO 
PISTAEXTERNA 
PARTIDA 
PISTAINTERNA 
FIM 


Simples, não é? 

Todos os programas em linguagem 
LOGO são elaborados dessa maneira. A 
divisão do programa principal em uma 
série de “tijolos” de construção torna 
bem mais fácil tanto a programação co- 
mo a própria execução de testes. No 
próximo artigo, veremos como montar 
programas de maior complexidade usan- 
do essa mesma técnica. 
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CONTROLE 


POR COMPUTADOR 


E CONTROLES PELA 
—  MICROELETRÔNICA 
SENSORES E ATUADORES 
CONEXÃO AO MICRO 
SOFTWARE 











Como um computador pode receber 
informação do mundo exterior, 
analisá-la e usar os dados para operar 
dispositivos de diversos sistemas? 
Explicamos aqui todo o processo. 


A microeletrônica provocou uma ver- 
dadeira revolução nos sistemas de con- 
trole de uma grande variedade de má- 
quinas de uso doméstico e industrial. 
Dezenas de relés, cronômetros mecâni- 
cos e motores elétricos, usados antiga- 
mente para controlar aparelhos domés- 
ticos, foram substituídos por uma pe- 
quena caixa. Os circuitos e componen- 








tes microeletrônicos nela contidos rea- 
izam a mesma função de modo muito 
iciente e sem falhas e avarias. Na 
indústria, inúmeros tipos de máquinas, 
como tornos e cortadores computado- 
rizados e robôs de montagem, transfor- 
maram o dia-a-dia das fábricas. 
Existem quatro tipos básicos de sis- 
tema microeletrônico de controle: circui- 
tos lógicos discretos, circuitos integra- 
dos especiais, circuitos integrados gené- 
ricos e microprocessadores. Dentre to- 
dos, os microprocessadores foram os 
mais revolucionários, pois, além de am- 
pliar o alcance das aplicações, eles ba- 
rateram o custo dos sistemas de contro- 
le, através do conceito de controle por 
software. Um microprocessador tem 

















uma infinidade de aplicações, bastando 
reprogramá-lo. Os outros três tipos de 
sistema, ao contrário, não podem ser 
mudados, a não ser que se façam modi- 
ficações no hardware. 

Diversos tipos de equipamentos e 
aparelhos contêm microprocessadores 
embutidos, que funcionam com base em 
softwares específicos para cada tarefa de 
controle, Evidentemente, apenas o mi- 
croprocessador não é suficiente para es- 
sa aplicação: são necessários chips au- 
xiliares adicionais (circuitos integrados), 
conectados ao processador, para que ele 
possa exercer alguma função útil. As- 
sim, todo proprietário de um computa- 
dor pessoal tem em suas mãos o cora- 
ção de um sistema potencialmente ver- 










































sátil de controle. O usuário que quiser 
utilizar seu micro para esse fim encon- 
trará uma grande variedade de interfa- 
ces especiais e Kits de montagem. E, se 
for um amador curioso, poderá usar sua 
criatividade e testar uma série enorme 
de aplicações. 





POSSIBILIDADES 





Para que um microcomputador pes- 
soal comande um sistema sofisticado de 
controle, é necessário acrescentar-lhe 
uma série de dispositivos. 

Uma aplicação típica de controle 
sempre requer uma ou mais entradas e 
saídas especiais, operadas de maneira 
bem diferente das entradas e saídas mais 
comuns em um microcomputador. Um 
mecanismo de controle de temperatura, 
por exemplo, precisa ser ativado quan- 
do a temperatura atinge um determina- 
do grau. O computador recolhe essa in- 
formação por intermédio de um sensor, 
que gera um sinal relativo ao fenômeno 
físico ou químico que está sendo detec- 
tado e o envia ao computador. Para agir 
sobre o mundo exterior no sentido de 
combater esse aumento de temperatura, 
o computador deverá estar ligado a um 
atuador — no caso, um condicionador 
de ar ou um ventilador. 

No artigo sobre robôs (página 1284), 
descrevemos operações desse tipo. Os 
kits de braços robóticos, ali menciona- 
dos, são um exemplo de sistemas de con- 





Neste artigo, examinamos os aspec- 
tos gerais do emprego de computadores 
pessoais no controle de dispositivos ex- 
ternos. Nossa discussão será centrada 
nos três principais elementos de um sis- 
tema de controle: sensores, atuadores e 
conectores. Antes, porém, analisaremos 
as possibilidades de controle. 

Convém explorar mais detalhada- 
mente quatro áreas: 





- temporização e sequenciamento 



































- regulação 
- redução de dados 
- interfaces homem-máquina 


BS Jo Ao RS 


Sistemas de temporização e seqien- 
ciamento fazem parte do nosso cotidia- 
no: são usados nos programadores de 
máquinas de lavar, máquinas de costu- 
ra, aquecimento central etc. O compu- 
tador que administra muitos desses sis- 
temas é bem mais compacto e confiável 
do que os sistemas eletromecânicos que 
substitui, Ele possibilita a execução de 
seqiiências complexas de operação e co- 
bre uma área muito maior de alternati- 
vas de aplicação. Além disso, permite 
que a temporização e sequência de ope- 
rações sejam alteradas, bastando, para 
isso, mudar o software. 

Uma aplicação bastante simples do 
micro como o “cérebro” de um sistema 
de controle refere-se ao alarme residen- 
cial contra ladrões. Este consiste, basi- 
camente, em uma série de fios conecta- 
dos a interruptores localizados em vá- 
rias portas e janelas da casa. Quando to- 
das estão fechadas, o circuito se com- 
pleta e a corrente elétrica pode fluir pe- 
lo mesmo. Se o circuito for interrompi- 
do pela abertura de uma janela ou por- 
ta, o alarme soa. 

Um dos problemas com sistemas des- 
se tipo é a possibilidade relativamente 


alta de um falso alarme, provocado por 
falhas mecânicas ou mau contato nos in- 
terruptores. O computador oferece uma 
opção eficiente para a solução desse pro- 
blema. Se, por exemplo, acrescentarmos 
um segundo circuito a todas as portas 
internas, e conectarmos ambos os circui- 
tos a um microcomputador, o software 
poderá realizar alguns testes simples, an- 
tes de soar o alarme. Isso seria feito se- 
gundo uma determinada lógica: se um 
ladrão entrar na casa, uma porta inter- 
na deverá ser aberta logo após a inter- 
rupção do circuito externo. O alarme se- 
rá ativado se os dois circuitos forem in- 
terrompidos na ordem correta — ou se* 
ja, do exterior para o interior. Caso os 
circuitos independentes sejam interrom- 
pidos isoladamente, ou em ordem incor- 
reta, o alarme não é ativado. 

O uso do computador no controle do 
sistema antiladrões apresenta outras 
vantagens. Por exemplo: dispondo de 
um sistema adequado de telecomunica- 
ções, podemos fazer com que o micro 
disque automaticamente um número de 
telefone e avise a polícia. 

Em algumas residências, um inter- 
ruptor simples é utilizado para ligar e 
desligar luzes internas, para dar a im- 
pressão — na ausência dos moradores 
— de que há gente em casa. Mas o feiti- 
ço pode se virar contra o feiticeiro, pois 
a segiiência regular de liga-desliga evi- 
dencia exatamente o oposto: que não há 





ninguém! Com um micro, é possível 
controlar tanto a iluminação dos apo- 
sentos como o funcionamento dos ele- 
trodomésticos ligando-os segundo um 
padrão complexo, diferente para cada 
período do dia e variável de um dia pa- 
ra outro. Seguências diversas podem ser 
deflagradas por eventos externos, como 
o nascer ou o pôr-do-sol. 

Outro candidato ideal para controle 
por micros é a ferrovia-modelo: um 
software adequado pode ser usado pa- 
ra verificar cruzamentos, acionar semá- 
foros, desviar trilhos etc. Também in- 
teressante, no plano doméstico (ou até 
profissional), é o uso do micro para con- 
trolar um ou mais projetores de slides, 
de modo a criar um show mais comple- 
xo. O micro define a intensidade das 
lâmpadas — permitindo a criação de 
fade-in e fade-out, mixagens de i imagens 
de dois projetores etc, —,& posição dos 
slides numa dada sequência e informa 
qual imagem será projetada em cada 
máquina. O micro encarrega-se, ainda, 
da sincronização de música e fala, gra- 
vadas em uma fita cassete. 


ISA IRA 


O controle de regulação é usado em 
toda aplicação em que a diferença en- 
tre uma situação ideal e a situação atual 
determina a operação a ser efetuada, Es- 
sa diferença é avaliada a partir de sen- 
sores conectados ao sistema. Um con- 
trolador de aquecimento central, por 
exemplo, tem a função de manter cons- 
tante a temperatura do ambiente. Um 
sensor informa a temperatura do am- 
biente ao sistema de controle e este liga 
ou desliga o aquecedor conforme a tem- 
peratura caia ou suba. 

Um microcomputador substitui facil- 
mente sistemas desse tipo, permitindo 
operações mais complexas, como con- 
trole simultâneo de aposentos, do tan- 
que de armazenamento de água quente 
etc. Para isso, ele aciona válvulas, bom- 
bas e elementos de aquecimento confor- 
me a necessidade. Este sistema é um 
exemplo de um servomecanismo — ba- 
seado em controle por alça fechada 
(feedback, ou retroalimentação) — no 
qual a correção é proporcional ao erro 
detectado (controle proporcional). 

Examinando mais detidamente o 
conceito de alça fechada, entenderemos 
por que o computador é tão versátil. Su- 
ponhamos que você queira regular a in- 
tensidade de uma lâmpada incandescen- 
te, de modo que o nível de luminosida- 
de do ambiente seja constante. À varia- 
ção da intensidade deve refletir as mu- 
danças da luminosidade externa, ou se- 


ja, a lâmpada ficará mais fraca durante 
o dia, e mais forte à noite. Para isso, o 
computador é conectado a uma interfa- 
ce, que controla a corrente elétrica for- 
necida à lâmpada, e a um sensor fotelé- 
trico, que mede o nível de luz no am- 
biente e fornece ao computador essa in- 
formação. Um sistema de retroalimen- 
tação de alça fechada é então incorpo- 
rado, na forma de um software adequa- 
do, segundo este esquema: 






AJUSTE 
O NÍVEL-ALVO 


LEIA NÍVEL 
DE LUMINOSIDADE 


CALCULE 
DIFERENÇA 


ALTERE A SAÍDA 
CONFORME 
A DIFERENÇA 


Quando o programa for executado, 
a luminosidade da lâmpada começará a 
oscilar, tornando-se mais forte e, em se- 
guida, mais fraca que o nível pretendi- 
do (nível-alvo). Esse efeito decorre de 
um atraso no sistema de controle, cau- 
sado pela defasagem térmica da lâmpa- 
da — ou seja, ela não é capaz de respon- 
der à velocidade dos comandos do com- 
putador. Quando a corrente elétrica pa- 
ra a lâmpada é alterada, seu filamento 
demora a esquentar ou esfriar. Entre- 
tanto, o computador já determinou uma 
outra medida de luminosidade, e, com- 
provando que ainda existe um erro, ou 
diferença, aumenta o grau de correção. 
Eventualmente, a lâmpada “alcança” o 
computador e, se a correção efetuada é 
grande demais, chega a ““ultrapassá-lo”, 
invertendo o processo, Para evitar essa 
oscilação, algumas regras simples devem 
ser acrescentadas: 
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AJUSTE 
O NÍVEL-ALVO 


LEIA NÍVEL 
DE 
LUMINOSIDADE 


IGNORE 
DIFERENÇAS 
MENORES QUE 1% 


ALTERE A SAÍDA 
EM MENOS DE 5% 
DA DIFERENÇA 


Agora, o sistema irá ajustar gradual- 
mente a intensidade da luz e mantê-la 
constante, no nível-alvo. Outras regras 
podem ser incorporadas para a promo- 
ção de ações corretoras no caso de mu- 
danças abruptas ou transitórias na ilu- 
minação externa. 


Capo O estojo jo] 


Aquisição e redução de dados e in- 
terfaces homem-máquina são elementos 
importantes de qualquer sistema de con- 
trole. Em muitas aplicações, o micro re- 
cebe informações de fontes diferentes, 
e tem que convertê-las para uma forma 
mais inteligível ou adequada. O softwa- 
re deve verificar se os níveis permane- 
cem dentro de certos limites, converter 
unidades de medidas, filtrar os dados e 
checar inconsistências lógicas. Esse con- 
junto de atividades é chamado redução 
de dados. 

Um analisador automotivo, para 
““acertar” a ignição de motores, consti- 
tui um bom exemplo de aplicação para 
as técnicas de redução de dados. Um sis- 
tema desse tipo exigirá sensores capazes 








de monitorar o nível de dióxido de car- 
bono na exaustão, o sincronismo da ig- 
nição, o ângulo de avanço do distribui- 
dor etc. Ele poderia ser interativo — ou 
seja, o micro daria todas as instruções 
para a ligação dos sensores ao motor, 
acusaria eventuais falhas na operação e 
até mesmo diagnosticaria o problema do 
motor. 


dia e RI 


O que chamamos interface homem- 
máquina é exatamente o projeto da in- 
teração do sistema com o usuário. Esse 
elemento dos sistema de controle ofere- 
ce enormes possibilidades de desenvol- 
vimento. Mesmo ao nível mais simples, 
que consiste na exibição de determina- 
da informação, há numerosas alterna- 
tivas, como a simulação no vídeo de um 
mostrador analógico ou uma barra ilu- 
minada, em vez de complexas tabelas de 
números ou outros tipos de gráfico com 
os quais o usuário está menos habitua- 
do. As opções incluem a representação 
de um esquema do sistema que está sen- 
do controlado. No caso de uma ferro- 
via de brinquedo, por exemplo, é possi- 
vel traçar no vídeo os trilhos e os pon- 
tos de cruzamento, e assinalar em tem- 
po real o seu “'status””. O usuário pode 
comandar todas as funções — como se- 
lecionar trens, mudar sua velocidade etc. 
— por meio de joysticks ou canetas 
ópticas. 

O micro também abre novas perspec- 
tivas para o projeto e controle de siste- 
mas de auxílio para deficientes físicos. 
Esses sistemas permitem, por exemplo, 
que um paralítico controle seu ambien- 
te por meio de um computador, ligan- 
do ou desligando eletrodomésticos, al- 
terando o nível da calefação ou a ilumi- 
nação de um aposento etc. 

Já existem diversas interfaces ho- 
mem-máquina especiais para deficien- 
tes, como as de entrada e saída basea- 
das na voz ou aquelas em que se acio- 
nam as teclas soprando-se em um tubi- 
nho. Com isso, uma pessoa deficiente 
pode até mesmo usar um processador de 
textos, sem necessidade do teclado. 


As formas de controle por meio de 
computadores que acabamos de exami- 
nar são bastante inter-relacionadas, e 
apresentam uma série de elementos em 
comum. Um dos mais importantes é a 
maneira como os computadores obtêm 
informações do mundo exterior. 

Sensores especializados, correspon- 





dentes aos cinco sentidos — tato, olfa- 
to, visão, audição e paladar —, podem 
ser ligados a um microcomputador. Eles 
não chegam a ter o nível de complexi- 
dade dos sentidos humanos. Em com- 
pensação, os micros contam, potencial- 
mente, com ““sentidos”” adicionais, co- 
mo a capacidade de detectar campos 
magnéticos, radiação atômica, eletro- 
magnética, de ultra-som ou raios X, in- 
fravermelha ou ultravioleta etc. 

O computador precisa de um sensor 
específico para cada tipo de fenômeno 
a ser detectado. Existem, assim, detec- 
tores de som e ultra-som, temperatura, 
gases, fluxo, umidade, luz, proximida- 
de, movimento, aceleração etc. 

Seja qual for o tipo de energia à qual 
o sensor é sensível, geralmente a forma 
«de saída é de natureza elétrica — como 
uma corrente ou uma voltagem analó- 
gica ou digital. Dá-se o nome de trans- 
dutor ao sensor que se encarrega de rea- 
lizar a conversão de um tipo de energia 
para outro. 

Como sabemos, o computador não 
pode trabalhar diretamente com sinais 
analógicos: é preciso, antes, convertê-los 
para sinais digitais, ou números biná- 
rios. Isso é feito por uma interface es- 
pecial de conversão, chamada conversor 
analógico-digital (AD). 

Alguns sensores dispõem de algum ti- 
po de circuito de pré-processamento, 
embutido — como amplificadores de si- 
nal, condicionadores, filtros ou conver- 
sores AD simples — o que facilita o tra- 
balho de conexão ao computador. Os 
detectores de temperatura (termistores), 
por exemplo, não respondem de forma 
inteiramente linear à variação da tem- 
peratura. Alguns termistores “inteligen- 
tes”, porém, já apresentam o sinal de 
saída corrigido conforme o nível de tem- 
peratura, dispensando correções por 
parte do software de controle. 


ORES 





Até agora, vimos como o computa- 
dor “'sente”” o que está acontecendo no 
ambiente. Entretanto, para agir sobre o 
mesmo, ele precisa de atuadores, ele- 
mentos que geram alguma forma de 
energia: luminosa, elétrica, mecânica, 
magnética etc. Na maioria das aplica- 
ções, os atuadores são eletromecânicos, 
dividindo-se, basicamente, em cinco 
tipos: 


- pneumáticos 

- hidráulicos 

- motores elétricos DC ou AC 
- solenóides 

- motores de passo 


Os atuadores pneumáticos, bem co- 
mo os hidráulicos, utilizam a pressão ge- 
rada por fluidos (gases ou líquidos) e 
compõem-se de um cilindro contendo 
um pistão, conectado a um braço de im- 
pulsão ou de tração. Uma válvula op: 
rada eletricamnte dirige o fluxo de líqui- 
do ou gás para o pistão. Os atuadores 
hidráulicos geralmente são mais seguros, 
potentes e precisos do que os pneu- 
máticos. 

Motores comuns de corrente direta 
(DC) ou alternada (AC) podem ser con- 
trolados por um micro, embora a pre- 
cisão seja pequena, Quando é necessá- 
rio um posicionamento exato, deve-se 
utilizar um sensor do ângulo de rotação 
do eixo, que informa ao computador a 
posição e velocidade. Esses codificado- 
res, como são chamados, transformam 
o ângulo de rotação em um número de 
bits. Podem ser ópticos ou elétricos — 
nesse último caso, temos um conjunto 
servomotor. 

Devido às complicações mencionadas 
e ao alto preço de um servomotor, os sis- 
temas baseados em micros usam com 
maior frequência os solenóides ou os 
motores de passo. Mais simples — já 
que precisam do computador só para 
ligá-los e desligá-los, não exigindo con- 
trole proporcional — esses atuadores 
adaptam-se melhor ao mundo digital. 

Um solenóide é um eletroimã que 
aciona algum tipo de eixo (ou armadu- 
ra). Quando a corrente elétrica passa 
através de uma bobina, o campo mag- 
nético resultante move a armadura. O 
relé é um solenóide, só que destinado a 
ligar e desligar correntes elétricas. 

O motor de passo (stepper) utiliza 
uma armadura circular de solenóides pa- 
ra girar um eixo, do mesmo modo que 
um motor elétrico comum. A diferença 
é que o avanço se faz em pequenos pas- 
sos, e não em movimentos contínuos. A 
utilização do stepper em conjunto com 
um micro é simples, mas esse atuador 
apresenta uma desvantagem: sua potên- 
cia é bem inferior à de motores elétri- 
cos de tamanho semelhante. 

Para entender o funcionamento de 
um motor de passo, tomemos como 
exemplo um modelo simplificado com 
apenas quatro pólos, ou seja, quatro ele- 
troimãs dispostos em ângulos retos ao 
redor do rotor. O rotor é uma armadu- 
ra de ferro, com duas peças polares, e 
gira livremente sobre um eixo. Se um 
dos magnetos é acionado, o rotor é 
atraído para ele, e gira um certo núme- 
ro de graus. Caso um microcomputador 
acione em segiiência cada um dos mag- 
netos, o rotor girará um número preci- 
so de vezes — efeito impossível de se ob- 
ter com um motor linear. Quanto mais 





rápida a atuação do micro, mais depres 
sa irá girar o rotor. Os motores de pas 
so têm um grande número de bobinas 
(cerca de duzentas, em média), e, con- 
segiientemente conseguem uma rot 
muito mais “macia”. O rotor pode ser 
posicionado sem necessidade de servo- 
mecanismos que indiquem sua posi 


[o TO Uso 


A maioria dos sensores e atuadores 
exige ou fornece uma voltagem entre 
cinco e dez volts, muitas vezes com uma 
corrente de valor elevado. Como o mi- 
cro não foi projetado para trabalhar di- 
retamente com essas voltagens e corren- 
tes, a conexão às portas de entrada e saí- 
da exige uma interface. 

As interfaces disponíveis oferecem 
saídas comutadas de corrente ou volta- 
gem de valor elevado, entradas por in- 
terruptores, portas binárias de oito a de- 
zesseis bits, conversores AD ou DA de 
média ou alta velocidade etc. 

Muitos micros possuem conversores 
AD embutidos (a porta de gravador cas- 
sete, por exemplo, ou a entrada de joys- 
ticks), mas estes não têm fregiências de 
amostragem (número de conversões fei- 
tas por segundo) tão altas quanto as re- 
queridas por muitas aplicações. Por is- 
so, conversores extras são necessários. 
Um conversor DA, por sua vez, forne- 
ce voltagens ou correntes contínuas, a 
partir de sinais binários, para acionar 
motores DC, lâmpadas, alto-falantes e 
assim por diante. 

Alguns sistemas de controle domés: 
tico, como os destinados a ligar e des 
gar eletrodomésticos a distância, utili- 
zam a própria rede de força da casa pa- 
ra enviar os sinais binários. 


EUA 


Existem várias alterativas para a li- 
gação do computador a um atuador me- 
cânico. Muitas delas foram usadas in- 
clusive no desenvolvimento de brinque- 
dos ou kits acionados por computado- 
res. No exterior, encontram-se diversos 
sistemas — como o Meccano, o Lego e 
o Fischer — que são verdadeiros proje- 
tos de engenharia em miniatura, com to- 
dos os componentes imagináveis. 

Quanto maior a flexibilidade do kit, 
melhor, pois conexões mecânicas quase 
sempre precisam ser projetadas de acor- 
do com a tarefa, Um sistema de engre- 
nagens, polias e alavancas, conectadas 
a relés, solenóides e motores, requer, é 
evidente, um minucioso trabalho de pla- 
nejamento e construção. 




































SOFTWARE 


Desenvolver software para aplicações 
de controle é mais difícil do que pa- 
ra outros tipos de aplicação, como jo- 
gos, por exemplo. As interfaces dispo- 
níveis simplificam bastante esse traba- 
lho. Muitas vezes, elas são fornecidas 
com uma biblioteca de rotinas em lin- 
guagem de máquina ou BASIC, que po- 
dem ser utilizadas como módulos de um 
sistema mais complexo de controle, es- 
crito pelo usuário. 

Um dos passos mais importantes no 
desenvolvimento do software consiste 
na análise e divisão do problema de con- 
trole em partes menores, de tal forma 
que se possa escrever e testar individual- 
mente cada seção, antes de integrá-la ao 
sistema maior. 

A necessidade de manter o micro- 
computador permanentemente conecta- 
do ao sistema de controle costuma de- 
sestimular o usuário a se aventurar nes- 
sa área. Esse inconveniente, porém, po- 
de ser superado com a aquisição de um 
sistema de desenvolvimento, que é um 
































geralmente em uma 
única placa, específica para as tarefas de 
controle. Essa solução, além de ser ba- 
rata, é a mais adequada: dificilmente 
uma aplicação de controle requer todos 
os recursos disponíveis em um compu- 
tador de uso geral. 

Os sistemas de desenvolvimento são 
fornecidos com um conjunto de hard- 
ware e software que permite a adapta- 
ção do computador à tarefa especifica 
que será realizada. Se os dados a serem 
exibidos são exclusivamente numéricos, 
basta um visor LED ou de cristal líqui- 
do, do tipo existente para calculadoras. 
Caso a aplicação exija apenas algumas 
teclas ou botões, não é preciso acrescen- 
tar um teclado completo. Entretanto, 
temas desse tipo têm necessidades que 
um micro comum nem sempre é capaz 
de atender — como um número grande 
de canais analógicos, ou saída de con- 
trole de correntes altas 

O usuário pode modificar à vontade 
o software que acompanha os sistemas 
de desenvolvimento, incorporando-o, 
posteriormente, a uma memória 
EPROM, para uso permanente. 
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DENTADA 


PERITOS TOR ETA LU 
os comandos gráficos do LOGO usando 
a tartaruga — uma espécie de cursor 
triangular que indica a posição atual na 
EO RR gr To EU a LR 
PET RE e To TR CS a LU RR CO EUR 
PTE rege a RS UTI OSS at LU 
sermos, por exemplo, fazê-la desenhar 
ETC Tee Ter TOR TALE TUAS 


Ci 


TO HEXAGONO 
[ETA 7 RR 6 o (OR À 
END 


| 


AGR 

AS SUR LR) 
PARADIREITA 60] 

et 





Após digitarmos END, o interpreta- 
dor indicará que o procedimento HE- 
XAGONO foi definido, passando a fa- 
Poa TAC Ro ia RO ELOA 

Quando você digitar a palavra HE- 
XAGONO, a tartaruga desenhará um 
EO to OR ro ATLETA Corte AR 
Pee Re e TS ER TR O Rec SU 
to), a partir da posição em que estiver. 
Er MR Ro te to o ou Co RUI NS 
percorreu seis vezes 60 graus, ou seja, 
ET UPE TO = credo o uno O E UN LUC 
ERROR o Ae UR e Ut UOL ATLETA 
tendo recebido um nome jocoso dos en- 
tusiastas do LOGO: Teorema do Tra- 
ECO TR ET O DR 

Um procedimento pode ser utilizado 
dentro de outros, como mostra O pro- 
grama abaixo, chamado FLOR, que de- 
senha doze hexágonos ao redor de um 
centro, formando, assim, as pétalas: 


[7 


ERA 

DAS PAO O eo DD 
EUR 

[o 


ay 





El. do 


REPITA 12 [HEXAGONO PF 10 PD 
30) 
id 


Observe que deslocamos a tartaruga 
dez passos adiante, antes de repetirmos 
PTE Ter TT oO LO desvia- 
PORTER ro TOR TE URL ER RUE] 
RR oro TRE TU Co EL 





Para fazer desenhos no vídeo, nor- 
malmente o BASIC usa como referen- 
METRO err to O COR TUUTC R 
tesiano (de eixos ortogonais, X e Y), 
Toe LES ETTA E CL A 
EQ ra Car Cro RR CUL 
nela, o ponto de referência é a própria 
DRT ta tros ORE o ee e ore LUTO 
RD To ra a TA E Tecto ae LEA [O] 
partir da última posição em que a tar- 
rca Eos 

É por isso que usamos 60 graus para 
desenhar um hexágono, e não 120 graus 
(que corresponde ao ângulo entre os 
RTAC RS UAU /4 (LA 
a tartaruga 60 graus para produzir um 
ângulo de 120 graus entre a última reta 
EE RR SU 

ENTE RO ET OR ETR RESTO 
ES RS TOR ELE To ea Te io Lua 
uma forma intuitiva como esta, que nos 
PSL ari e Ar o TUR] 
tartaruga, bastando imaginar que esta- 
mos em uma sala vazia, traçando algu- 
Dor pre Ro URSS TO 











[atua po joe gere iate To 5 10 NELA 
TO RES LER Rio a ro este CORE TOR oe Le 
lário do LOGO, há uma importante di- 
RSRSRS ad AE Loc ate O 
primitivos da linguagem, como aqueles 
que fazem a tartaruga avançar, recuar 
ou virar: o HEXAGONO traçará uma 
PERANTE RE a ato de [Ore us te tuLu PT 
passo que os comandos Eater te Et ro 
Pete Loto RT O Te: CT Ce LE 

PS TECS ELO cR Sc efa Leto CA o TATO] 
definir procedimentos que tenham pa- 
râmetros variáveis. Para isso, precisa- 
mos atribuir um nome ao parâmetro de 
entrada e inclui-lo na linha de título do 


[SU E e RS EL] 
ER A RR CUL 
Ei LER E e UE 

ER e Ro ART RC 

Doro eu e Toe RES A O 


POL Co ev Ti Aro LUOR SSIS To LATO CAOS 
cedido de dois pontos, que indicam ao 
interpretador que se trata de uma variá- 
ES Te ETC RR TEC eU Cro Re OE O 
cedimento, simplesmente fazemos refe- 
PRETO ERC TS Dre LUAS EO 


















RS quinuacens Sa 
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A VISÃO DA TARTARUGA E REPETIÇÃO E RECURSÃO 
PROCEDIMENTOS E | COMO PARAR 
ERA VE UMA REPETIÇÃO 
o SEN ARMAZENAGEM 
APAGANDO O TRABALHO DOS PROGRAMAS 











necessária — colocando, é claro, os dois 
SE UR 

Se você quiser definir um procedi- 
mento HEXAGONO que lhe permita 
especificar a medida do lado no momen- 
to de desenhar, faça: 








3 
TO HEXAGONO :LADO 
REPEAT 6 [FORWARD :LADO RIGHT 


[A] 
END 


by 


AP HEXAGONO :LADO 
REPITA 6 [PARAFRENTE 
EO OD 6 | 
tl 


Agora, para desenhar um hexágono, 
bastará digitar a palavra do procedimen- 
to, seguida do número correspondente 
ao comprimento desejado para o lado. 
Se você se esquecer de colocar esse nú- 
mero, o interpretador LOGO imprimi- 
ERR LS E TS LO STE 

Digitando HEXAGONO 20, por 
exemplo, você fará a tartaruga desenhar 
um hexágono com vinte unidades (ou 
passos) de lado; com HEXAGONO 40, 
obterá um outro hexágono, com qua- 
renta unidades de lado. O uso de :LA- 
DO dentro da linha de repetição do pro- 
fere Tonto o onde o: Le: RCE To SOL ATITo OR TT 
tomática do valor numérico anterior pe- 
lo especificado na entrada. O novo co- 
mando, HEXAGONO, passa assim a 
pirita ro Eta pio o NE ei TENTO Ee O O ETR 

Façamos o mesmo com FLOR, rees- 
crevendo o procedimento: 


q 
ERREI 
ERRO o RR TR ST) 


RT 30) 
Falo) 


| 


AP FLOR :LADO 
ASS VIR E io OR 
PD 30] 
EU 

Quando digitarmos novamente FLOR, 
deveremos fornecer o tamanho deseja- 
do. Experimente várias medidas, para 
ver o resultado. Da mesma maneira, po- 
demos tornar variáveis o avanço e o àr 
gulo executados a cada novo hexágono: 


7] 








LINGUAGENS 


MU 3 























































7] 


TO FLOR :LADO :AVANCO :ANGULO 
REPEAT 12 [HEXAGONO :LADO FD 
:AVANCO RT :ANGULO] 

END 


by 

POR O RT LO LT A 
LADO VAR CI e 
ER LO ei 4 ET LUI D 

Lei 

oro iR RE (Cp peso E Tou UT TOR 
parâmetros, é possível produzir dese- 
POTRO COR TES ES UR 
Esta é a filosofia LOGO: estimular a ex- 
perimentação e a criatividade, empre- 
Perro [OR o LE Tae ARO EU 
PO SR ocre ALCA TO OT QU CORRE TO 
entender. Qual seria o tamanho de um 
programa equivalente em BASIC, para 
fazer a mesmissima coisa? 

O Teorema do Trajeto Total da Tar- 
ETA RE rea TEe e [Ergo ro CR AI URU 
lo número de lados do polígono regu- 
lar, para se obter o ângulo de virada en- 
tre cada lado do mesmo. Poderíamos, 
PET RE ACO o PLURAL AS UE Ur 
que traça triângulos, quadrados, pentá- 











E) 
gonos, hexágonos etc., desde que espe- 
cificássemos o número de lados e o com- 
primento de cada lado: 

] 


3] 


TO POLIGONO :NUMEROLADOS :LADO 
REPEAT :NUMEROLADOS [FORWARD 

: LADO RIGHT 360/:NUMEROLADOS ] u 
END 


iy 


AP POLIGONO :NUMEROLADOS :LADO 
REPITA : NUMEROLADOS [PF :LADO 


Do RC PA A SD] 
Led 





Como mostra esse programa, o LO- 
GO é capaz de resolver expressões ma- 
temáticas, à semelhança do BASIC. Se 
digitarmos POLIGONO 8 20, por exem- 
plo, a substituição será feita automati- 
camente, e teremos a execução do se- 
guinte comando (que traçará um octó- 
FETO ATOR OR LUC ane Ee te ee PR o) 


Ca 


REPEAT 8 [FORWARD 20 RIGHT 45] 


ya 


REPITA 8 [PF 20 PD 45] 


O mesmo procedimento pode ser uti- 
lizado, aliás, no traçado de uma circun- 
ferência. Para isso, precisamos aumen- 
tar bastante o número de lados — por 
exemplo, POLIGONO 2 72. Como os 
lados são demasiado pequenos, teremos 
a impressão de que a figura resultante 
Rr ereta o Te Late OTA 
A tartaruga leva longo tempo para 














Ts quncuacens oa TO 


traçar essa figura, pois seus deslocamen- 
ERR TITULO do O Te 
ponto, seu simbolo tem que ser nova- 
mente desenhado. Esse inconveniente 
pode ser evitado por meio de um coman- 
CRT DOR RE TE INT 


1 


LPs 


A 


DESAPAREÇATAT 





O comando do MSX também pode 
ser abreviado por DT. Para fazer rea- 
parecer a tartaruga, digitamos; 


[3 


RA 





y 
POCO 


Poderíamos, portanto, definir um 
procedimento específico para traçar cir- 
culos, incorporando todo o conhecimen- 
Eee Tree te fo Tia are LT eR Teto e: 


01] 


TO CIRCULO :LADO 

Hey 

REPEAT 72 [FD :LADO RIGHT 5] 
SHOWTURTLE 

o) 


: 
by 

AP CIRCULO 
DESAPAREÇATAT 


REPITA 100 [PARADIREITA 36 
PARAFRENTE 1] 

OO IA VU 

Ei 


MODIFICAÇÃO E ARMAZENAGEM 


A medida que vamos incorporando 
mais € mais procedimentos ao vocabu. 
lário corrente da linguagem LOGO, 
OEA UR ONGLe a To RA o TU E Dra corr EE 
modificar um procedimento já existen- 
te (para não ser preciso digitar todos os 
seus comandos de novo, a cada peque: 
na alteração que queiramos fazer), e ar- 
mazenar todos os procedimentos em dis- 









[too UR ELE Re RETO Te RT ETTA Rem 
cução ou modificação. 

O LOGO dispõe de um editor sim- 
ples, que é chamado por intermédio do 
comando EDIT (EDITE, para as ver- 
RS Bite vo girar) RS rela 
vra-chave deve ser seguida do nome do 
procedimento a ser editado. 

O comando EDIT apaga a tela e lista 
o procedimento pedido no video, a partir 
do topo. Digitando uma série de teclas es- 
[col TER (e roR ge Lari Life o pio as itoR cito Ra (6) 





[Role o RT OR Rca ia 
gar e escrever caracteres e linhas, modifi- 
cando o procedimento, Ao terminar à 
edição, pressionamos <CIRL> <C>, 
<CTRL> <BREAK > ou qualquer ou 
tra combinação de teclas especifica do 
programa editor. Com isso, voltamos ao 
oe oNe a Rr Ro TOR 

Para armazenar o conjunto de pro- 
cedimentos já definidos na memória, 
CRC O RM RS AT LC o rot Tite (o 


[a 


ETA A IA 











o urisuaçens os TT 


ay 


GRAVETUDO "NOME 


Nesse exemplo, o arquivo criado em 
ita, contendo todos os procedimentos, 
É PERU AT 
EoLe ee re So RECO pec CAT RL OE LEO] 
fechá-las) — sinal convencional do LO- 
[EO NTE RR 

Os procedimentos podem ser recupe- 
rados do disco ou fita pelo comando: 


[oé] 


Roo 






da 


09] 


CARREGUE "NOME 


Ao usarmos o comando de carrega- 
PERTO COMO AR To SAR o Os CESTO RT TO] 
acrescentados aos que já se encontram na 
ET ra e ODE TER AT AS ALTAS 
[TOR o o RR eat L CORRA o LUTAR A | DSL 
dando lugar ao procedimento carregado, 

Existem também comandos para lis- 
tar e apagar procedimentos nas memó- 
REC LET or: RR UTI Le 


[é] 


Edo RD RS RT Ri Se Trip io Ra o Te e 
E | (abreviatura de PRINTOUT.) 





































POTS - Lista o nome dos procedimen- 
EEN TS CRU LAR 


COVER CR 
[LEIO 


SEE TECTO Er 


ERASE - Apaga o procedimento no- 
meado (precedido de aspas) da memó- 
ERAS R 





ERASEFILE - Apaga o arquivo no- 
DITA 


| 


MO - Lista um procedimento nomeado 
(abreviatura de MOSTRE). 


MOTS - Lista o nome dos procedimen- 
[RN TAC UR RL O E 


ARQUIVOS - Lista os arquivos existen- 
E REA 


ELIMINE - Apaga o procedimento no- 
meado (precedido de aspas) da memó- 
ERR LS A 







[DRDS LoL DAN (O DRA Toro TE LUTO LO 
[TRT TaR 


A forma desses comandos pode variar 
ligeiramente, segundo a versão do LOGO 
que está sendo utilizada. Consulte o ma- 
nual de operação, antes de usá-los. 


RGANIZAÇÃO DA MEMÓRIA 


A memória de trabalho do LOGO é 
POTE e ER EL Re CALOR 
quicas, incluindo no mesmo espaço tan- 
to os nomes de variáveis e procedimen- 
PROTESTO 
ECO LLCA LO E TCE 

Uma lista hierárquica pode ser repre- 
ET mente por algo seme- 
lhante ao organograma de uma empre- 
sa ou, melhor ainda, pela árvore genea- 
[Pr RR UEC 

Corr Er Dor pare OUT o UE 
do LOGO ocuparia um nodo — que cor- 
PR AL ER OE RT COORD A Ti TOU 
sa árvore. Assim, a capacidade da memó- 
ria, em LOGO, não é medida em bytes, 
mas em nodos. Dependendo do modelo 
Peres noi re re Lo are Tao pu a o 
LOGO utilizada, essa medida varia de 
BOLA Ore ong Rae RUA LOR O OUTRO 

Sempre que se define um novo nome, 
REL rn dO 676 RO Roe Dota 
seu espaço original. Quando um proce- 
TES ITR DRT TORRE Teto OTTO 
RIO ETR Dio To Or ce Tire [OR 
Pr TUCA RCE E RC URINA 
Error e To Re eTiLe te e (ORLA US 
PRP SAT re Tra CORTA 
operação chamada “coleta de lixo”, que 
POSTE ETR DR co ee LPA TR UA QL 
memória. Isto pode causar uma parada 
do LOGO durante alguns segundos, sem 
qualquer aviso prévio. 


REPETIÇÃO E RECURSÃO 


Como foi explicado anteriormente, 
linguagem LOGO dispõe de um proc 
Pe TEL TOR: aro pero TOR ILS oro E 
ples, requer a especificação do número 
de vezes que um determinado conjunto 
de comandos será repetido. 

Com a utilização de um procedimen- 
ERR TEA OR Co ae ac ca CAT E Lo 
ter uma repetição. 

Entende-se por recursão a capacida- 
de que um procedimento tem de chamar 
asi mesmo. Algumas linguagens, como 
o LISP, o PASCAL, o LOGO, 0 Ce o 
ALGOL, dispõem de capacidade recur- 


























O 


MUS punuaçens oa | 


siva infinita — ou seja, não há limite pa- 
ra o número de vezes que um procedi- 
mento pode chamar a si mesmo, Outras 
linguagens, como o BASIC e o FOR- 





A recursão é uma das propriedades 
mais interessantes do LOGO, conferin- 
[aro LTeR To gun rare Cor rero rota TaTR 

Veja, por exemplo, de que manei 
poderiamos reprogramar o procedimen- 
to FLOR, utilizando a recursão: 


q 


EAR o RR 0,0) 
HEXAGONO FD :LADO RT 30 














[Re DR 0) 

END 

' 

| 

AP FLOR :LADO 

HEXAGONO PF :LADO PD 30 
FLOR :LADO 

BU! 






LO RO ET REI TE DOI OC TORTO 
de notar, em um laço infinito, que se re- 
pete indefinidamente. 

ATENTO EIS DOTE O CO ETTA RR O TATO] 
pressionar <BRE, ou <CTRL> 
>, dependendo do computador. 

E possivel incluir em um procedimen- 
to recursivo o número de parâmetros de 
entrada que quisermos. Um polígono re- 
gular, por exemplo, também pode ser 
traçado por um procedimento recursi- 
vo, que chamaremos POLI: 


[06] 














TO POLI :LADO :ANGULO 
FORWARD :LADO RIGHT :ANGULO 
POLI :LADO :ANGULO 

END 

É 

by 

AP POLI :LADO :ANGULO 
PARAFRENTE :LADO PARADIREITA 
ER) 

POLI :LADO :ANGULO 

PU 


Com base no procedimento POLI, 
que, em si, nada faz de novo, podemos 
imaginar um outro, ESPIRAL, que tra- 
ça desenhos variados, conforme os pa- 
De Tuta o ro poi DU LSReRE repre p ESTA [o 


[é] 


TO ESPIRAL :LADO :ANGULO 
FORWARD :LADO RIGHT :ANGULO 
ESPIRAL :LADO+2 :ANGULO 

io 





| 


AP ESPIRAL :LADO :ANGULO 


PARAFRENTE :LADO PARADIREITA 
ERA ÃO) 
ESPIRAL :LADO+2 :ANGULO 


id 


Observe que o LOGO acrescenta 
duas unidades ao LADO, em cada re- 
petição do procedimento. Com isso, ob- 
(Ut RU re To ILE RS Te 

RICD o ATT CR E To Ta 


ESPIRAL 1 45 
LI RR) 
ESPIRAL 1 72 
Dipo DD 


Se desejar que o desenho seja execu- 
tado com maior rapidez, não se esque- 
[Ce POR TODD ELECTRA 


Não existe nenhuma maneira de pa- 
POUR TT ST EC 
não ser interrompendo o programa ex- 
ternamente. Isto não só é deselegante, 
como também impede que um procedi 
mento recursivo seja chamado posterior- 
mente por outros procedimentos, pois 
[O PETER ATO UIP To PORTO ETTA 

O LOGO oferece, porém, a possibi- 
lidade de se testar determinadas condi 
ções, por meio de uma operação bastan- 
te semelhante áquela que é efetuada pe- 
lo comando IF... THEN da linguagem 
BASIC. Podemos testar, por exemplo, 
ETR AO RARO Ce ToTRa oR TEUCTo 
sou um certo limite, impondo, caso is- 
[CONTO ER Lento Teto RCA COM TORA LO) 
procedimento ao nivel imediatamente 
superior de chamada (que corresponde 
a um outro procedimento ou ao modo 
direto). Para isso, utiliza-se um coman- 
PT ALTOS O O] TRE 
em português, PARE — que não pode 
ACE to o oro IO 

Para esclarecer melhor o emprego 
desse primitivo, vamos programar um 
procedimento denominado GIRAHEX, 
que traça hexágonos com lados progres- 
sivamente maiores, até que o lado de ta- 
manho 60 seja atingido. Recorreremos 
ao procedimento HEXAGONO, defini- 
do anteriormente, para desenhar a figura. 


0] 


TO GIRAHEX :LADO :ANGULO 
IF :LADO>60 THEN STOP 
HEXAGONO :LADO 

Lo RT ID 

GIRAHEX :LADO+3 :ANGULO 
END 














para o 
aos comandos 
este artigo. 


do BRASLOGO usados 


são 


BRASLOGO 
SEMTARTARUGA 
EDITE 


ENTAO 
PARE 
GRAVETUDO 
CARREGUE 
MOPS 

Mo 

ELIMINE 
ELIMINEARO 
ARQUIVOS 


ENTAO 
PARE 


Vo 


AP GIRAHEX :LADO :ANGULO 
SE :LADO>60 ENTAO [PARE] 
ELSA RA A) 
PARADIREITA : ANGULO 
GIRAHEX :LADO+3 : ANGULO 
A 

Na versão em BRASLOGO, o coman. 
do PARE está especificado como se fos. 
se uma lista, Mais poderoso que o LO 
GO padrão, o BRASLOGO permite es: 
pecificar, como mostramos a seguir, uma 
sequência de comandos que será execu 
tada se a condição SE for verdadeira 


SE :LADO>60 ENTAO [PARACENTRO 
PARE) 


O procedimento GIRAHEX TO faz 
o computador traçar um hexágono com 
uma unidade de lado, girar a tartaruga 
10 graus, traçar um hexágono com qua: 
tro unidades de lado, girar novamente 
10 graus « assim por diante. Quando o 
PER POR TORTO To To NO PT PORT 
dades, o procedimento será interrompi- 
do automaticamente. 

[oro RE OU Co gueto EO TO 
artigo, você já pode explorar à vontade 
as fabulosas propriedades da recursão, 
obtendo uma grande variedade de cfei- 
[on RED o Tdi To TS sto igor iec Tui O] 
que aconteceria, por exemplo, se tam- 
bém variássemos o :ANGULO a cada 
recursão, no programa GIRAHEX? 

No terceiro e último artigo desta sé- 
rie de artigos, vamos investigar os recur- 
sos do LOGO no processamento de lis- 
ERRA TEN Ga CR e TE Teo RETOS ETTA 


























As limitações da memória do micro 
costumam frustrar os programadores 
que apreciam jogos de aventura. 

Veja como fazer para colocar o máximo 
de texto em um mínimo de memória, 










Todo programador enfrenta o mes- 
mo problema ao desenvolver jogos de 
aventura: o texto não cabe no espaço 
disponível na memória do micro. Quem 
não pode comprar uma máquina maior 
ou expandir a memória da sua, costu- 
ma contornar essa dificuldade reduzin- 
do o tamanho do jogo ou simplifican- 
do demais o texto. Muitas vezes, O pro- 
gramador se vê obrigado, por exemplo, 
a eliminar as instruções do programa — 
o que é mau para quem vai utilizá-lo. 

Existe uma maneira, porém, de tor- 
nar O programa menos extenso. Os mé- 
todos normalmente empregados para 
encurtar um programa, discutidos no ar- 
tigo da página 141, não são eficientes no 
que diz respeito a jogos de aventura, 
pois a maior parte destes consiste em 
textos (listas de objetos, locações, situa- 
ções, mensagens, instruções etc.). A so- 
lução está, portanto, em reduzir o espa- 
ço ocupado pelo texto. 

Examinaremos aqui várias técnicas, 
de compressão de texto e, em artigo pos- 
terior, veremos como usar uma delas em 
um jogo de aventuras. 


COMO UM TEXTO É ARMAZENADO 


O computador normalmente armaze- 
na o texto — ou seja, tudo o que não 
é instrução de programa, ou constante 
numérica — da mesma maneira em que 
foi entrado, usando o código ASCII (ve- 
ja o artigo da página 361). 

Recordando, o código ASCII (Ame- 
rican Standard Code for Information 
Interchange, Código Padrão America- 
no para Intercâmbio de Informação) é 
um padrão utilizado para representar 
caracteres na memória do computador. 
Ele comporta 256 códigos ou caracteres 
diferentes. Os códigos 0 a 31 são reser- 
vados para funções de controle e os có- 
digos 32 a 90, para caracteres alfabé 
cos, numéricos e de pontuação. Os có- 
digos 91 e seguintes estão livres para ou- 
tros usos, como caracteres gráficos, s 
nais de acentuação. 

Duas características do ASCII são es- 
pecialmente relevantes para o problema 
de compressão de textos: 

- um código ASCII ocupa um byte de 
memória (ou oito bits), pois 255 é o 























maior número que pode ser armazena- 
do em oito bits (11111111, em binário); 
- o código ASCII possui mais códigos 
numéricos do que caracteres para 
representar (e, por isso, é cha- 

mado degenerado). Poderia, 
portanto, ser diminuído, 
sem muito sacrifício. 

Na realidade, o ASC 
II é uma evolução de sis- 
temas de códigos ante- 
riormente existentes, 
que ocupavam menor es- 
paço de memória, pois 
tinham sete ou seis bits 
(como o código Baudot, 
usado em máquinas de te- 
lex). A ampliação do espaço 
ocupado para oito bits signifi- 
cou uma adaptação ao mundo dos 
computadores digitais, onde predomi- 
nam os processadores com número de 
bits organizados em potências de 2 — 
quatro, oito dezesseis, 32 bits etc, Com 
isso, expandiu-se no ASCII o alcance 
original dos códigos de texto. 

Se os códigos dos caracteres fossem 
comprimidos em menos de oito bits, o 
espaço total para a armazenagem de tex- 
to na memória seria reduzido proporcio- 
nalmente. Podemos fazer isso adotan- 
do em nosso microcomputador um có- 
digo diferente do ASCII e escrevendo 
um programa que faça a tradução do 
ASCII para o nosso código particular e 
vice-versa. Essa tradução é necessária 
porque os periféricos de entrada e saí- 
da, assim como as funções de progra- 
mação que trabalham com textos, obe- 
decem ao padrão ASCII. Existem diver- 
sas alternativas para a elaboração de um 
programa desse tipo, cada uma com 
suas vantagens e desvantagens. 


ITO PARA SEIS 


A maneira mais direta e intuitiva de 
se comprimir um texto consiste em uti- 
lizar apenas uma parte do código AS- 
CII. De modo geral, qualquer texto po- 
de ser escrito com o emprego de apenas 
128 códigos, que cabem em sete bits. A 
economia de espaço obtida, nesse caso, 
é da ordem de 1 em 8, ou, em termos 
percentuais, de 12,5%. 












































































































































É possível também escrever um tex- 
to empregando caracteres maiúsculos, 
numerais e sinais de pontuação, que cor- 
respondem aos códigos ASCII 32 a 90, 
ou seja, a 59 códigos. Se usarmos seis 





bits (o que permite armazenar um má» 
mo de 64 códigos), conseguiremos uma 
redução de 2 em 8, ou de 25%, o que 
é bem razoável para muitas aplicações. 

Converter o código ASCII ao nosso 
novo código de seis bits é fácil: basta di- 
minuir 32 do código ASCII. O resulta- 
do será um código com valores de O a 
58, com os caracteres representados exa- 
tamente na mesma ordem. Para a con- 
versão no sentido inverso, basta somar 
32 — e teremos o código ASCII, de 
novo. 





47 PROGRAMAÇÃO DEJOGOS 47 


“ ARMAZENAGEM DO TEXTO 
ECONOMIA DE ESPAÇO 
TEORIA DA COMPRESSÃO 

CÓDIGO ASCII 


O USO DA ESTATÍSTICA 





o o A 


A redução pode ser ainda maior. Um, 





código de cinco bits permite que se fa 
a representação de 32 caracteres: todas 
as letras maiúsculas, que são 26, e mais 
seis caracteres destinados à pontuação 
— por exemplo, o espaço em branco, o 
ponto, a vírgula, os dois pontos, o hí- 
fen e o sinal de interrogação. Se o texto 
contiver números, eles terão que ser es- 
eritos por extenso, o que, na verdade, 
não representa um problema muito 
grande. 

Com um código de cinco bits, con- 
seguimos uma redução de 5 em 8, ou se- 
ja, de 37,5%, o que significaria uma 
economia de quase quatro Kbytes em 
cada dez Kbytes de texto. Uma redução, 
convenhamos, considerável. 





[ao MENA 


A conversão do ASCII e para o / 
CII, nesse caso, não é tão fácil assim, 
exigindo um programa específico, como 
o que se segue: 





10 DIM FS(50) 
20 K$="ABCDEFGHIJKLMNOPORSTUVW 





RYZ qaz=?" 

100 CLS 

180 PRINT "CODIFICANDO...” 

190 I=0:NC=0 

200 READ L$:IF LS="*" THEN 230 
210 GOSUB 710:1I=I+1:FS(I)=X$ 
215 NC=NC+LEN(XS) 

220 corto 200 






















230 STOP 
700 REM --- CODIFICACAO 

710 X$="":FOR J=1 TO LEN(LS) 
720 CS=MIDS(LS,J,1) 

730 P=INSTR(KS,CS):IF P>O THEN 
XS=XS+CHRS (P) 

740 NEXT J:RETURN 


Coloque o comando CLEAR 1000 na 
linha 10, para micros das linhas TRS-80 
e TRS-Color. 





10 DIM F$(50) 

20 K$="ABCDEFGHIJKLMNOPORSTUVW 
RTZ os?” 

HOME 

PRINT "CODIFICANDO...” 

LET I=0:NC=0 

READ LS$S:IF L$="*" THEN 230 
GOSUB 710:1=I+1:FS(I)=XS 
LET NC=NC+LEN(XS) 

GoTo 200 

STOP 

REM - CODIFICACAO 

LET X$="":FOR J=1 TO 
LEN(LS) 

LET C$=MIDS(LS,J,1) 

FOR P=1 TO 32 

IF MIDS(KS,P,1)=C3 THEN X3 
= XS + CHRS(P) 

NEXT P 

NEXT J:RETURN 


100 
180 
190 
200 
210 
215 
220 
230 
700 
710 





720 
725 
730 


735 
74o 


10 DIM £3(50,64),kS(32) 

20 LET k$="ABCDEFGHIJKLMNOPORST 
UVWXYZ ,.:-7" 

180 PRINT "CODIFICANDO...” 

190 RESTORE:LET 1=0:LET nc=0 
200 READ L$:IF L$="*" THEN GOTO 
230 





210 GOSUB 710:LET 1=1+1:LET 
fS(I)=xS 

215 LET nc=nc+LEN xs 

220 GoTO 200 

230 sTOP 

700 REM --- CODIFICACAO 

710 LET x$="":FOR j=1 TO LEN LS 
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720 LET cS=L$(5 TO 3) 
725 FOR p=1 TO 32 
730 IF kS(p TO p)=CS THEN XS-XS 
+ CHR$ P 

735 NEXT p 

740 NEXT 5: RETURN 


Para testar este e outros programas 
de codificação de textos, podemos co- 
locar no fim do programa várias linhas 
DATA, contendo, por exemplo, as ins- 
truções de um jogo de aventura (a últi- 
ma linha deve ter um asterisco): 





5000 DATA "POR MAIS DE DOIS MIL 
ANOS, O AMULETO SAGRADO DE NIT 
PU FOI” 


5010 DATA "ZELOSAMENTE GUARDADO 
PELOS ALDEAES DO CONDADO DE NO 
RDHAM.” 

5020 DATA "A SUA POSSESSÃO ERA 
A CHAVE PARA A SEGURANCA E A FE 


























5080 DATA "COM SANGUE NA PAREDE 
DO SANTUARIO PROCLAMAVA AOS QU 
ATRO” 

5090 DATA "VENTOS O NOME DO FAC 
INORA: O CRUEL REI DE AARDVARK, 
SOBERANO” 

5100 DATA "NORMANDO QUE HABITAV 
A UM CASTELO SOMBRIO E CHEIO DE 
ARMADILHAS” 

5110 DATA "E DE ONDE SO' SE OUV 
EM OS GRITOS DOS PRISIONEIROS T 


ORTURADOS 

5120 DATA "VOCE E' O GALANTE CO 
NDE DE NORDHAM, E SUA MISSAO E' 
RECUPERAR” 


5130 DATA "O AMULETO SAGRADO. U 
M PLANO DESESPERADO FORMA-SE EM 
SUA MENTE:” 

5140 DATA "A UNICA MANEIRA DE E 
NTRAR NO CASTELO E' DEIXAR-SE À 




















LICIDADE” 

5030 DATA "DO REINO DE DUCHESS, 
NA ESCOCIA. O CONDE, QUE ERA O 
PROPRIETARIO” 

5040 DATA "DE TODO AS TERRAS AO 
REDOR DA ALDEIA, JUROU DEFENDE 
R O AMULETO” 

5050 DATA "COM SUA PROPRIA VIDA 


5060 DATA "UM DIA, HORROR E DES 
GRACA SE ABATEM SOBRE A ALDEIA. 
o” 

5070 DATA "AMULETO SAGRADO TINH 
à DESAPARECIDO ! UMA MENSAGEM E 
SCRITA” 


PRISIONAR” 
5150 DATA "PELOS ASSECLAS FEROZ 


ES DE AARDVARK. PARA COMPLETAR 
A AVENTURA” 

5160 DATA "VOCE PRECISA SE DESV 
ENCILHAR DE SEUS CAPTORES, PERC 
ORRER 08” 

5170 DATA "LABIRINTOS MORTAIS D 


O CASTELO, ACHAR O AMULETO, E D 
EPOIS” 

5180 DATA “ESCAPAR.” 

5190 DATA "SEUS RECURSOS SAO PO 
UCOS: UMA ESPADA, UMA TOCHA, UM 
PUNHADO” 

5200 DATA "DE ALIMENTOS SECOS, 








UM CANTIL D'AGUA, E UM PUNHAL. 
A SUA FRENTE,” 

5210 DATA "UMA SEQUENCIA DE BAN 
DIDOS E FERAS DE ARREPIAR OS CA 
BELOS...” 

5220 DATA "BOA SORTE !" 

5230 DATA "*" 


Se preferir, digite apenas as primei- 
ras linhas. Só precisaremos deste texto 
completo quando formos testar progra- 
mas mais complexos, adiante. 


[e 


O programa de codificação, que 
transforma o código ASCII em um có- 
digo reduzido de cinco bits, está conti- 
do no laço das linhas 200 a 220. A linha 
200 lê uma linha de texto, L$, em DA- 
TA, terminando ao encontrar um as- 
terisco. A linha 710, por sua vez, cha- 
ma a sub-rotina de codificação, que ve- 
rifica se cada caractere C$, extraído de 
LS, está na lista de codificação armaze- 
nada em K$ pela linha 20 do programa 
principal, Se estiver, sua posição sequen- 
cial P, em KS$, é usada como código, e 
um CHRS(P) concatena este caractere 
em uma cadeia de saída, X$. Se não es- 
tiver, então nada é concatenado. 

O conteúdo de X$ é armazenado na 
lista F$, onde cada elemento correspon- 
de a uma linha do texto em DATA. A 
armazenagem é necessária para uso pos- 
terior. A variável NC da linha 225 ser- 
ve simplesmente para contar o número 
de caracteres convertidos. 

Como os textos armazenados em F$ 
já não se encontram mais em ASCII, 
não podemos listá-los com um PRINT 
normal, pois muitos deles correspondem 
a caracteres ASCII de controle e provo- 
cariam a maior desordem na tela. 

Se quiser ver como ficam os códigos 
numéricos convertidos, acrescente estas 
linhas ao programa e rode-o: 


ama (é) sy 


212 GOSUB 820 

800 REM --- LISTAGEM 

820 FOR N=1 TO LEN(X3) 

830 PRINT ASC(MIDS(XS,N,1)): 
840 NEXT N:PRINT 

850 RETURN 


212 
800 
820 
830 


GOSUB 820 

REM --- LISTAGEM 

FOR n=1l TO LEN xS 
PRINT ASC XS(n TO n)i 
840 NEXT n:PRINT 

850 RETURN 


Para decodificar os textos — ou pa- 
ra reconvertê-los ao código ASCII —, 


devemos adicionar as linhas seguintes e 
rodar novamente o programa: 


mama (oé (ny 


230 NL=I:T=0 

235 PRINT "TOTAL: ";NC; FCARACT 
ERES”: PRINT"DECODIFICANDO. 

240 FOR 1I=1 TO NL 

250 L$=FS(I) :GOSUB 870 

260 T=T+1:IF T<10 THEN 290 

270 PRINT: INPUT" PRESSIONE <ENTE 


R>";XxS 

280 T=0 

290 NEXT I 

300 STOP 

B60 REM --- DECODIFICACAO 
870 FOR J=1 TO LEN(LS) 
880 C=ASC(MIDS(LS,J,1)) 
920 PRINT MIDS(KS,C,1); 
940 NEXT J 

950 PRINT:RETURN 


230 LET nl=I:LET t=0 

235 PRINT "TOTAL: ";nc; "CARACT 
ERES”: PRINT"DECODIFICANDO. . 

240 FOR i=1 TO nl 

250 LET L$=fS(i) : GOSUB 870 
260 LET t=t+1:IF t<10 THEN GOTO 
290 


270 PRINT: INPUT "PRESSIONE <ENT 


ER>";x5 

280 LET t=0 

290 NEXT à 

300 STOP 

860 REM --- DECODIFICACAO 
870 FOR 5=1 TO LEN LS 
880 LET c=ASC LS(5 TO 5) 
920 PRINT KS(c TO c); 

940 NEXT 5 

950 PRINT:RETURN 


A rotina de decodificação (da linha 
870 à 950) extrai cada caractere do tex- 
to codificado e troca seu código pelo ca- 
ractere encontrado na mesma posição, 
na chave de codificação KS. 


AURA [E 


Ainda não ganhamos espaço na me- 
mória: apesar de termos reduzido o con- 
junto de caracteres usados, eles conti- 
nuam sendo armazenados em um byte 
(desperdiçando três bits em cada byte). 

Para comprimir o texto de fato, pre- 
cisamos utilizar os bits que estão sobran- 
do, no seguinte esquema: 


1º byte - 5 bits do 1º caractere 
3 bits do 2º caractere 
2 bits do 2º caractere 
5 bits do 3º caractere 
1 do 4º caractere 
3º byte - 4 do 4º caractere 

4 bits do 5º caractere 


2º byte - 





e assim por diante. 


Esta tarefa de manipulação de bits 
pode ser cumprida sem grande dificul- 
dade em linguagem BASIC — por meio 
dos operadores lógicos AND, OR e 
NOT —, porém, é lenta demais. Na ver- 
dade, o ideal seria realizá-la através de 
uma sub-rotina USR em linguagem de 
máquina, mas não vamos fazê-lo aqui, 
para não tornar muito complicada a 
programação do jogo de aventura. 

Optamos por um outro método de 
compressão, também baseado em ma- 
nipulação de bits, mas que pode ser fa- 
cilmente executado em BASIC. Esse mé- 
todo é bem mais eficaz que a restrição 
do conjunto de caracteres, pois garante 
uma redução do texto de cerca de 45%. 

A programação, aqui, é mais simples, 
pois os bits não são manipulados indi- 
vidualmente, mas em grupos de quatro 
(meio byte ou nibble, em inglês). Com 
uma única expressão aritmético-lógica 
simples podemos ter acesso ou escrever 
nos nibbles individuais. 


Rate RS 


Como sabemos, cada idioma utiliza 
determinadas letras com maior fregiên- 
cia do que outras. A técnica que esco- 
lhemos fundamenta-se exatamente na 
fregiiência do emprego das letras, Na 
língua portuguesa, por exemplo, cator- 
ze letras — A, S, E, D, R,0,1,U,N, 
C,M, T,P e L — representam cerca de 
90% do total de um texto, juntamente 
com o espaço em branco. 

Usaremos um código baseado apenas 
em quatro bits (15 é o maior número de- 
cimal que se pode representar com qua- 
tro bits, ou um nibble). Com isso, ob- 
teremos uma compressão de 50% do 
texto, o que é, teoricamente, o máximo 
que se pode conseguir. E será fácil fa- 
zer o programa, porque caberão sempre 
dois caracteres por byte. 

Mas o que fazer com as outras letras? 
Mesmo sendo usadas com uma freqiiên- 
cia muito baixa, elas são essenciais pa- 
ra compressão do texto. Precisam, por 
isso, estar presentes. 

A solução também é espantosamen- 
te simples: podemos usar essas letras 
com seu código ASCII normal, de oito 
bits. No processo de codificação, toda 
vez que o programa encontrar uma le- 
tra não incluída no grupo das mais fre- 
quentes, ele atribuirá um código O a ela. 
Dessa maneira, indica-se ao programa 
decodificador que o que vem a seguir é 
um código ASCII de oito bits. 

Uma letra incomum usa, assim, três 
nibbles (oito do código, mais quatro da 
baliza 0), ou um byte e meio: este é o 
preço que se paga por codificar a maio- 














ria das letras com quatro bits. A eficiên- 
cia da compressão será menor, mas não 
muito. Façamos as contas, tomando um 
conjunto de cem caracteres: 


90 têm códigos de 4 bits = 
10 têm códigos de 12 bits + 


TOTAL = 60 bytes 


45 bytes 
15 bytes 


Conseguimos, teoricamente, uma 
compressão de 40%. Na realidade, ela 
será um pouco menor, dependendo do 
texto, Ainda assim, o resultado é bem 
melhor do que o obtido por uma com- 
pressão com códigos de seis bits. 

Para verificar com que fregiiência 
são empregadas as letras presentes em 
nosso texto-teste, digite o programa que 
se segue, acrescente as linhas DATA ao 
final e rode-o: 


am mal oá [ci] is 


DIM F(60),C(60) 
o NT=0 
40 FOR I=1 TO 60 
50 F(I)=0:C(I)=I 
60 NEXT I 
65 PRINT "ANALISANDO...” 
70 READ LS:IF LS="*" THEN GOTO 


BO GOSUB 410:GOTO 70 

85 PRINT "ORDENANDO...” 

90 GOSUB 470:GOSUB 560 
STOP 

REM --- CONTAGEM 

FOR I=1 TO LEN(LS) 
NT=NT+1 

J=ASC (MIDS (L$,1,1))-31 
F(J)=F(J)+1:NEXT T 
RETURN 

REM --- ORDENACAO 
N=60 

FL=0 

N=N-1:FOR I=1 TO N 

IF F(C(I))=>F(C(I+1)) THEN 


K=C(I):C(I)=C(I+1):C(I+1)=X 
:FL=l 
520 NEXT 1 
530 IF FL=0 OR N=2 THEN RETURN 
540 GOTO 480 
550 REM --- IMPRESSAO 
560 PRINT 
570 PRINT "FREQUENCIA SIMPLES 
DOS CARACTERES NO TEXTO”: PRINT 
580 FOR J=1 TO 60 STEP 3 
590 FOR I=J TO J+2 
600 IF F(C(1))=0 THEN GOTO 640 
610 PRINT CHRS(C(1)+31)1" "1 
F(C(I)), 
620 NEXT I:PRINT 
630 NEXT J 
640 PRINT:PRINT"TOTAL : 
CARACTERES.” 
650 RETURN 

Coloque um comando CLEAR 3000 
na linha 15, para os micros pertencen- 
tes às linhas TRS-80 e TRS-Color. 


NTE” 


15 DIM £(60) ,c(60) 

30 LET nt=0 

40 FOR i=1 TO 60 

50 LET f(i)=0:LET c(i)=1 

60 NEXT 1 

65 PRINT "ANALISANDO..." 

70 READ LS:IF L$="*" THEN GOTO 


80 GOSUB 410:GOTO 70 

85 PRINT "ORDENANDO.. . 

90 GOSUB 470:GOSUB 560 

STOP 

REM CONTAGEM 

FOR i=1 TO LEN LS 

LET ntent+1 

LET j=ASC(LS(i to 1))-31 
LET €(3)=£(3)+1:NEXT à 
RETURN 

REM 
LET n=60 

LET £1=0 

LET n=n-1:FOR i=1 TO n 

500 IF f(c(1))=>f(c(i+1)) THEN 
Goro 520 

510 LET x=c(i):LET c(i)=c(i+1) 
2 c(i+1)=x LET fl=1 








ORDENACAO 





520 NEXT à 

530 IF £1=0 OR n=2 THEN RETURN 
540 GOTO 480 

550 REM - IMPRESSAO 

560 PRINT 

570 PRINT "FREQUENCIA SIMPLES 

DOS CARACTERES NO TEXTO” :PRINT 
580 FOR 5=1 TO 60 STEP 3 

590 FOR i=j TO 5+2 

600 IF f(c(i))=0 THEN GOTO 640 
610 PRINT CHR$(c(i)+31);" "; 

f(c(i)), 

620 NEXT 1:PRINT 

630 NEXT 5 


640 PRINT:PRINT"TOTAL: 
CARACTERES.” 
650 RETURN 

As linhas 15 a 60 definem e iniciali- 
zam dois conjuntos: F, que conterá a 
fregiiência de cada caractere presente no 
texto, e C, um conjunto-índice que será 
utilizado pela rotina de ordenação (no 
começo € contém os números inteiros 
de | a 60, em ordem crescente). A va- 
riável NT servirá para contar o número 
total de caracteres no texto. 

O laço que abrange as linhas 70 e 80 
lê as linhas de texto original em DATA, 
parando se encontrar um asterisco. Ca- 
so contrário, chama a rotina 410, que 
tem por objetivo executar a contagem, 
Essa rotina simplesmente acha o códi- 
go ASCII de cada um dos caracteres 
presentes na linha de texto, diminui o 
valor 31 dos mesmos, e incrementa o ele- 
mento de F correspondente. 

Em seguida, as sub-rotinas 470 e 560 
(chamadas na linha 90 do programa) 
encarregam-se, respectivamente, de co- 
locar o conjunto € em ordem decrescen- 
te de fregiiência e mostrar o resultado 


"imti” 


na tela. A rotina de ordenação usa o mé- 
todo tipo bolha, que examinamos no ar- 
tigo da página 468. A rotina de exibi- 
ção mostra apenas os caracteres com 
freqiiência maior do que O. 

Se tudo tiver corrido bem, você ob- 
terá uma tabela com estes dados: 


192 A 147 E 129 
O LUI s 87 R 84 
D 66 1 47 uv 4s 
N 43 c 40 M 39 
T 36 P 30 L 29 
+ 15 H 14 . 
v 12 q Ji B 9 
Fr 8 Rs oa 
E 3 | 2 é a 
R 2 z 2 sa 
A ad 
TOTAL: 1228 CARACTERES. 


Note que, como afirmamos anterior- 
mente, um conjunto de apenas catorze 
letras mais o espaço em branco respon- 
dem por 91,6% do texto (1125 ocorrên- 
cias em 1228 letras). O espaço em bran- 
co é o caractere mais frequente em qual- 
quer texto, por razões óbvias. 

Um segundo conjunto, formado por 
mais catorze caracteres, responde por 
8% do texto. Caberia a um terceiro con- 
junto abrigar os demais caracteres (a 
maioria dos quais não apareceu nenhu- 
ma vez neste texto, mas poderia cons- 
tar esporadicamente de outros). 

Vimos que, se usarmos apenas um 
conjunto de codificação com os quinze 
caracteres mais frequentes, teremos que 
colocar os restantes no texto sem codi- 
ficar, e cada um deles ocupará três nib- 
bles. Entretanto, podemos estender a 
idéia de um conjunto de quatro bits de 
código para dois ou mais conjuntos adi- 
cionais. Assim, a codificação de cada 
caractere constante do segundo conjun- 
to ocupará dois nibbles (um com o 0 e 
outro com o código propriamente dito); 
a codificação dos caracteres do terceiro 
conjunto ocupará três nibbles, e assim 
por diante, Vamos fazer as contas de no- 
vo, para o mesmo conjunto de cem ca- 
racteres: 





90 têm códigos de 4 bits = 45 bytes 
9 têm códigos de 8 bits = 9 bytes 
| tem código de 12 bits = 2 bytes 


TOTAL = 56 bytes 

Como você pode notar, conseguimos 
aumentar nossa eficiência teórica de 
compressão para 44% (o que represen- 
ta uma melhoria de 10% em relação ao 
esquema discutido anteriormente). 

Podemos agora desenvolver um pro- 
grama de codificação (acrescente as li- 
nhas DATA de teste ao final): 


ha 


10 DIM F$(50),K$(3) 

20 K$(1)=" AEOSRDIUNCMTPL” 
25 Ks(2) H.VGBF'Q:!-KZI” 
27 KS(3)="XWY;=/*7() st+” 

180 PRINT "CODIFICANDO...” 
190 RESTORE:I=0:NC=0:K=1 

200 READ LS:IF L3="*" THEN 230 
210 GOSUB 710:1=I+1:FS(I)=XS 
212 GOSUB 820 

215 NC=NC+LEN(XS) 

220 GOTO 200 

230 NL=I:T=0 

235 PRINT "TOTAL: " ; NC; 











"CARACTERES" 
STOP 


237 
700 
710 
720 
730 
740 





ACAO 
N=0:X3 : :LS=LS+" 
FOR J=1 TO LEN(LS) 
CS=MIDS(L$,J,1) 
P=INSTR(KS(K),C$) 

760 N=N+1:IF N=1 THEN B=P 

770 IF N=2 THEN N=0:B=B OR 
(16*P) : X$=XS+CHRS(B) 

775 IF P=0 THEN K=K+1:GOTO 740 
776 K=1 

780 NEXT J 

790 RETURN 





Coloque um comando CLEAR 3000 
na linha 10, para os micros pertencen- 
tes às linhas TRS-80 e TRS-Color. 


[JL] 


Para que o programa funcione nos 
microcomputadores Apple e TK-2000, 
substitua a rotina de codificação das li- 
nhas 710 a 790 por: 


700 
710 
720 
730 
735 
740 


REM --- CODIFICACAO 
N=0:X$="”:L$=LS+” 
FOR J=1 TO LEN(LS) 
CS=MIDS (L$,J,1) 

FOR P=1 TO LEN(KS(K)) 
IF MIDS(KS(K),P,1) = cs 
THEN 760 

NEXT P 

N=N+1:IF N=1 THEN B=P 
IF N=2 THEN N=0:B=B OR 
(16*P) : XS=XS+CHRS (B) 
IF P=0 THEN K=K+1:GOTO 
K=l1 

NEXT J 

RETURN 


750 
760 
770 


775 
776 
780 
790 


10 DIM €3(50,64),k$(3) 

20 k$(1)=" AEOSRDIUNCMTPL” 

25 k$(2)=",H.UGBF'Q:!-KZJ” 

27 KS(3)="KWY;=/27 () t+" 

180 PRINT "CODIFICANDO...” 

190 RESTORE:i=0:nc=0:k=1 

200 READ LS:IF L$="*" THEN GOTO 
230 

210 GOSUB 710:LET i=i+1:LET 
EsS(i)=xs 


740 


212 GOSUB 820 

215 LET nc=nc+LEN x$ 
220 GoTo 200 

230 LET nl=I:LET t=0 
235 PRINT "TOTAL: ";nc ; 
"CARACTERES" 


237 STOP 

700 REM --- CODIFICACAO 
710 LET n=0:LET x$="":LET 
LS=L$+" — 


720 FOR j=1 TO LEN LS 

730 LET cS=L3(5 TO 5) 

735 FOR p=1 TO LEN kS(k) 

740 IF kS(K,p TO p) = c$ THEN 
GoTo 760 


750 NEXT p 
760 LET nen+1:IF n=1 THEN LET 
be=p 


770 IF n=2 THEN LET n=0:LET b=b 
OR (16*p) : LET x$=xS+CHRS b 
775 IF p=0 THEN LET k=k+1:GoTO 
740 

776 LET k=1 

780 NEXT 5 

790 RETURN 


As linhas 20 a 27 definem os três con- 
juntos de caracteres a serem usados. O 
primeiro conjunto reúne os quinze ca- 
racteres mais frequentes em um texto. 
Para simplificar, utilizaremos a mesma 
ordem encontrada no texto de teste. 
Mas, se quiséssemos obter um conjun- 
to padrão, que servisse igualmente bem 
para qualquer texto na língua portugue- 
sa, deveríamos analisar uma amostra 
muitas vezes mais extensa antes de de- 
finir a ordem dos caracteres. O segun- 





ze caracteres de maior fregiiência no tex- 
to e assim por diante. 

A seção do programa que abrange as 
linhas 200 a 220 lê o texto contido em 
DATA e chama a rotina de codificação, 
que tem início na linha 710. O texto co- 
dificado, devolvido a X$, é armazena- 
do no conjunto FS, para posterior uso 
na decodificação. 


do o 


Por ser um tanto complexa, a rotina 
de codificação exige uma explicação 
mais detalhada. Ela procura, no primei- 
ro conjunto de códigos (que está em 
KS(1)), cada um dos caracteres indivi- 
duais da linha de texto, extraídos e guar- 
dados em C$. Não encontrando ali de- 
terminado caractere, o apontador K é 
incrementado e a rotina passa a procu- 
rá-lo no segundo conjunto, e assim por 
diante. Todas as vezes que passa para 
outro conjunto de códigos, a rotina co- 
loca um código O na seqiiência de saí- 
da. Assim, um caractere encontrado no 
segundo conjunto vai ter um O seguido 
de seu código, e um caractere encontra- 


do no terceiro conjunto terá dois zeros 
antes de seu código. 

A cada dois códigos numéricos gera- 
dos (contados pela variável N), as linhas 
760 e 770 da rotina comprimem os dois 
nibbles em um byte, B, através da ex- 
pressão matemática da linha 770. Veja- 
mos um exemplo: 


decimal binário 
Iº nibble 14 00001110 
2º nibble 7 00000111 
Expressão: 14 OR (16*7) 
14 OR 112 


00001110 OR 01110000 
que é igual a 01111110 ou 126. 


Note que a multiplicação de um nib- 
ble por 16 tem o efeito de deslocá-lo da 
parte baixa para a parte alta do byte. 
Uma operação OR soma o primeiro nib- 
ble (não deslocado) com o segundo (des- 
locado); o resultado é um byte com am- 
bos os nibbles em cada metade. 

Se você quiser acompanhar a geração 
de códigos comprimidos, acrescente as 
linhas que se seguem e rode o progra- 
ma novamente. 


TT! 


212 GOSUB 820 

800 REM --- LISTAGEM 

B20 FOR N=1 TO LEN(XS) 

830 PRINT ASC(MIDS(XS,N,1)); 
840 NEXT N:PRINT 

850 RETURN 


212 
800 
820 
830 


GOSUB 820 

REM LISTAGEM 

FOR n=1 TO LEN x$ 
PRINT ASC (XS(n TO n)): 
840 NEXT n:PRINT 

850 RETURN 


Para obter o texto original de volta, 
basta que você acrescente a rotina de de- 
codificação: 


am malá io) sy 


237 PRINT "DECODIFICANDO...” 
240 FOR I=1 TO NL 

250 LS$=FS(I):GOSUB 870 

260 T=T+1..7 T<15 THEN GOTO 290 
270 PRINT:INPUT "PRESSIONE <EN 





TER>";XS 

280 T=0 

290 NEXT 1 

300 STOP 

860 REM --- DECODIFICACAO 

870 N=0:K=1:FOR J=1 TO LEN(LS) 
880 C=ASC(MIDS(LS,J,1)) 

890 C(1)=C AND 15:C(2)=(C AND 


240)/16 





FOR L=1 TO 2 
910 IF C(L)=0 THEN K=K+1:GOTO 
930 
920 PRINT MIDS(KS(K),C(L),1): 
k=1 
NEXT L 
NEXT J 


PRINT:RETURN 


PRINT "DECODIFICANDO...” 
FOR 1=1 TO nl 

LET LS=fS(i):GOSUB 870 

LET t=t+1:IF t<15 THEN GOTO 


940 


237 
240 
250 
260 
290 
270 
ER> 
280 
290 
300 


PRINT: INPUT "PRESSIONE <ENT 
";xs 

LET t=0 

NEXT à 

STOP 

860 REM --- DECODIFICACAO 

870 LET n=0:LET k=1:FOR 3=1 TO 
LEN L$ 

880 LET c=ASC(LS(3 TO 3)) 

890 LET c(1l)=c AND 15:c(2)=(c 
AND 240)/16 

900 FOR L=1 TO 2 

910 IF c(L)=0 THEN LET 
k=k+1:GOTO 930 

920 PRINT KS(K,c(L) to c(L)); 
925 LET k=1 

930 NEXT L 

940 NEXT J 

950 PRINT:RETURN 


A sub-rotina responsável pela deco- 
dificação funciona de maneira exatamen- 
te inversa à rotina de codificação, que 
acabamos de examinar. 

A variável C contém o código com- 
primido, extraído de cada um dos carac- 
teres da linha codificada. A partir des- 
ta obtêm-se os dois nibbles, que são ar- 
mazenados respectivamente em C(1) e 
C(2), na expressão da linha 890, e exa- 
minados pelo laço das linhas 900 a 930. 
Se um dos nibbles é igual a 0, o aponta- 
dor K, que inicialmente se encontrava 
em 1, é incrementado, passando a indi- 
car o próximo conjunto de códigos. Fi- 
nalmente, a linha 920 imprime na tela 
o caractere decodificado. 

Tomemos o exemplo anterior para 
ver como funciona a decodificação: 


byte = OLI110 = 126 


1º nibble 126 AND 15 
OHIO AND 00001111 
00001110 
ou: 14 em decimal 
2º nibble (126 AND 240)/16 
ou: 01111110 AND 11110000 
ou: 01110000 
ou: 112/16 = 7 (00000111) 


Observe que a divisão por 16 tem o 
efeito contrário da multiplicação por 16 
— ou seja, desloca o nibble alto para o 
nibble baixo. 


[e dada 


Obteremos os seguintes resultados 
com nosso texto de teste: depois de co- 
dificado, ele foi reduzido de 1228 para 
674 caracteres, ou seja, houve uma re- 
dução de 45%. Pouquíssimos métodos 
de compressão conseguem tão alto grau 
de eficiência. Na realidade, se contar- 
mos o número total de bytes gastos pe- 
lo programa e pela tabela de códigos K$, 
a redução global de espaço vai ser bem 
menor. Devemos ter em mente, porém, 
que a utilização de um algoritmo de 
compressão como este só faz sentido 
quando o texto a ser comprimido é ex- 
tenso. Assim, o acréscimo de memória 
necessário para o programa e as tabelas 
é insignificante se comparado aos ga- 
nhos obtidos pela compressão. 


LIÇÕES DA CRIPTOGRAFIA 


O compressor de textos desenvolvi- 
do aqui toma emprestado alguns concei- 
tos da criptografia, que é a ciência das 
cifras e dos códigos (veja artigos das pá- 
ginas 888 e 1091). Ao tentar decifrar um 
código secreto, o criptógrafo analisa, 
antes de mais nada, as frequências dos 
caracteres presentes no texto cifrado. 
Estas podem dizer muito sobre a fre- 
qiiência das letras usadas no idioma 
original. 

O uso das letras mais frequent 
alfabeto no primeiro conjunto de 
ficação assegura a obtenção do m 
de compressão possível. Se esse conjun- 
to incluir caracteres que aparecem com 
menor fregiência, omitindo outros mais 
utilizados, a compressão perderá muito 
em eficiência, pois muitos códigos O se- 
rão gerados. 


COMBINA [atas 


Normalmente, um programa com- 
pressor baseado nessa técnica deveria ser 
independente do texto que se deseja 
comprimir — ou seja, teria nos conjun- 
tos K$ uma segiiência padronizada de 
caracteres mais frequentes, identificados 
pela análise de uma grande amostra da 
língua portuguesa. 

Entretanto, um texto de aventura 
apresenta algumas peculiaridades, in- 
cluindo termos estranhos, como Aard- 
vark, Niptu, Nordham etc., que não 


pertencem, evidentemente, à nossa lín- 
gua. Por isso, verificou-se uma frequên- 
cia atípica da letra K. 
Como precisamos codi- 
ficar o texto de uma aven- 
tura apenas uma vez, nada 
impede que combinemos 
os programas de análise 
de fregiências e de codifi- 41 
cação em um só, para 
otimizar o processo. Os 
programas anteriores fo- 
ram escritos com nú- 
meros diferentes de li- 
nhas, de modo a faci- 
litar essa integração. 
Para proceder à fusão 
dos dois programas 
faça as modificações: 


mana 08 


565 K=1 

615 KS(K)=KS(K)+ 
CHRS(C(1)+31) 

616 IF LEN(KS(K))=15 
THEN K=K+1 


e suprima as linhas 20 a 27. 


565 LET k=1 

615 LET k$(k)=kS (k) +CHRS (c 
(1)+31) 

616 IF LEN(kS(k))=15 THEN LET 
k=k+1 


e suprima as linhas 20 a 27. 


[RAS 


Observe que algumas linhas foram 
acrescentadas à rotina de impressão dos 
resultados da análise de frequência. Elas 
se encarregam de construir automatica- 
mente os elementos do conjunto K$, 
com a vantagem de criar tantos elemen- 
tos quantos se façam necessários (se fo- 
rem mais de três, é conveniente alterar 
a dimensão deste conjunto na linha 10 
do programa principal). Por isso, as li- 
nhas 20 a 27, que contêm a definição fi- 
xa do conteúdo do conjunto K$, devem 
ser retiradas 

Tente codificar outros textos com es- 
se programa, e veja como a taxa de com- 
pressão se mantém quase a mesma. Es- 
ta é uma característica desejável de qual- 
quer sistema de compressão. 

No próximo artigo sobre este tema, 
investigaremos outras alternativas util 
zadas na compressão de textos, particu- 
larmente o Método Chinês, por meio do 
qual é possível obter 60% de redução em 
uma aventura. 





el 










Para o programador ambicioso, existe 
um mapa de valor inestimável: os 
endereços das variáveis do sistema. 
Com PEEK e POKE, você terá acesso 
a ele e obterá maravilhas com o micro. 









O BASIC do Spectrum possui um 
grande número de comandos relativa- 
mente poderosos para trabalho com a 
tela, teclado, memória etc. Apesar dis- 
so, muitas propriedades da máquina e 
de seu sistema operacional ficam fora do 
alcance do programador que se restrin- 
ge apenas a esses comandos. 

Usando a fun: PEEK para leitura 
direta de uma locação absoluta de me- 
mória, e o comando POKE para modi 
ficar seu conteúdo, você poderá rede: 
nir muitos parâmetros de funcionamen- 
to do sistema operacional e do interpre- 
tador BASIC Spectrum. 

Mas, se o ma operacional e o in- 
terpretador e: gravados permanente- 
mente na memória ROM da máquina, 
como é possível alterar o seu funciona- 
mento? Quando o computador é ligado, 
o interpretador BASIC especifica uma 
área de trabalho na RAM, que vai da 
locação 23522 à 23732. Uma área adi- 
cional — de 23734 à 23791 — é criada, 
se o computador for conectado a uma 
interface universal de entrada/saída. 

Cada locação nessas áreas armazena 
um valor numérico, usado pelo sistema 
operacional e pelo interpretador durante 
a execução de progra: Essas loca- 
ções são chamadas variáveis do sistema 
e recebem um nome simbólico, para fins 
de referência. Podem ser: 

egistros intermediários de operações, 
tais como: código da última tecla pres- 
sionada (LASTK), último código de 
ro encontrado (ERRNR) etc; 

- parâmetros de operação de comandos: 
duração do bipe (RASP), atraso entre 
repetições de uma tecla (REPPER), cor 
da moldura (BORDCR) etc; 

- indicadores: próxima linha a ser exe- 
cutada (NEWPPC), coordenada X do 
cursor de alta resolução (COORDX), 
número de linha da posição corrente de 
PRINT (SPOSLN) etc; 

- apontadores, que contêm outros ende- 










































OS SEGREDOS 
DO SPECTRUM (2) 


VARIÁVEIS DO SISTEMA 
TIPOS DE VARIÁVEL 
COMO MODIFICAR 
APONTADORES E CONTADORES 
ENDEREÇOS ÚTEIS 





VARIÁVEIS DO SISTEMA 


Utilização 


Última tecla pressionada 

Tempo de pressão a uma tecla para repetir 
Atraso entre repetições de uma tecla 
Duração do som de alarma 

Duração do “clique” de teclado 

Último código de erro, menos 1 

Modo do cursor (K, L, C, E ou G) 

Próxima linha a ser executada 


Próximo comando da linha a ser executada 
Número da linha com o cursor do programa 
Endereço do início da área de variáveis 
Endereço do início do programa BASIC 
Endereço da próxima linha a executar 
Endereço do buffer de entrada em BASIC 
Endereço do cursor 

Indicador de minúsculas/maiúsculas 
Número de linhas na zona inferior da tela 





Nome Endereço Nº de 
bytes 
LASTK 23560 1 
REPDEL 23561 4 
REPPER 23562 j 
RASP 23608 1 
PIP 23609 1 
ERRNR 23610 1 
MODE 23617 1 
NEWPPC 23618 2 
NSPPC 23620 2 
EPPC 23625 2 
VARS 23627 2 
PROG 23635 2 
NXTLIN 23637 2 
ELINE 23641 2 
KCUR 23643 2 
FLAGS2 23658 1 
DFSZ 23659 1 
SEED 23670 2 
FRAMES 23672 3 
COORDX 23677 q 
COORDY 23678 1 
PPOSN 23679 1 
FREE 23681 1 
SPOSN 23688 1 
SPOSLN 23689 1 
SCRCT 23692 1 
RAMTOP 23730 2 
PRAMT 23732 2 


Semente do gerador RAND 

Contador de quadros de TV 

Coordenada X do último ponto gráfico 
Coordenada Y do último ponto gráfico 
Coluna de impressão na impressora 

Byte livre para o usuário, não afetado por NEW 
Número de coluna da última posição PRINT 
Número da linha da última posição PRINT 
Contador de linhas para o scroll 

Topo da memória livre para BASIC 

Topo da memória RAM (física) 








reços de memória: início de um progra- 
ma BASIC (PROG), endereço do cur- 
sor na RAM da tela (KCUR) etc; 
- parâmetros de definição do hardware: 
topo da memória RAM (PRAMT) etc; 
- contadores e acumuladores: contador 
de quadros de TV (FRAMES), espaço 
ocupado por cadeias (STRLEN) etc. 
Algumas variáveis do sistema ocu- 
pam um byte, outras, dois. Quando 
ocupam dois bytes, o número de dezes- 
seis bits nelas armazenado segue o es- 
quema de dupla byte mais significati- 
vo/byte menos significativo. 


SANA 


O acesso a esses endereços permite- 
nos, entre outras coisas, copiar determi- 
nado valor em uma variável do sistema, 
de modo a informar o programa sobre 
algum parâmetro de interesse para o 
processamento subsequente. Suponha- 
mos que você queira dimensionar uma 


tabela em função do máximo de memó- 
ria disponível no computador. Para is- 
so, use o número de dezesseis bits arma- 
zenado no par 23730-23731, que é a va- 
riável de sistema RAMTOP. Ela indicará 
o topo máximo de memória RAM dis- 
ponível para um programa em BASIC: 


LET MAX = PEEK(23730) +PEEK( 
23731)*256 


Podemos também modificar um va- 
lor por meio de um POKE, fazendo com 
que dado comando seja executado de 
maneira diferente. Por exemplo: a loca- 
ção 23692 corresponde à variável do 
sistema SCRCT, que é o contador de 
linhas usado pelo sistema para pergun- 
tar scroll? quando o cursor de texto 
chega ao fim da tela. Com um POKE 
23692,255 a cada número de linha, o 
computador nunca fará essa pergunta. 

No quadro acima, listamos algumas 
das variáveis de sistema mais importan- 
tes para o Spectrum e compatíveis. Use 
a sua imaginação! 
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LOGO: ALÉM 
DIANTE 


Doe Ro efe RES CTT] 
ETR Led ue e CL 
EA ELE CIR 
OCA e CT UT 
EST R Ro cj CRU CIA 


Neste terceiro e último artigo da sé- 
rie sobre programação LOGO, exami- 
naremos as características 


fa EEE Na realidade, segui- 
mos o caminho inverso do que é usual 
no aprendizado de outras linguagens, já 
que abordamos em primeiro lugar os co- 
mandos gráficos. Mas esta é a maneira 
mais fácil de entrar em contato com o 
OEA oe o o tg ti E To: (o Da ») LAT DJS 
oo LCA Te Re get DANE CR E ee UT 
por causa da popularidade de seus re- 
cursos gráficos, muita gente pensa que 
o LOGO é apenas uma “linguagem grá- 
ES APR o ate Mo vu 





[J EXPRESSÕES MATEMÁTICAS 





[ VARIÁVEIS E NÚMEROS 
[| NOMES E SENTENÇAS 
m O QUE SÃO LISTAS 
m COMANDOS PARA LISTAS 





Nada mais longe da verdade. Como 
o LISP, seu antecessor, o LOGO foi 
projetado de modo a simplificar a ma- 
nipulação de palavras e listas de pala- 
vras e frases. Essa característica não im- 
pede, contudo, que complexos progra- 
mas de Inteligência Artificial sejam de- 
senvolvidos com a ajuda do LOGO. 

Ao estudar linguagens imperativas, 
inclusive o BASIC, começamos por ana- 
lisar seus elementos básicos, tais como 
as formas de representação de dados 









































O que é um micromundo LOGO? 

Um micromundo é um conjunto co- 
nexo de procedimentos, escritos em 
LOGO, que estruturam uma determina- 
da situação ou ambiente de resolução 
de problemas cognitivos. 

Esses procedimentos podem ser 
combinados em outros procedimentos, 
de forma cada vez mais complexa, im 
tando, assim, o desenvolvimento natu- 
ral do conhecimento da criança sobre 
uma parte do mundo 

Exemplificando: podemos construir 
um micromundo em que a tela é a gaio- 
la de um coelhinho, com lugares para 
ele brincar, dormir, comer etc. Usando 
o LOGO, a criança e o professor elabo: 
ram vários procedimentos para dese- 
nhar o ambiente e seus objetos, fazer 
o coelhinho se movimentar, levá-lo até 
a área de dormir etc., de maneira pro: 
gressiva e hierárquica. Esse micromun- 
do pode ser tão complexo e completo 
quanto se queira 



























(constantes e variáveis), os comandos de 
impressão etc. É o que faremos agora 
com a linguagem LOGO. 

Como nos artigos anteriores, apre- 
sentaremos sempre duas versões dos 
programas: a primeira, identificada pelo 
logotipo Apple, corresponde ao padrão 
MIT LOGO, em inglês, adotado univer- 
salmente com poucas variações; a segun- 
da, identificada pelo logotipo do MSX, 
corresponde à versão nacional, chama- 
da BRASLOGO, desenvolvida pela Uni- 
camp para a Itautec e adotada por ou- 
tros fabricantes. Ao final do artigo, da- 
mos a tradução dos comandos usados 
para o MLOGO, versão nacional mui- 
to difundida, destinada ao Apple. 


MATEMÁTICA EM LOGO 


Como qualquer linguagem de progra- 
mação que se preze, o LOGO dispõe de 
amplos recursos destinados a cálculos 
matemáticos com diferentes níveis de 
complexidade; não se restringe às qua- 
tro operações aritméticas. 

O LOGO não faz distinção entre nú- 
meros inteiros e reais (números que po- 
dem ser fracionários, como 1.2, 3.14156 
etc.). Em alguns interpretadores, entre- 
tanto, a falta do ponto decimal nos ar- 








gumentos de uma operação força um re- 
sultado inteiro. 

Os operadores matemáticos são 
iguais aos da linguagem BASIC: soma 
(+), subtração (—), divisão (/), multi- 
plicação (*), parênteses etc. A ordem de 
execução das operações também é a 
mesma. Usando, por exemplo, o co- 
mando PRINT (ESCREVA, na versão 
em português), com função idêntica à 
que tem no BASIC, podemos fazer: 


[é] 


PRINT 


hay 


ESCREVA 2 + 2*3 


2+ 2*3 


O resultado da operação será igual a 
8, pois, nesta expressão, efetua-se a mul- 
tiplicação em primeiro lugar. 

As expressões matemáticas podem ser 
colocadas em outros comandos do LO- 
GO, como no desenho de gráficos: 


[ek] 


FORWARD 


ay 


PARAFRENTE 





(10 + 120)/3.14 





(10 + 120)/3.14 


Os procedimentos também compor- 
tam expressões matemáticas: 


[é] 


To PIZ 
PRINT 3.14156*2 
END 


ay 


APRENDA PIZ 
ESCREVA 3.14156*2 
FIM 


Feito isso, sempre que digitarmos o 
comando PIZ2 pelo teclado, obteremos 
a seguinte resposta: 


2.28312 


Uma expressão pode utilizar variá- 
veis. Como você deve estar lembrado, 
as variáveis recebem nomes, que podem 
ser de qualquer comprimento, e são 
identificadas por dois pontos. Assim, 
um procedimento destinado a mostrar 
o cubo de um número qualquer seria es- 
crito da seguinte maneira: 


[é] 


TO CUBO : NUMERO 
PRINT : NUMERO*: NUMERO* : NUMERO 
END 


Pay 


APRENDA CUBO : NUMERO 
ESCREVA : NUMERO* : NUMERO* : NUMERO 
FIM 


O procedimento criado exige um ar- 
gumento numérico de entrada, e respon- 
de imprimindo na tela o cubo do mesmo: 


cuBo 3 
27 

cuBo 10 
1000 





Eis aqui outro procedimento, que ca 
cula a média de dois números: 


[66] 


TO MEDIA :N1 
PRINT (:N1 + 
END 


:N2 
:N2)/2 














































4 LINGUAGENS 4 





APRENDA MEDIA :N1 :N2 
ESCREVA (:N1I + :N2)/2 
FIM 


Esse procedimento requer a presen 
ça de dois argumentos 


MEDIA 2 4 


MEDIA 1 2 


Em alguns interpretadores LOGO, a 
resposta ao segundo comando poderá 
ser igual a 1, ou seja, o resultado será 
mostrado em forma inteira, pois os ar- 
gumentos de entrada estavam expressos 
desse modo. Se isso ocorrer, podemos 
forçar uma operação com resultados 
fracionários, escrevendo 


MEDIA 1.0 2.0 


Não se esqueça de colocar os dois ar 
gumentos para o procedimento MEDIA 
Caso contrário, o interpretador reclama 
rá, exibindo uma mensagem de erro 
Observe que, em todas as expressões 
aritméticas examinadas, o símbolo da 





operação matemática a ser realizada 
aparece entre os argumentos da opera 
ção (por exemplo, 2+2). Essa notação, 
chamada infixa, é a mais usada em lin- 
guagens imperativas derivadas do FOR- 
TRAN. Mas existem dois outros tipos de 
nota: a sufixa, ou notação polaca in- 
versa (RPN), que é usada em linguagens 
como o FORTH (a mesma operação aci- 
ma seria escrita 22 +), e a prefixa, que 
também é aceita pela linguagem LOGO. 
Nesse tipo de notação, o comando pre- 
cede os argumentos que usa. 

Para realizar operações prefixas no 
LOGO, empregam-se comandos já exis- 
tentes no interpretador. Por exemplo. 















SUM 6 7 
DIVIDE 3 1.2 
PRODUCT 3 4 

Em alguns interpretadores LOGO, 
esses comandos recebem nomes diferen- 
tes, como QUOTIENT em vez de DIVI- 
DE, ou MULTIPLY em vez de PRO- 
DUCT. Pode acontecer, também, que 
o interpretador não contenha o proce- 






dimento SUBTRACT. Nesse caso, bas- 
ta usar SUM, com um número negativo. 


SOMA 6 7 
QUOCIENTE 3 1.2 
PRODUTO 3 4 


Se um desses comandos não existir no 
interpretador LOGO que está usando, 
deverá fazê-lo APRENDER o novo pro- 
cedimento. 

Note que é possível utilizar funções 
dentro de funções, como em: 


DIVIDE SUM 





OCIENTE SOMA 3 2 SOMA 4 5 





que corresponde à notação infixa 


PRINT (3+2)/(4+5) 





Não tente fazer o mesmo, porém, 
com os procedimentos CUBO e ME- 
DIA, desenvolvidos anteriormente, pois 
eles apenas imprimem os respectivos re- 
sultados, não tendo meios de “'passá- 
los”* a uma outra função. Experimen- 
te, por exemplo, digitar a seguinte ex- 
pressão para ver o que acontece: 


CUBO MEDIA 3.4 7.88 


Para retornar um resultado, o proce- 
dimento precisa incluí-lo na lista de va- 
riáveis na chamada. Uma alternativa 
mais simples consiste em usar o coman- 
do OUTPUT (ou ENVIE, na versão pa- 
ra a língua portuguesa): 


[é] 


TO MEDIA :N1 :NZ 
OUTPUT (:N1 + :N2)/2 
END 


hu 


APRENDA MEDIA :N1 :NZ2 
ENVIE (:N1 + :N2)/2 
FIM 


Agora, você poderá recorrer ao pro- 


cedimento MEDIA como argumento de 
outro procedimento. 


O SA UU 


O LOGO possui várias funções ma- 
temáticas que facilitam o cálculo de ex- 
pressões mais complexas — algébricas, 
trigonométricas etc. 


[é] 


REMAINDER Resto de uma divisão 


ROUND Arredondamento 
ABS Absoluto 

INT Inteiro 

SQRT Raiz quadrada 
SIN Seno 

cos Co-seno 
RESTO Resto de uma divisão 
INTEIRO Inteiro 

RAIZQ Raiz quadrada 
SENO Seno 

cos Co-seno 


Só alguns interpretadores têm o con- 
junto completo dessas funções. 

O LOGO conta ainda com um gera- 
dor de números aleatórios, útil em uma 
série de aplicações, inclusive jogos. 


Eis um programa que simula dez lan- 
çamentos de um dado: 


[é] 


TO DADOS 
REPEAT 6 [PRINT RANDOM 6] 
END 


sy 


TO DADOS 
REPITA 6 [ESCREVA SORTEIEATE 6] 
FIM 





Para inicializar uma sequência alea- 
tória, utiliza-se o comando RANDO- 
MIZE (REPRODUZA, na versão 
BRASLOGO). 


TVL 


É possível especificar palavras (cons- 
tantes alfanuméricas) em LOGO, iden- 
tificando-as com o serial de aspas. Se 
quiser, por exemplo, imprimir no vídeo 
a palavra COMPUTADOR, digite: 


[é] 


PRINT 


hu 


ESCREVA 


"COMPUTADOR 


"COMPUTADOR 


Note que não se fecham as aspas, co- 
mo no BASIC. Se você se esquecer de 
colocar as aspas antes da palavra, a má- 
quina entenderá que COMPUTADOR é 
o nome de um número ou de procedimen- 
to criado anteriormente; não o encontran- 
do, exibirá uma mensagem de erro. 

Como o comando de impressão acei- 
ta apenas um argumento, as formas que 
se seguem também são incorretas: 


[é] 


PRINT 
PRINT 


a] 


ESCREVA "BOM DIA 
ESCREVA "BOM "DIA 


"BOM DIA 
"BOM "DIA 


No primeiro caso, o interpretador 
LOGO informará que ainda não conhe- 
ce DIA. No segundo, dirá que não sabe 
o que fazer com “DIA (ou, dependen- 








TRADUÇÃO PARA O MLOGO 
Os comandos do MLOGO, para o 
Apple, correspondentes aos comandos 
do BRASLOGO deste artigo, são: 
BRASLOGO MLOGO 
ESCREVA MOSTRAR 
ATRIBUA FACA 
COLOQUE — 
SOMA SOME 
PRODUTO PRODUTO 
QUOCIENTE QuUoC 
RESTO RESTO 
RAIZO RaD 
INTEIRO INT 
-— APROX 
REPRODUZA RESORTEIE 
SORTEIEATÉ  SORTEIE 
SEN SEN 
cos cos 
ARCTAN ATAN 
PALAVRA PALAVRA 
SENTENÇA SENTENÇA 
PRIMEIRO PRIMEIRO 
SEMPRIMEIRO SEMPRIMEIRO 
ÚLTIMO ULTIMO 
SEMULTIMO SEMULTIMO 
ENVIE SAIDA 





do do computador, que há um argumen- 
to a mais). É importante lembrar que 
um espaço em branco sempre indica, em 
linguagem LOGO, o fim de uma pala- 
vra, € que não podemos colocar mais de 
uma palavra após um sinal de aspas. 
Para imprimir duas palavras usando 
um mesmo comando, precisamos antes 
juntá-las em um único argumento. Exis- 
te um comando primitivo que faz isso: 


Lá] 


PRINT WORD "BOM "DIA 


Va] 


ESCREVA PALAVRA "BOM "DIA 


O comando WORD (ou PALAVRA) 
toma dois argumentos — que são letras 
ou palavras precedidas de aspas — e os 
reúne em uma só palavra. Esta é passa- 
da para o comando PRINT (ou ESCRE- 
VA), que então a coloca na tela. 

O LOGO possui diversos comandos 
extremamente poderosos para lidar com 
palavras. Para extrair letras de uma pa- 
lavra, utilizam-se estes comandos: 





FIRST - Extrai a primeira letra. 
LAST - Extrai a última letra. 
BUTFIRST - Extrai todas as letras,me- 
nos a primeira. 

BUTLAST - Extrai todas as letras, me- 
nos a última. 


Como exemplo, tente os comandos: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


FIRST "ABCD 

LAST "ABCD 

BUTFIRST "ABCD 

BUTLAST "ABCD 

FIRST BUTFIRST "ABCD 

PRINT LAST BUTLAST "ABCD 

PRINT WORD FIRST "ABCD LAST 
"ABCD 


Note como os comandos são enca- 
deados: FIRST BUTFIRST extrai a se- 
gunda letra da palavra ABCD; LAST 
BUTLAST extrai a penúltima palavra etc. 

O pequeno procedimento recursivo 
que mostramos a seguir é capaz de ex- 
trair todas as letras de uma palavra: 


TO LETRAS : PALAVRA 
IF : PALAVRA = ” THEN STOP 
PRINT FIRST : PALAVRA 





LETRAS BUTFIRST 
END 


: PALAVRA 


O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
nhum caractere. A chamada recursiva 
de LETRAS, na quarta linha, usa como 
argumento o BUTFIRST da palavra que 
foi entrada. Esta vai sendo reduzida até 
não ter mais nenhuma letra. A recursão 
só se encerra quando o teste executado 
pelo IF da segunda linha é verdadeiro. 
A palavra vazia é assinalada pelas aspas 
e um espaço em branco. 


PRIMEIRO - Extrai a primeira letra. 
ULTIMO - Extrai a última letra. 
SEMPRIMEIRO - Extrai todas as le- 
tras, menos a primeira. 
SEMULTIMO - Extrai todas as letras, 
menos a última. 


Como exemplo, tente os comandos: 


PRINT PRIMEIRO "ABCD 
PRINT ULTIMO "ABCD 
PRINT SEMPRIMEIRO "ABCD 
PRINT SEMULTIMO "ABCD 


PRINT PRIMEIRO SEMPRIMEIRO 
"ABCD 

PRINT ULTIMO SEMULTIMO 

PRINT PALAVRA PRIMEIRO 

ULTIMO "ABCD 







"ABCD 
"ABCD 

















Note como os comandos são enca- 
deados: PRIMEIRO SEMPRIMEIRO 
extrai a segunda letra da palavra ABCD; 
ULTIMO SEMULTIMO extrai a penúl- 
tima palavra e assim por diante. 

O pequeno procedimento recursivo 
mostrado a seguir é capaz de extrair to- 
das as letras de uma palavra: 


APRENDA LETRAS : PALAVRA 

SE : PALAVRA = ” ENTÃO [PARE] 
ESCREVA PRIMEIRO : PALAVRA 
LETRAS SEMPRIMEIRO :PALAVRA 
FIM 























O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
nhum caractere. A chamada recursiva 
de LETRAS, na quarta linha, usa como 
argumento o SEMPRIMEIRO da pala- 
vra que foi entrada. Esta vai sendo re- 
duzida até não ter mais nenhuma letra. 
A recursão só se encerra quando o teste 
executado pelo SE da segunda linha é 
verdadeiro. A palavra vazia é assinala- 
da pelo sinal de aspas seguido de um es- 
paço em branco. 


O comando de atribuição — LET, 
em linguagem BASIC — também exis- 
teem LOGO. Com ele, podemos arma- 
zenar números ou resultados de expres- 
sões em variáveis, e dar-lhes nome. 






















MAKE "IDADE 15 


ATRIBUA “IDADE 15 


Podemos ainda colocar uma palavra 
em variável: 


MAKE “NOME "JOAQUIM 


ATRIBUA "NOME "JOAQUIM 


Experimente verificar o conteúdo das 
variáveis NOME e IDADE, com: 

















[é] 


PRINT :NOME 
PRINT : IDADE 


hay 


ESCREVA :NOME 
ESCREVA : IDADE 


Como você provavelmente deve ter 
observado, usamos dois pontos, e não 
aspas, quando estamos nos referindo a 
uma variável já criada. Esta é uma ca- 
racterística fundamental do LOGO. 
Nessa linguagem, ao contrário do BA- 
SIC, é necessário diferenciar explicita- 
mente as referências à variável (“NO- 
ME) e ao seu conteúdo (:NOME). 

Na realidade, todos os elementos do 
LOGO são definidos do mesmo modo, e 
armazenados na mesma estrutura. Tanto 
os comandos (programas) quanto os da- 
dos são palavras. Números também são 
tratados como palavras. Assim, é perfei- 
tamente possível fazer-se algo como: 


[é] 


PRINT "2.34 + "19.87 
PRINT BUTFIRST 12.345 


ha 


ESCREVA "2.34 + "19.87 
ESCREVA SEMPRIMEIRO 12.345 


Eis aqui um pequeno programa que 
ilustra essa característica do LOGO. Ele 
imprime uma tabela contendo o quadra- 
do e a raiz quadrada de todos os núme- 
ros inteiros, de N1 a N2: 


[é] 


TO TABELA :N1 :NZ 
IF :N1I=:N2 THEN STOP 
PRINT WORD :N1 :NI*NI SQRT(:N1) 


TABELA :N1+1 :NZ 
END 
TO TABELA :N1 :NZ 


SE :N1I=:N2 ENTÃO [PARE] 
ESCREVA PALAVRA :N1 :NIANI 


RAIZQ(:N1) 
TABELA :N1+1 :N2 
FIM 


Para fazer o procedimento TABELA 
chamar a si mesmo, usamos a recursão 


incrementando a variável de início :N1. 
A segunda linha do procedimento veri- 
fica o valor dessa variável, parando se 
ela já tiver atingido o máximo desejado 
(:N2). Caso contrário, imprime na tela 
uma linha contendo o número, seu qua- 
drado e sua raiz quadrada. Como o co- 
mando de escrita aceita um só argu- 
mento, precisamos usar um “aglutina- 
dor” dos diferentes números, colocan- 
do-os em uma única lista, por meio do 
comando WORD (ou PALAVRA). 


LISTAS 


Todo o potencial do LOGO se reve- 
la quando examinamos a última de suas 
estruturas básicas de dados: a lista, um 
conjunto de palavras indicado por meio 
de colchetes. Por exemplo: 


[TIGRE LEAO GATO] 


é uma lista com três elementos, separa- 
dos por brancos. 
Podemos dar nome às listas: 


[é] 


MAKE "FELINOS [TIGRE LEAO GATO)” 


MAKE "IMPARES [1 357 9] 
MAKE "COLEGAS [JOAQUIM 15 MARIO 
14] 


hay 


ATRIBUA "FELINOS [TIGRE LEAO 
GATO] 

ATRIBUA "IMPARES [1 357 9] 
ATRIBUA "COLEGAS [JOAQUIM 15 
MARIO 14] 


Se usarmos o comando PRINT (ou 
ESCREVA) seguido do nome de uma 
lista, obteremos seu conteúdo comple- 
to. Uma lista pode conter outras listas: 


[66] 


MAKE "CARNIVOROS [FELINOS LOBO 
RAPOSA] 


hay 


ATRIBUA "CARNIVOROS [FELINOS 
LOBO RAPOSA] 


Todas as funções utilizadas para ma- 
nipulação de palavras aplicam-se tam- 
bém a listas. Por exemplo: 


[é] 


PRINT FIRST FELINOS 





Quais as etapas para o desenvolvimen- 
to de uma nova linguagem? 

Desenvolver uma nova linguagem 
não é difícil — tanto que existem cen- 
tenas delas que nunca passaram do es- 
tágio de mera “brincadeira” científica 
para uma efetiva implementação e dis- 
tribuição no mercado. 

Em primeiro lugar, deve-se definir se 
a linguagem será imperativa, funcional, 
procedimental etc. e que tipo de co- 
mandos, funções e instruções terá. De- 
pois, é preciso decidir se será uma lin- 
guagem interpretada, compilada, ou 
ambas. 

Finalmente, escreve-se o programa 
— geralmente em Assembler, C, ou 
qualquer outra linguagem otimizada pa- 
ra o desenvolvimento de ferramentas 
de software — que irá realizar o proces- 
so de tradução da nova linguagem em 
códigos de máquina destinados ao 
computador escolhido. 

As técnicas para a elaboração do 
compilador ou interpretador, comple- 
xas e altamente especializadas, são en- 
sinadas em cursos superiores de análi- 


se de sistemas. 


hay 


ESCREVA PRIMEIRO FELINOS 














Isso fará com que o primeiro elemen- 
to da lista, que é TIGRE, seja impresso 
na tela. 

Uma lista pode ter apenas um ele- 
mento, ou nenhum. Nesse caso, deno- 
mina-se lista vazia, e é representada pe- 
lo símbolo [ ]. Para unir duas listas, usa- 
mos o comando primitivo SENTENCE 
(ou SENTENÇA): 


[é] 


PRINT SENTENCE COLEGAS IMPARES 


hay 


ESCREVA SENTENÇA COLEGAS 
IMPARES 


Procuramos aqui demonstrar a rique- 
za e a versatilidade do LOGO. Espera- 
mos ter motivado o leitor a continuar 
explorando essa poderosa linguagem. 


FUNÇÕES 


PODEROSAS 


O comando DEF FN permite incorporar 
ao elenco de funções matemáticas 

do BASIC um conjunto adicional 

de cálculos de grande interesse para 

o programador. Utilize-o. 


No artigo da página 608, vimos co- 
mo definir novas funções e usá-las em 
diversos tipos de manipulação de dados. 
Trataremos aqui de certas funções ma- 
temáticas úteis ao programador. 

Um extenso grupo de funções mate- 
máticas refere-se aos módulos, números 
que “cabem” dentro de outros núme- 
ros, ou que restam de uma divisão. 

Há várias aplicações para esses cál- 
culos. Tomemos como exemplo uma 
questão corriqueira, que envolve a ca- 
tegoria mais geral dos múltiplos: qual é 
o primeiro múltiplo de 100, menor ou 
igual a 345? Não é preciso ser nenhum 
gênio para chegar à resposta — 300, que 
é o arredondamento do número 345 pa- 
ra baixo, até a centena mais próxima. 
Mas qual é o primeiro múltiplo de 64, 
menor ou igual a $117 Eis uma função 
que resolve esse problema: 


ES na by 


DEF FNMN (N1,N2)=INT(N1/N2)*NZ 

O segundo argumento corresponde 
ao número cujo múltiplo queremos 
achar; o primeiro, ao valor máximo des- 
se múltiplo. Nos exemplos dados, pode- 
ríamos usar: PRINT FNMN(345,100) e 
FNMN(511,64). Como o Apple, o 
TK-2000 e o TRS-Color não admitem mais 
que um argumento por função, a linha 
anterior não pode ser executada nessas 
máquinas. A solução é utilizar só um ar- 
gumento (veja o artigo da página 608). 

Também interessante é a função que 
determina o primeiro múltiplo de um 
número, superior a um certo valor. 
Exemplo: o primeiro múltiplo de 100 
maior que 3 022 é 3100 


ITA! 


DEF FNMM(N1,NZ)=INT(N1/NZ2)*N2Z+ 
NZ2 


Os argumentos têm o mesmo signifi- 
cado que os da função anterior. 


Existem ainda outros tipos de arre- 
dondamento. O mais comum consiste 
em arredondar os dígitos da parte fra- 
cionária de um número usando a “'re- 
gra do 5”: se o dígito a desprezar é 
maior ou igual a 5, o que está à sua es- 
querda é arredondado para cima; caso 
contrário, este não muda. A função que 
executa esse tipo de arredondamento é: 


DEF FNAR(N,D)=INT(N*10**D)/10** 
D 








DEF FNAR(N,D)=INT(N*107TD)/107D 


sy 


DEF FNAR(N,D)=INT(N*10"D)/10"D 


A função tem dois argumentos: N, o 
número a arredondar, e D, o número de 
decimais desejado. Se quisermos, por 
exemplo, arredondar para dois decimais 
o número 23,4567, especificamos PRINT 
FNAR(Q3.4567,2). 

Também é útil a função de arredon- 
damento que determina o próximo nú- 
mero inteiro a partir de um número fra- 
cionário. É uma função diferente de 
INT (que obtém a parte inteira de um 
número, arredondando em alguns ca- 
sos), ou de FIX (que determina apenas 
a parte inteira, sem arredondar): 


o] 


DEF FNRD(N)=FIX((FIX(N*10)+SGN 
(N)*5)/10) 


Espe láito! 


DEF FNRD(N)=INT((INT(N*10)+SGN 
(N)*5)/10) 


Outra função importante é a que cal- 
cula o resto inteiro de uma divisão en- 
tre dois números N1 e N2. 


ES by 


DEF FNRE(N1,N2)=N1-FNMN(N1,NZ) 





Utilizamos aqui a função FNMN, já 
definida. A função FNRE pode ser em- 























MAIOR MÚLTIPLO 
MENOR MÚLTIPLO 
RESTO DE UMA DIVISÃO 
ARREDONDAMENTO 
PAR OU IMPAR? 





pregada quando se quer determinar se 
um número é par ou ímpar. 


[é )(S] 


DEF FNPI(N)=2-INT(N/2)*2 


Sm sy 


DEF FNPI(N)=FNRE(N,2) 
Se o resultado da função for 1, o nú- 
mero é ímpar; se for 0, é par. 
O menu deste programa permite tes- 
tar as funções apresentadas: 


ET! 


25 DEF FNMM(N1,N2)=INT(N1/N2)*N 
Z+N2 
30 DEF FNMN(N1,N2)=INT(N1/N2)*N 





2 

35 DEF FNRE(N1,N2)=N1-FNMN(N1,N 
2) 
40 DEF FNRD(N)=FIX((FIX(N*10)+5 
GN(N)*5)/10) 

50 DEF FNPI(N)=FNRE(N,2) 
60 DEF FNAR(N,D)=INT(N*10"D)/10 


“D 

100 cLS 

110 PRINT "DEMONSTRACAO DE FUNC 
OES MATEMATICAS” 

120 PRINT 

130 PRINT "(1) PRIMEIRO MULTI 
PLO MAIOR” 

140 PRINT "(2) PRIMEIRO MULTI 
PLO MENOR OU IGUAL” 

150 PRINT "(3) RESTO DE UMA D 
IVISAO” 


160 PRINT "(4) 
DE UM NUMERO” 
165 PRINT "(5) ARREDONDAMENTO 
PARA O MAIOR INTEIRO” 

170 PRINT "(6) PAR OU IMPAR” 
180 PRINT "(7) FIM” 
190 PRINT 

200 INPUT "OPCAO ";OP 
210 IF OP=7 THEN STOP 
220 IF OP>3 THEN INPUT 
TO ";N:GOTO 250 

230 INPUT "PRIMEIRO ARGUMENTO ” 
:N1 

235 INPUT "SEGUNDO ARGUMENTO ”; 
NZ 
240 IF 
250 IF 
260 IF 
270 IF 


ARREDONDAMENTO 


”"ARGUMEN 


oP=1 
0P=2 
0P=3 
0P=4 


THEN X=FNMM(N1,N2) 
THEN X=FNMN (N1,N2) 
THEN X=FNRE (N1,N2) 
THEN X=FNAR(N) 

275 IF OP=5 THEN X=FNRD(N) 

280 IF OP=6 THEN X=FNPI(N) 

290 PRINT "RESULTADO = ";X 
300 GoTO 120 


Quer dizer que você acredita ser 

fácil blefar um computador? Experimente 
estes programas: eles mudarão 

sua “arrogante” opinião, colocando-o 
diante de um imbatível adversário. 
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m JOGOS DE BLEFE O USO DA ESTATÍSTICA 
ma ALEATORIEDADE E O QUE É ALISAMENTO 
mn COMO CLASSIFICAR EXPONENCIAL 

AS POSSIBILIDADES EE TÉCNICA DE 
LE AS REGRAS DO JOGO SOMA CUMULATIVA 














Um computador que possa enfrentar" 


um blefe não é coisa do futuro: já exis- 
te aqui e agora. Com os programas em 
BASIC deste artigo, não há escapatória: 
a máquina será implacável com quem 
s -la em um clássico jogo de 
blefe: Papel, Pedra, Tesoura. 


RUA 


Jogos de blefe são todos aqueles em 
que ambos os participantes mostram 
suas jogadas ao mesmo tempo, não ha- 
vendo nenhuma informação prévia so- 
bre a probabilidade da jogada de cada 
um. Um exemplo clássico é Papel, Pe- 
dra, Tesoura, no qual dois jogadores re- 
presentam com gestos a forma de uma 
pedra, de uma folha de papel ou de uma 
tesoura. A escolha de cada um é revela- 
da simultaneamente, como em um jogo 
de par ou ímpar. Ganha a rodada aquele 
que mostrar o objeto mais poderoso, de 
acordo com as seguintes regras: 





- tesoura corta papel, portanto, tesou- 
ra ganha; 

- papel embrulha pedra, portanto, pa- 
pel ganha; 

- pedra quebra tesoura, portanto, pedra 
ganha. 


Se ambos os jogadores escolherem o 
mesmo objeto, haverá empate. Joga-se 
um número predeterminado de rodadas 
— vinte, por exemplo — e conta-se um 
ponto para cada rodada ganha. 

Neste artigo, desenvolveremos duas 
versões de um programa que joga Pa- 
pel, Pedra, Tesoura muito bem. Tão 
bem que você até se sentirá um pouco 
abalado quando perceber que o compu- 
tador parece adivinhar suas intenções... 


MAIS SOBRE BLEFE 


Como um programa é capaz de pre- 
dizer eventos aparentemente aleatórios? 
Uma da: ídas” seria a simples adi- 
vinhação — ou seja, O programa sortea- 
ria números ao acaso (digamos, o nú- 
mero 1 representaria o papel, o 2, a pe- 
dra, eo 3, a tesoura), tanto para deter- 
minar a jogada do computador, quan- 











to para tentar adivinhar a do oponente. 
Um jogo como este não é satisfatório do 
ponto de vista estratégico: com um nú- 
mero de rodadas grande, certamente se 
chega a um empate. 

Para sorte do computador, entretan- 
to, o homem não age de maneira pura- 
mente aleatória, tendendo a exibir com 
maior frequência um ou dois tipos de 
objetos. Quase sempre, porém, os pa- 
drões de apresentação são bem mais 
complexos, seguindo ciclos ou mudan- 
do gradativamente as probabilidades. 

Além de sua incapacidade natural de 
atuar como um gerador perfeito de nú- 
meros aleatórios, o jogador humano 
tem mais um ponto vulnerável: a com- 
pulsão a responder ao que acontece no 
jogo. Quer esteja ganhando, quer este- 
ja perdendo, é quase certo que formu- 
lará “teorias” — apelando, via de re- 
gra, para a superstição — sobre quais 
são as respostas com maior chance de 
garantir-lhe a vitória. A distração pro- 
porcionada pelo jogo também tende a 
reduzir a frieza matemática de um jo- 
gador, mesmo que ele lute contra isso. 

De qualquer forma, não resta dúvi- 
da de que um jogador humano, por ser 
humano, tentará ampliar seus ganhos ao 
máximo de alguma estratégia. Isso sig- 
nifica que haverá sempre um viés, ou vi- 
cio de jogada, que, se cuidadosamente 
analisado, poderá dar indícios de como 
será seu próximo lance. 

issa análise poderia ser feita por 
meio de cálculos estatísticos de diversos 
tipos. Mas o computador é bem mais 
eficiente no que se refere a cálculos — 
e é isto o que lhe permitirá sair vitorio- 
so em um jogo de blefe. 

Se um jogador modifica sua estraté- 
gia gradualmente, a técnica estatística 
mais adequada é a do alistamento expo- 
nencial, Se, ao contrário, o oponente 
muda de tática rapidamente, a melhor 
técnica é a da soma cumulativa. 


LUC 


Para enfrentar o computador em Pa- 
pel, Pedra, Tesoura, você precisa sim- 
plesmente pressionar a tecla 1, 2 ou 3, 
quando chegar a sua vez. 

É importante notar o seguinte: em- 























bora a máquina tenha uma grande chan- 
ce de vencê-lo, ela não frauda o jogo, 
“olhando” sua jogada antes de decidir 
a dela. Na verdade, o método utilizado 
consiste em fazer o computador anali- 
sar as escolhas já feitas e decidir antes 
que você entre uma nova jogada. 


TUR do ID 


O alisamento exponencial é a técni- 
ca estatística empregada para regulari- 
zar o contorno de uma curva cheia de 
altos e baixos. Se você colocar em um 
gráfico o número de pedras, tesouras e 
papéis que o oponente apresentou em 
cada unidade de tempo (por exemplo, 
a cada dez jogadas), a curva terá o as- 
pecto de uma serra. Porém, regularizan- 
do o contorno da curva — ou seja, tor- 
nando as subidas e descidas mais ““sua- 
ves” —, o computador detectará algu- 
ma tendência significativa a longo pra- 
zo, como, por exemplo, um aumento ex- 
pressivo na apresentação de tesouras, 

As técnicas de alisamento utilizam so- 
mas ponderadas das jogadas anteriores. 
No caso específico do alisamento expo- 
nencial, pesos menores são dados para 
jogadas mais antigas, e pesos maiores, 
para jogadas mais recentes. 

Ao executar o programa, ele inicial- 
mente pedirá que você entre um “*fator 
de esquecimento”. Quanto maior o va- 
lor (inteiro, positivo) que você fornecer, 
maior o número de jogadas anteriores 
que o computador deixará de conside- 
rar. Assim, ficará mais fácil vencê-lo. 


» CLEAR 31999: GOSUB 500: 
BORDER O: PAPER O: INK 7: 
CLS 


7 DIM A$S(3,9): LET AS(1)="PE 


DRA”: LET AS(2)="PAPEL”: LET 
AS(3)=" TESOURA" 

10 DIM H(352): DIM X(2): DIM 
Q(3,3): DIM C(2,3): DIM A(2,3 
): DIM P(3,3): CLS 

20 FOR I=1 TO 3: LET H(I,1)=- 
cos ((I-2)*PI*2/3): LET H(I,2 


)=-SIN ((1-2)*PI*2/3): NEXT 1 

30 FOR T=1 TO 3: FOR J=1 TO 2 

: LET A(J,T)=.01: NEXT J: 

NEXT T 

40 INPUT "DIGITE FATOR DE ESQ 

VECIMENTO (0-1). VALOR SUG 

ERIDO .85 ";W 

70 FOR I=1 TO 3: FOR J=1 TO 3 
LET P(I,J)=SGN (1-J-3*INT ( 

(1-=0+1.5)/3)): NEXT J: NEXT T 


: LET S=0 

80 LET U=1: LET S=0: LET UZ=0 
: LET WW=0: LET U3=0 
100 LET V=INT (RND*3)+1 
110 PRINT INK 6; PAPER 2;” 1 


=PEDRA, 2=PAPEL, 3=TESOURA ” 





120 INK 6: PLOT 8,167: DRAW 
239,0: DRAW 0,-159: DRAW -239, 
O: DRAW 0,159 

200 FOR T=1 TO 3: LET I=U 

210 IF (UZ=0 AND T=2) OR (U3=0 
AND T=3) THEN GOTO 280 

220 IF T=2 THEN LET I=ABS ((U 
=U2)-2* (U=VV)-3* ( (U<X>UZ) AND ( 
U<>VV))) 

230 IF T=3 THEN LET I=ABS ((U 
=U3)-2* (U=V3)-3*( (U<>U3) AND ( 
U<>V3))) 

240 FOR J=1 TO 2: LET A(J,T)=A 
(JD T)AW+AH (TJ): LET C(J,T)=C(J 
TIAW+IXH (TJ) XH(T,J)+. 01 

250 LET X(J)=A(J,T)/C(J,T): 
NEXT J 

260 FOR I=1 TO 3: LET Q(I,T)=1 
/3: FOR K=1 TO 2: LET Q(I,T)=X 
(K)XH(L,K): NEXT K: NEXT T 

280 NEXT T: LET UZ=U: LET UV=V 
: IF U=V THEN LET VV=U+1-3* 
INT (U/3) 

290 IF U<>V THEN LET U3=U: 


LET V3=V: IF P(U3,V3)<0 THEN 

LET WW=U3: LET U3=V3: LET V3= 
ww 

300 LET X=-1E30: FOR T=1 TO 3: 


IF (T=2 AND U2=0) OR (T=3 AND 
U3=0) THEN GOTO 370 

310 IF T=1 THEN GOTO 350 

311 IF T=2 THEN GOTO 320 

312 IF T=3 THEN GOTO 340 

320 LET WW=6-UZ-VV: LET QI=Q(1 
+T): LET Q2=Q(2,7): LET Q3=Q(3 
+T): LET Q(UZ,T)=Q1: LET Q(VV, 
T)=02: LET Q(WW,T)=03 
330 GoTo 350 

340 LET WW=6-U3-V3: 
+T): LET Q2=0(2,7) 
T): LET Q(U3,T)=Q1: 
T)=Q2: LET Q(WW,T)=Q3 
350 FOR G=1 TO 3: LET P=0: FOR 
I=1 TO 3: LET P=P+P(G,I)*Q(I,T 
): NEXT 1: IF P>X THEN LET X= 
P: LET V=G 
360 NEXT G 
370 NEXT T 
400 INK 7: 
DISSE " 





LET QI=Q(1 
LET Q3=Q(3 
LET Q(V3, 





PRINT AT 2,4;"VOCÊ 


“405 FOR M=-3 TO 16: SOUND .01, 


M: NEXT M 

410 LET KS=INKEYS: 
THEN GOTO 410 
412 IF K$<"1” OR K$>"3” THEN 
Goto 410 

415 LET U=VAL K$ 

420 PRINT AT 3,4;AS(U);AT 2,21 
; INK 5;"EU DISSE ";AT 3,21;AS 
(VU) 

430 POKE 23681,U-1: LET O=USR 
32000: POKE 23681,127+V: LET O 
=USR 32000 

440 LET S=S+P(U,V): 
16,8;"SEU SCORE E "; 
450 INVERSE 1: IF V=U THEN 
PRINT AT 18,10;” UM EMPATE ": 
GoTo 490 

460 IF (U=3 AND V=2) OR (U=2 
AND V=1) OR (U=1 AND V=3) THEN 
PRINT AT 18,12;” VOCE VENCEU 
”: GoTo 490 


IF K$=”" 


PRINT AT 





470 PRINT AT 18,11;” EU VENCI” 
490 INVERSE O: FOR D=1 TO 2: 

PAUSE O: NEXT D: FOR N=2 TO 18 
: PRINT PAPER O; INK 7:;AT N,2 


r: NEXT N: GOTO 200 

500 FOR N=32000 TO 32284: READ 
A: PRINT N,A: NEXT N 

505 LET N=32069: POKE 23728,N- 
256*INT (N/256): POKE 23729, 
INT (N/256) 

510 RETURN 

520 DATA 33,6,72,58,129,92,203 
,127,40,5,203,191,33,22,72,221 
+42,176,92,17,72,0,254,0,40 
530 DATA 8,254,1,40,2,221,25, 
221,25,221,229,209,6,3,197,229 
+6,8,197,1,3,0,235,237,176,235 
+36,1,3,0 

540 DATA 237,66,193,16,239,225 
,1,32,0,9,193,16,227,201 

550 DATA 0,0,0,0,0,0,0,0,0,0,0 
+0,0,30,0,0,97,128,3,129,192,4 
,15,225,10,56,112,21,32,48,30, 
192,16,11,160,16,7,120,32 

560 DATA 3,181,96,1,234,192,0, 
255,128,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0 

570 DATA 0,16,0,0,56,0,0,124,0 
+0,254,0,1,223,0,3,111,128,7, 
191,192,14,219,224,27,109,240, 
53,254,248,106,219,112,245,109 
,224,122 

580 DATA 190,192,61,91,128,30, 
239,0,15,182,0,7,92,0,2,232,0, 
1,240,0,0,224,0,0,0,0 
590 DATA 0,0,0,0,0,0,0, 
600 DATA 0,0,0,0,0,0,0, 
0,104,0,0,208,0,1,160,0 
+6,128,0,13,0,0,26,0,0, 
232,0,63,48,0 

610 DATA 100,32,0,196,96,0,201 
+192,0,115,96,0,6,32,0,4,32,0, 
6,64,0,3,128,0,0,0,0,0,0,0,0,0 











0,0 
0,56,0, 
,3,64,0 
52,0,1, 








5 CLEAR 1000:PMODE 3,1:COLOR 4, 
2: PCLS 

6 GOSUB 1000 

7 C=B*ATN(1)/3 

10 DIM H(3,2),X(2) ,0(3,3) .C(2,3 
),A(2,3),P(3,3):CLS 

20 FOR I=1 TO H(1,1)=-COS((I- 
2)*C):H(I,2)=-SIN((1-2)*C) :NEXT 
30 FOR T=1l TO 3:FOR J=1 TO Z:A( 
J,T)=0:C(J,T)=.01:NEXT J,T 

40 PRINT"DIGITE O FATOR DE ESQU 
ECIMENTO. INTERVALO PERMITIDO 
0a dl” 

50 PRINT"O=SEM MEMORIA ALEM DE 
1 JOGADA”: PRINT" 1=ESTRATEGIA FI 
xa” 

60 PRINT"VALOR SUGERIDO=.85":IN 
PUT W 

70 FOR I=1 TO 3:FOR J=1 TO 3:FO 
R J=1 TO 3:P(I,J)=SGN(I-J-3*INT 
((1-0+1.5)/3)) :NEXT J,I 

80 S=0:U2=0:WW=0:U3=0 

100 V=RND(3) 

110 COLOR 4:PCLS:LINE(B,20)-(24 








7,171), PSET,B 

120 DRAW"BM34,10S4C4":FOR K=1 T 
O 3:DRAW NS(K) +ES+AS (K) +" BR4" :N 
EXT 


140 Goto 400 
200 FOR T=1 TO 3:I=U 
210 IF(U2=0 AND T=2) OR (U3=0 A 


ND T=3) THEN 280 

220 IF T=2 THEN I=-(U=U2)-2*(U= 
VV) -3* ( (U<>UZ) AND (U<>VV) ) 

230 IF T=3 THEN I=-(U=U3)-2*(U= 
V3)-3*( (U<>U3) AND (U<>V3)) 

240 FOR J=1 TO 2:A(J,T)=A(J,T)* 
W+HH(I,J):C(J,T)=C(J,T)AW+IAH CI, 
J)*H(I,9)+.01 

250 X(J)=A(J,T)/C(J,T) NEXT 

260 FOR I=1 TO 3:Q(I,T)=1/3:FOR 
K=1 TO 2:Q(I,T)=Q(I,T)+X(K)*H( 
I,K):NEXT K,I 

280 NEXT:UZ=U:VV=V: IF U=V THEN 
VV=U+1-3*INT(U/3) 

290 IF U<X>V THEN U3=U:V3=V: IF P 
(U3,V3)<0 THEN WW=U3:U3=V3:V3I=W 
w 


300 X=-1E30:FOR T=1 TO 3:IF(T=2 
AND U2=0) OR (T=3 AND U3=0) TH 

EN 370 

310 ON T GOTO 350,320,340 

320 WW=6-UZ-VV:Q1=Q(1,T):Q2=0(2 
+T):03=0(3,T) :Q(UZ,T)=QL:Q(VV,T 
)=02:0(WW,T)=03 

330 GoTO 350 

340 WW=6-U3-V3:01=Q(1,T):Q2=0(2 
+T):03=Q(3,T) :Q(U3,T)=Q1:Q(V3,T 
)=02:0(WW,T)=Q3 

350 FOR G=1 TO 3:P=0:FOR I=1 TO 
3:P=P+P(G,I)*Q(I,T) :NEXT:IF P> 

X THEN X=P:V=G 


360 NEXT G 

370 NEXT T 

400 SCREEN 1,0:DRAW"BM12,30"+YS 
+ss 

410 AS=INKEYS:IF AS<"1” OR AS>” 
3” THEN 410 

420 U=VAL (AS) :DRAW AS(U)+"BM142 
+30" +IS+SS+AS (V) 

430 X=44:Y=90:0N U GOSUB 600,61 
0,620 


435 X=170:0N V GOSUB 700,710,72 


o 

440 LINE(80,175)-(240,190),PRES 
ET,BF:S=S+P(U,V) : DRAW"BM80, 180B 
D4RSUZL4UZR4BRBL4DAR4BRAV4RADAN 
LABR4U4R4D2L2DFBR9LAUZNR4UZR4BR 
BBU2SB”:GOSUB 800:DRAW"S4” 

450 IF U=V THEN DRAW"BM100,160C 
3"+DS:GOTO 490 

460 IF(U=3 AND V=2) OR (UZ AND 
V=1) OR (U=1 AND V=3) THEN DRAW 
"BM30,160C3"+YS+WS:GOTO 490 

470 DRAW"BM160,160C1”+IS+WS 

490 FOR K=1 TO 1000:NEXT:LINE(1 
0,22)-(245,169), PRESET,BF 

500 GOTO 200 

600 PUT(X,Y)-(X+40,Y+38), PA, PSE 
T:RETURN 

610 PUT(X,Y)-(X+40,7+38), SC, PSE 
T:RETURN 

620 PUT(X,Y)-(X+40,7+38),ST,PSE 
T:RETURN 

700 PUT(X,Y)-(X+40,Y+38), PA, AND 
7 RETURN 


710 PUT(X,Y)-(X+40,7+38),SC,AND 
: RETURN 

720 PUT(X,Y)-(X+40,7+38),ST,AND 
: RETURN 

800 FOR K=1 TO LEN(STR$(S)) 

810 B$=MIDS(STRS(S),K,1):IF B$= 
"=" THEN DRAW"BF2R4BE2”:GOTO 83 
o 
820 IF BS<"0” OR BS>"9” THEN 83 
o 
825 DRAW NS (VAL (B$)) 

830 NEXT: RETURN 

1000 FOR I=0 TO 9:READ N$(I):NE 
XT 

1010 DATA NR2D4R2U4BR2, BDEND4BR 
2,R2D2L2D2R2BU4BR2, NR2BD2NR2BD2 
R2U4BR2, D2R2D2U4BR2, NR2D2R2D2L2 
BE4, DARZUZL2BE2BR2,R2ND4BR2, NRZ 
D4R2UZNL2U2ZBR2, NRZD2R2D2U4BR2 
1015 DIM PA(39),8C(39),ST(39) 
1020 DRAW"BMO, 22C3M22,0M40,18M2Z 
0,38L4M0,22": PAINT(20,20) 

1030 DRAW"BM32,20C258H4BH2HBG2F 
4BFF3BL4H2BHH2BL3F2BF2F3BD3H2BH 
3H2” 

1040 GET(0,0)-(40,38),PA,G 

1050 DRAW"BMS5O, 30C3URURURSS4UNR 
6USBRIURNESUE7R2G2DG6LDZLDZFDGL 
GL2ULUEEREZL2DBM-3, -2D2G2L2U2” 
1060 GET(50,0)-(90,38),SC,G 
1070 DRAW"BM128, 6L3GLGL2G3DF5R8 
EZUEU3H3LU” : PAINT (124,16) 

1080 DRAW"BM126,8C2L3GLGNL2DFRU 
ERERZU”: PAINT(122,10):DRAW"BM13 
4, 14L3GLNG3D2RNF 2R4NGZEUH” : PAIN 
T(130,18) 

1090 GET(100,0)-(140,38),ST,G 
1100 ES="BRZBDNR3BD2R3BE3BR” 
1102 AS(1)="NR2D4UZR4UZBF4UZNRZ 
UZR4D4BR4UZNUZRSU2NL2BR8L4D2NRZ 
D2R4BR3U4R4D2LDFRBE4” 

1104 A$(2)="BD4R4UZL3U2R4BRBL4D 
AR4BR4U4BR8L4D2R3D2L3BR7RAUZLIU 
2R4BR3ND4RSDA4NL 2BR3U4R4D2LDFBRS 
RIJUZL3UZR4BRZ” 

1110 AS(3)="BD4R4UZL3U2R4BR3RIN 
DAR2BR3INRSD4RSU4BRAND4F IRFU4BF4 
NR4UZNR2U2R5BR3” 

1120 I$="ND4BR6”:Y$="C4F2NDZREZ 
BRID4R4V4LBR6DARIV4ABR6” 

1130 W$="D4RERERFRFU4BR4ND4BRSN 
D4F2RF2U4” 

1140 S$="BD4R4UZL 3UZR4BRIND4R4D 
2NLD2BR4V4BR4D4RIEUZHBR9" 

1150 D$="ND4R4D2NLD2BR7U4RZFD2G 
BRSU4R4D2LDFBRAV4R4D2LF2BRINU4E 
RERFRFU4” 

1200 RETURN 


Nas versões para o MSX, o Apple e 
o TK-2000 não há apresentação de 
gráficos. 


ny 


6 GOSUB 1000 

7 C=8*ATN(1)/3:NU=0:NV=0 

10 DIM H(3,2),X(2),0(3,3),C(2,3 
).A(2,3),P(3,3) 

20 FOR I=1 TO 3 

25 H(1I,1)=-COS((I-2)*C):H(1,2) 
=-SIN((I-2)*C) 

27 NEXT I 





30 
JT 
yr 


35 
40 
A 
as 
1 


50 
AP! 

INV 

s0 


65 
w 

67 
68 


69 
70 
72 
75 
THEI 
77 
Bo 
100 
120 
130 
140 
200 
210 
AND 
220 
VV) 
230 
V3) 
240 
+T) 
245 
H(I 
250 

J 
260 

K= 
265 
NEX' 
270 
280 
285 
3) 
290 
(u3 
w 


300 
305 
ND 

310 
320 
o(z 
325 
+T) 
330 
340 
27 
345 
17) 
350 


3 
355 
I 
357 


360 
370 















FOR T=l TO 3:FOR J=1 TO 2:A( 
)=0:C(J,T)=0.01:NEXT J:NEXT 


LOCATE 0,4 
PRINT "FATOR DE ESQUECIMENTO 
SER USADO” 
PRINT:PRINT 
PRINT "O = MEMORIA DE 1 JOGO 
ENAS” : PRINT "1 = ESTRATEGIA 
'ARIAVEL” 

PRINT "VALOR SUGERIDO = 0.85 


"VALOR ENTRE O E 


PRINT:PRINT "VALOR ";: INPUT 


FOR I=4 TO 11:LOCATE 0,1 
PRINT " 


NEXT 1 

FOR I=1 TO 3:FOR J=1 TO 3 
P(I,J)=1 

IF 1-J-3*INT((I-0+1.5)/3)<0 
N P(I,J)=-1 


NEXT J:NEXT 1 
S=0:U2=0:WW=0:U3=0 
V=INT(3*RND(1))+1 

LOCATE 3,4:PRINT "VOCE" 
LOCATE 20,4:PRINT "EU” 
Goto 400 

FOR T=1 TO 3:I=U 

IF (UZ=0 AND T=2) OR (U3=0 
T=3) THEN 270 

IF T=2 THEN I=-(U=U2) -2*(U= 
=3* ((U<XDUZ) AND (U<>VV)) 
IF T=3 THEN I=-(U=U3)-2* (U= 
-3* ((U<X>U3) AND (U<>V3)) 
FOR J=1 TO Z2:LET A(J,T)=A(y 
*W+H(I,J) 
C(J,T)=C(J,T)*W+3XH(I,9)* 
+J)+0.01 

LET X(J)=A(J,T)/C(J,T) :NEXT 


FOR I=1 TO 3:0(I,T)=1/3:FOR 
1 TO 2 

QUIT) =QCI,T)+X(K)AHCI,K): 
T K:NEXT I 

NEXT T 

UZ=U:VV=V 

IF U=V THEN VV=U+1-3*INT (U/ 


IF U<S>V THEN U3=U:V3=V:IF P 
+V3)<0 THEN WW=U3:U3=V3:V3=W 


X=-9999999:FOR T=1 TO 3 
IF (T=2 AND U2=0) OR (T=3 À 
U3=0) THEN 370 

ON T GOTO 350,320,340 
WW=6-UZ-VV:Q1=Q(1,T) :02= 
+T) :03=0(3,T) 
Q(UZ,T)=01:Q(VV,T)=02:0(WW 
=03 

GoTo 350 
WW=6-U3-V3:Q1=0(1,T) :Q2=0( 
):03=0(3,7) 
Q(U3,T)=Q1:Q(V3,T)=02:0(WW 
=Q3 

FOR G=1 TO 3:P=0:FOR I=1 TO 


LET P=P+P(G,I)*Q(I,T):NEXT 
IF P>X THEN X=P:V=G 


NEXT G 
NEXT T 





400 LOCATE 0,21:PRINT "JOGUE: 1 

=PAPEL 2=TESOURA 3=PEDRA "; 

410 AS=INKEYS:IF AS<"1” OR AS>” 

3º THEN 410 

420 U=VAL (AS) 

425 LOCATE 3,10:PRINT AS(U) 

430 LOCATE 20,10:PRINT AS(V) 

445 S=S+P(U,V) 

447 LOCATE 12,16:PRINT " 
":LOCATE 12,16 

450 IF U=V THEN PRINT 

coTo 490 

460 IF (U=3 AND V=2) OR (U=2 AN 

D V=1) OR (U=1 AND V=3) THEN PR 


"EMPATE": 


INT "VOCE GANHOU !”:NU=NU+1:GOT 
o 490 
470 PRINT "GANHEI !”":NU=NU+1 


490 LOCATE 3,18:PRINT NU:LOCATE 
20,18:PRINT NV 

500 GoTo 200 

1000 LET AS(1)="PAPEL ":AS(2)= 
"TESOURA" :AS(3)="PEDRA " 
1010 CLS 

1020 PRINT "PA PEL - 
RA-TESOURA 
1030 PRINT "========="========= 


PED 


1040 LOCATE 0,20 
1050 PRINT "====-===="========== 


1200 RETURN 


[af] [ci] 


6 GOSUB 1000 

7 LET C=8*ATN(1)/3:NU=0:NV=0 

10 DIM H(3,2),X(2),0(3,3),C(2,3 
),A(2,3),P(3,3) 

20 FOR I=1 TO 3 

25 LET H(I,1)=-COS((1-2)*C):H(I 
+2)=-SIN((I-2)*C) 

27 NEXT 1 

30 FOR T=1 TO 3:FOR J=1 TO 2Z:A( 
J,T)=0:C(J,T)=0.01:NEXT J: 
NEXT T 

35 VTAB 4:HTAB 1 

40 PRINT "FATOR DE ESQUECIMENTO 

A SER USADO” 

PRINT:PRINT 

Er 

PRINT * 

APENAS”: PRINT 

A INVARIAVEL” 

PRINT "VALOR SUGERIDO = 0.85 





4s "VALOR ENTRE O E 


50 





= MEMORIA DE 1 JOGO 
"1 = ESTRATEGI 


PRINT:PRINT "VALOR ";: INPUT 
w 


FOR I=4 TO 11:VTAB I:HTAB 1 

PRINT ” 

NEXT I 

70 FOR I=1 TO 3:FOR J=1 TO 3 

72 LET P(I,J)=1 

75 IF I-J-3*INT((I-J+1.5)/3)<0 
THEN P(I,J)=-1 

77 NEXT J:NEXT I 

80 LET S=0:U2=0:WW=0:U3=0 

LET V=INT(3*RND(1))+1 

UTAB 4:HTAB 3:PRINT "VOCE" 

VTAB 4:HTAB 20:PRINT "EU” 

Goro 400 

FOR T=1 TO 3:I=U 

IF (UZ2=0 AND T=2) OR (U3=0 





AND T=3) THEN 270 

IF T=2 THEN I=-(U=U2)-2*(U= 
VV)-3*((U<>UZ) AND (U<>VV)) 
IF T=3 THEN I=-(U=U3)-2*(U= 
V3)-3*((U<>U3) AND (U<>V3)) 
FOR J=1 TO 2:LET A(J,T)=A(J 
+T)*W+H(I,J) 

LET C(J,T)=C(J,T)*W+IAH(I,J 
)*H(1,J)+0.01 

LET X(J)=A(J,T)/C(J,T) :NEXT 


220 
230 
240 
245 
250 


J 

FOR I=1 TO 3:Q(I,T)=1/3:FOR 
K=1 TO 2 

LET Q(I,T)=Q(I,T)+X(K)*H(I, 
K):NEXT K:NEXT I 

NEXT T 

LET UZ=U:VV=V 

IF U=V THEN VV=U+1-3*INT(U/ 


260 
265 


270 
280 
285 


3) 

IF U<>V THEN U3=U:V3=V:IF P 
(U3,V3)<0 THEN WW=U3 : U3 = 
V3:V3=Wy 

LET X=-9999999:FOR T=1 TO 3 
IF (T=2 AND U2=0) OR (T=3 À 
ND U3=0) THEN 370 

ON T GOTO 350,320,340 

LET WW=6-UZ-VV:Q1=Q(1,T):02 
=0(2,T) :03=0(3,T) 

LET Q(UZ,T)=Q1:Q(VV.T)=02:0 
(WW,T) =03 

GoTo 350 

LET WW=6-U3-V3:Q1=Q(1,T):02 
=0(2,T) :Q3=0(3,T) 

LET Q(U3,T)=Q1:0(V3,T)=02:0 
(WW,T)=03 

FOR G=1 TO 3:P=0:FOR 1=1 TO 


290 
300 
305 


310 
320 





330 
340 


345 
350 


3 
355 LET P=P+P(G,I)*Q(I.T) :NEXT 
I 





357 G 
360 
370 


400 


IF P>X THEN X=P 
NEXT G 

NEXT T 

VTAB 21:HTAB 1:PRINT" JOGUE: 
1=PAPEL 2=TESOURA 3=PEDRA” ; 
GET AS:IF AS<"1” OR AS>"3" 
THEN 410 

LET U=VAL(AS) 

VTAB 10:HTAB 3:PRINT AS(U) 
VTAB 10:HTAB 20:PRINT AS(V) 
LET S=S+P(U,V) 

VTAB 16:HTAB 12:PRINT ” 
:VTAB 16:HTAB 12 

IF U=V THEN PRINT "EMPATE": 
Goto 490 

IF (U=3 AND V=2) OR (U=2 AN 
D V=1) OR (U=1 AND V=3) THEN 
PRINT "VOCE GANHOU !”:NU=NU 
+1:GOTO 490 

PRINT "GANHEI !”:;NU=NU+1 
VTAB 18:HTAB 3:PRINT NU 
VTAB 18:HTAB 20:PRINT NV 
500 GOTO 200 


ao 


420 
425 
430 
44as 
447 





450 
460 


470 
490 















1000 LET AS(1)="PAPEL ":AS(2)= 
"TESOURA S (3)="PEDRA ” 

1010 HOME 

1020 PRINT "PAPEL - PED 

1030 

1040 VTAB ZO:HTAB 1 

1050 PRINT ” 

1200 RETURN 


ARA UT 


Soma cumulativa é a técnica usada 
para analisar o desempenho do oponen- 
te num período de tempo em que se re- 
gistram mudanças bruscas de respostas. 

Os gráficos empregados pelo progra- 
ma são iguais aos do programa anterior 
(apenas nas versões para o TRS-Color 
e Spectrum. Nas versões para o MSX, 
Apple e TK-2000, a parte comum entre 
os dois programas se refere à apresen- 
tação dos resultados). Assim, as linhas 
de programa correspondentes à seção re- 
lativa à apresentação dos resultados não 
mudam, devendo ser incorporadas ao 
novo programa como estão. 

Como no programa anterior, o joga- 
dor deve entrar uma informação que re- 
gula a tática do computador (um núme- 
ro entre 1 e 9999). 


Use as linhas 520 a 610 do programa 
anterior e acrescente estas: 


5 CLEAR 31999: GOSUB 500: 
BORDER O: PAPER O: INK 7: 
cLS 

7 DIM AS(3,9): 
DRA”: LET AS(2)="PAPEL”: 
AS(3)="TESOURA” 

10 DIM B(3): DIM U(3): 
3): DIM H(3,2): DIM X(3): 
Q(3): DIM P(3,3): DIM M(3) 
15 LET MM=60: DIM A(3,MM): 
DIM Z(MM) 

20 FOR I=1 TO 3: 
cos ((1-2)*PI*2/3): 
)=-SIN ((1-2)*PI*2/3): 


LET AS(1)="PE 
LET 


DIM S( 
DIM 


LET H(I,1)=- 
LET H(I,2 
NEXT I 


30 LET M(1)=1: LET M(2)=0: 
LET M(3)=0 
40 INPUT "DIGITE RAZAO DE SEM 


ELHANCA PARA CADA JOGADA (1 A 


9999), 1=NOVA ESTRATEGIA PA 
RA CADA JOGADA, 9999=MESMA 
ESTRATEGIA. ";W 


70 FOR I=1 TO 3: FOR J=1 TO 3 
LET P(I,J)=SGN (1-J-3*INT ( 
(1-J+1.5)/3)): NEXT J: NEXT 1 


LET S=0 
80 LET NN=0: LET U=1: LET S=0 
LET U2=0: LET WW=0: LET U3=0 


100 LET V=INT (RND*3)+1 

110 PRINT INK 6; PAPER 2;" 1 
=PEDRA, 2=PAPEL, 3=TESOURA 
120 INK 6: PLOT 8,167: DRAW 
239,0: DRAW 0,-159: DRAW -239, 
O: DRAW 0,159 

130 GoTo 400 

200 LET Y=-1E30: LET Z=-1E30: 
FOR T=1 TO 3: LET I=U: IF T=1 
THEN GOTO 230 

210 IF (UZ=0 AND T=2) OR (U3=0 
AND T=3) THEN GOTO 264 

220 IF T=2 THEN LET I=ABS ((U 
=U2)-2* (U=VV)-3*((U<>UZ) AND ( 
U<>VV))) 


107 PROGRAMAÇÃO BASIC 107 








230 IF T=3 THEN LET I=ABS ((U 
=U3)-2* (U=V3)-3*( (U<>U3) AND ( 
U<>V3))) 

240 LET A(T,M(T))=I 

250 FOR J=1 TO 3: LET B(J)=0: 
NEXT J: LET N=0: LET N2=M(1) 
252 FOR M=M(T) TO 1 STEP -1: 
LET B(A(T,M))=B(A(T,M))+1: LET 
N=N+1: LET N2=N2-1 

256 FOR J=1 TO 3: LET Q(J)=B(J 
J/N: LET X(J)=Q(J)+(Q(9)=0): 
NEXT J 

258 LET Q=B(1)*LN (X(1))+B(2)* 
LN (X(2))+B(3)*LN (X(3)): TF 
NN>1 AND N2<>0 THEN LET Q=0+Z 
(NZ) 

260 IF Q>Z THEN LET Z=Q: LET 
S(1)=Q(1): LET S(2)=Q(2): LET 
8(3)=Q(3): LET SS=T: LET NN=N2 
262 NEXT M: IF Q>Y THEN LET Y 
=Q: LET TT=T: LET U(1)=Q(l): 
LET U(1)=Q(2): LET U(3)=Q(3) 


264 NEXT T: LET T=TT: LET Z(M( 
1))=Y: LET Q(1)=U(1): LET Q(2) 
=U(2): LET Q(3)=U(3) 

270 LET UZ=U: LET VV=V: IF UZ= 


UU THEN LET VV=UZ+1-34XINT (UZ 


/3) 

272 IF U<X>V THEN LET U3cU: 
LET V3=V: IF P(U3,U3)<0 THEN 
LET WW=U3: LET U3=V3: LET V3= 
ww 

274 LET M(1)=M(1)+1: LET M(2)= 
M(2)+(U2>0): LET M(3)=M(3)=(U3 
>0) 


280 IF Q>Z-LN (W) THEN GOTO 
300 


282 FOR T=1l TO 3: FOR M=NN+t1 


TO MCT): LET ACT,M-NN)=A(T;M): 
NEXT M 

284 LET M(T)=(NN-M(T))A(-IAC(M 
(T)2NN))): NEXT T 


286 LET T=TT: LET Q(1)=S(1): 
LET Q(2)=S(2): LET Q(3)-S(3) 
290 FOR M=1 TO M(1)-1: LET Z(M 
)=-1E30: NEXT M: LET Z(M(1))-Q 
300 LET X=-1E30 

310 IF T=1 THEN GOTO 350 

311 IF T=2 THEN GOTO 320 

312 IF T=3 THEN GOTO 340 

320 LET WW=6-U2-VV: LET QI=Q(l 
): LET Q2=0(2): LET Q3=0(3): 
LET Q(UZ)=QL: LET Q(VV) =Q2: 
LET Q(WW)=03 

330 Goto 350 

340 LET WW=6-U3-V3: LET QI=Q(1 
): LET Q2=0(2): LET Q3=0(3): 
LET Q(U3)=Ql: LET Q(V3)=02: 
LET Q(WW)=Q3 

350 FOR G=1 TO 3: 


LET P=0: FOR 


I=1 TO 3: LET P=P+P(G,I)*Q(I): 
NEXT I: IF P>X THEN LET X=P: 
LET V=G 

360 NEXT G 

400 INK 7: PRINT AT 2,4;"VOCÊ 
DISSE ” 


405 FOR M=-3 TO 16: SOUND .01, 
M: NEXT M 

410 LET KS=INKEYS: 
THEN GOTO 410 
412 IF KS<"1” OR K$>"3” THEN 
coro 410 


IP K$="" 


415 LET U=VAL K$ 
420 PRINT AT 3,4;AS(U);AT 2,21 
; INK 5;"EU DISSE ";AT 3,21;AS 
(V) 

430 POKE 23681,U-1: LET O=USR 
32000: POKE 23681,127+V: LET O 
=USR 32000 

440 LET S=S+P(U,V): PRINT AT 
16,8;"SEU PLACAR E ";S;" 
450 INVERSE 1: IF V=U THEN 
PRINT AT 18,10;” UM EMPATE ": 
goto 490 

460 IF (U=3 AND V=2) OR (U=2 
AND V=1) OR (U=1 AND V=3) THEN 
PRINT AT 18,10;” VOCE VENCEU 
”: GoTO 490 

470 PRINT AT 18,10;” EU VENCI 
490 INVERSE O: 
PAUSE O: NEXT D: 
: PRINT PAPER 0; 


FOR D=1 TO 2: 
FOR N=2 TO 18 
INK 7;AT N,2 





: NEXT N: GOTO 200 

500 FOR N=32000 TO 32284: READ 
A: POKE N,A: NEXT N 

505 LET N=32069: POKE 23728,N- 
256*INT (N/256): POKE 23729, 
INT (N/256) 

510 RETURN 





Apague o programa anterior até a li- 
nha 435 e digite: 


5 CLEAR 1000:PMODE 3,1:COLOR 4, 
2:PCLS 

6 GOSUB 1000 

7 C=B*ATN(1)/3 

10 DIM B(3),U(3),8(3),H(3,2),X( 
3) ,0(3),P(3,3),M(3) 

15 MM=60:DIM A(3,MM),Z (MM) 

20 FOR I=1 TO 3:H(1,1)=-COS((I- 
2)*C):H(1,2)=-SIN((I-2)*C) :NEXT 
30 M(1)=1 

40 CLS: INPUT"DIGITE RAZAO DE SE 
MELHANCA PARA CADA JOGADA (1 A 


9999), 1=NOVA ESTRATEGIA PARA 
CADA JOGADA , 9999=MESMA ESTR 
ATEGIA. ";W 


70 FOR I=1 TO 3:FOR J=1 TO 3:P( 
1,9) =SGN(I-J-3*INT((I-J+1.5)/3) 
J:NEXT J,I 

Bo U=1 

100 V=RND(3) 

110 COLOR 4:PCLS:LINE(8,20)-(24 
7,171) ,PSET,B 

120 DRAW"BM34, 10S4C4":FOR K=1 T 
O 3:DRAW NS (K) +ES+AS (K) +" BR4":N 
EXT 

140 Goto 400 

200 Y=-1E30:2=-1E30:FOR T=1 TO 
3:I=U:IF T=1 THEN 230 

210 IF(UZ=0 AND T=2)0R(U3=0 AND 
T=3) THEN 264 

220 IF T=2 THEN I=- (U=U2)-2* (U= 
VV) -3* ( (U<>UZ) AND (U<>VV) ) 

230 IF T=3 THEN I=-(U=U3)-2*(U= 
V3)-3* ( (U<X>U3) AND (U<>V3)) 

240 A(T,M(T))=I 

250 FOR J=1 TO 3:B(J)=0:NEXT:N= 
0:N2=M(1) 


252 FOR M=M(T) TO 1 STEP -1:B(A 
(T,M))=B(A(T,M))+1:N=N+1:NZ=N2— 
ag 


256 FOR J=1 TO 3:Q(J)=B(J)/N:X( 
J)=Q(J)-(Q(J)=0) NEXT 

258 Q=B(1) *LOG(X(1))+B(2) *LOG(X 
(2))+B(3) *LOG(X(3)): IF NN>O THE 
N Q=0+Z(N2) 

260 IF Q>Z THEN Z=Q:S(1)=Q(1):S 
(2)=Q(2):S(3)=Q(3):88=T:NN=N2 
262 NEXT M:IF Q>Y THEN Y=Q:TT=T 
:U(1)=Q(1) :U(2)=Q(2) :U(3)=Q(3) 
264 NEXT T:T=TT:Z(M(1))=Y:Q(1)= 
U(1):Q(2)=U(2) :Q(3)=U(3) 

270 UZ=U:VV=V:IF UZ>VV THEN UV= 
U2+1-3XINT (U2/3) 

272 IF UX>V THEN U3=U:V3=V:IF P 
(U3,V3)<0 THEN WW=U3:U3=V3:V3=W 


w 

274 M(1)=M(1)+1:M(2)=M(2) = (U2>0 
):M(3) =M(3)-(U3>0) 

280 IF Q>Z-LOG(W) THEN 300 

282 FOR T=1 TO 3:FOR M=NN+1 TO 
M(T) :A(T,M-NN) =A(T,M) :NEXT 

284 M(T)= (NN-MT)*(M(T)>NN) :NEXT 
286 T=TT:Q(1)=S(1):Q(2)=S(2):0( 
3)=8(3) 

290 FOR M=1 TO M(1)-1:Z(M)=-1E3 
O:NEXT:Z(M(1))=Q 

300 X=-1E30 

310 ON T GOTO 350,320,340 

320 WW=6-UZ-VV:Q1=Q(1 
Bagre :Q(UZ) =Q1:0 (VV) =Q) O (ua) 
=03 

330 GoTo 350 

340 WW=6-U3-V3:Q1=Q(1):Q2=0(2): 
Q3=0 (3) :Q(U3)=Q1:0(V3)=02:0(WW) 
=Q3 

350 FOR G=1 TO 3:P=0:FOR I=1 TO 
3:P=P+P(G, 1) *Q(I) :NEXT:IF P>X 
THEN X=P:V=G 

360 NEXT 

400 SCREEN 1,0:DRAW"BM1Z,30"+YS 
+88 

410 AS=INKEYS:IF AS<"1” OR AS>" 
3” THEN 410 

420 U=VAL (AS) :DRAW AS (U)+"BM142 
130" +IS+SS+AS (V) 

430 X=44:Y=90:0N U GOSUB 600,61 
0,620 

435 X=170:0N V GOSUB 700,710,72 
o 


| 


Apague o programa anterior até a li- 
nha 390 e digite: 


6 GOSUB 1000 
7 C=B*ATN(1)/3:NU=0:NV=0 

10 DIM B(3),U(3),8(3),H(3,2),X( 
3),0(3),P(3,3),M(3) 

15 MM=6 IM ao MM), Z (MM) 

20 FOR TO 

25 H(I, 1) a-698t(I= 2)*C):H(1,2) 
=-SIN((I-2)*C) 

27 NEXT 1 

30 M(1)=1 

35 LOCATE 0,4 

40 PRINT "FATOR DE VEROSSIMILHA 
NÇA” 

45 PRINT:PRINT 








"VALOR ENTRE 1 E 



















9999 1º 
50 PRINT 
ARA CADA JOGO”: PRINT 
SMA ESTRATEGIA” 


"1 = NOVA ESTRATÉGIA P 
"9999 = ME 


65 PRINT:PRINT "VALOR ";: INPUT 
w 

67 FOR I=4 TO 10:LOCATE 0,1 
68 PRINT ” 

69 NEXT I 

70 FOR 1=1 TO 3:FOR J=1 TO 3 
72 P(I,J)=1 

75 IF 1-J-3*INT((I-J+1.5)/3)<0 


THEN P(I,J)=-1 
77 NEXT J:NEXT 1 


80 U=1 

100 V=INT(3*RND(1))+1 

120 LOCATE 3,4:PRINT "VOCE" 
130 LOCATE 20,4:PRINT "EU" 

140 Goto 400 

200 Y=-99999:FOR T=1 TO 3:1=U 
205 IF T=1 THEN 230 

210 IF (UZ=0 AND T=2) OR (U3=0 
AND T=3) THEN 264 

220 IF T=2 THEN I=-(U=U2)-2*(U= 


VV)-3*((U<>UZ) AND (U<>VV)) 

230 IF T=3 THEN I=-(U=U3)-2* (U= 
V3)-3*( (U<>U3) AND (U<>V3)) 

240 A(T.M(T))=I 

250 FOR J=1 TO 3:B(J)=0:NEXT J: 
N=0:N2=M(1) 

252 FOR M=M(T) TO 1 STEP -1 
254 B(A(T.M))=B(A(T,M))+1:N=N+1 
:N2=N2-1 

256 FOR J=1 TO 3:Q(J)=B(J)/N:X( 
J)=Q(J)-(Q(J)=0) :NEXT J 

258 A=B(1)*LOG(X(1))+B(2) *LOG(X 
(2))+B(3) *LOG(X(3)) 

259 IF NN>O THEN Q=0+2Z (N2) 

260 IF Q>Z THEN Z=Q:S(1)=Q(1):S 
(2)=02:8(3)=Q3:SS=T:NN=N2Z 

262 NEXT M 

263 IF Q>Y THEN Y=Q:TT=T:U(1)=Q 
(1) :U(2)=0(2) :U(3)=0(3) 

264 NEXT T 

265 T=TT:Z(M(1))=Y:Q(1)=U(1): 
Q(Z)=U(2) :Q(I)=U(3) 

270 UZ=U:VV=V:IF UZ>VV THEN 
VV=U2+1-3*INT(U2/3) 

272 IF U<>V THEN U3=U:V3=V: IF Pp 
(U3,V3)<0 THEN WW=U3:U3=V3:V3=W 
w 


274 M(1)=M(1)+I:LET M(2)=M(2)-( 
U2>0) :M(3)=M(3)-(U3>0) 

280 IF Q>Z-LOG(W) THEN 300 

282 FOR T=1 TO 3:FOR M=NN+1 TO 
MCT) 

283 A(T,M-NN)=A(T,M) :NEXT M 
284 M(T)=(NN-MT)*(M(T)>NN) : 
NEXT T 

286 T=TT:Q(1)=S(1):Q(2)=S(2): 
0(3)=S(3) 

290 FOR M=1 TO M(1)-1:Z(M)= 
-99999:NEXT M 

295 Z(M(1))=Q 

300 X=-99999 

310 ON T GOTO 350,320,340 

320 WW=6-UZ-VV:Ql=Q(1):02=0(2): 
Q23=0(3) 

325 Q(UZ)=01:0(VV)=02:0(WW)=03 
330 GoTo 350 

340 WW=6-U3-V3:Q1=Q(1):02=0(2): 
03=0(3) 





345 Q(U3)=01:0(V3)=02:0(WW)=03 
350 FOR G=1 TO 3:P=0:FOR I=1 TO 


3 

355 P=P+P(G,I)*Q(I):NEXT I 
357 IF P>X THEN X=P:V=G 
360 NEXT G 


[ei] 


Apague o programa anterior até a li- 
nha 390 e digite: 


6 GOSUB 1000 

7 LET C=8*ATN(1)/3:NU=0:NV=0 

10 DIM B(3),U(3),5(3),H(3,2),X( 
3) .0(3),P(3,3),M(3) 

LET MM=60:DIM A(3,MM),Z (MM) 
FOR I=1 TO 3 

LET H(I,1)=-COS((I-2)*C):H(I 
+2)=-SIN((I-2)*C) 

NEXT I 

LET M(1)=1 

VTAB 4:HTAB 1 

PRINT "FATOR DE VEROSSIMILHA 


15 
20 
25 


27 





NCA” 

45 PRINT:PRINT "VALOR ENTRE 1 E 
9999 : 

50 PRINT "1 = NOVA ESTRATEGIA P 


ARA CADA JOGO”: PRINT 
MESMA ESTRATEGIA” 

65 PRINT:PRINT "VALOR ";: INPUT 
w 


"9999 = 


67 FOR I=4 TO 1O:VTAB I:-HTAB 1 


68 PRINT * 

69 NEXT I 

70 FOR I=1 TO 3:FOR J=1 TO 3 
72 LET P(I,J)=1 

75 IF I-J-3*INT((I-J+1.5)/3)<0 


THEN P(I,J)=-1 

NEXT J:NEXT I 

80 LET U=1 

100 LET -V=INT(3*RND(1))+1 

120 VTAB 4:HTAB 3:PRINT "VOCE" 
130 VTAB 4:HTAB 20:PRINT "EU” 
140 coTo 400 

200 LET Y=-99999:FOR T=1 TO 3:1 
-U 

IF T=1 THEN 230 

IF (UZ=0 AND T=2) OR (U3=0 
AND T=3) THEN 264 

IF T=2 THEN I=-(U=U2)-2*(U= 
VV)-3*((U<X>UZ) AND (U<>VV)) 
IF T=3 THEN I=-(U=U3)-2*(U= 
V3)-3*((U<>U3) AND (U<>V3)) 
LET A(T,M(T))=I 

FOR J=1 TO 3:B(J)=0:NEXT J: 
N=0:N2=M(1) 

FOR M=M(T) TO 1 STEP -1 

LET B(A(T,M))=B(A(T,M))+1:N 
=N+1:N2=N2-1 

FOR J=1 TO 3:0(J)=B(J)/N:X( 
J)=0(J)-(0(J)=0) :NEXT J 

LET A=B(1)*LOG(X(1))+B(2)*L 
OG(X(2))+B(3)*LOG(X(3)) 

IF NN>O THEN Q=0+Z (N2) 

IF Q>Z THEN Z=0:S(1)=Q(1):S 
(2)=02:8(3)=03:89=T:NN=N2 
NEXT M 

IF Q>Y THEN Y=Q:TT=T:U(1)=Q 
(1) :U(2)=0(2) :U(3)=0(3) 
NEXT T 


205 
210 


252 
254 


256 
258 


259 
260 


262 
263 


264 


274 


280 
282 


283 
284 


286 
290 
295 
300 
310 
320 
325 


330 
340 


345 
350 
355 


357 
360 


COMO ENGANAR O COMPUTADOR 


lo computador, precisará lançar mão de 
uma estratégia que neutralize ao má- 
ximo o método de análise utilizado no 
programa. A melhor alternativa, nesse 
caso, é empregar um processo absolu- 
tamente aleatório em suas jogadas. Pa- 
ra isso, rode um pequeno programa de 
sorteio de três números no seu micro, 
e imprima (ou então copie à mão) uma 
longa sequência de jogadas. Seguindo- 
aáârisca, o computador não terá nenhu- 
ma chance de prever suas jogadas. Em 
compensação, você também não con- 
seguirá prever as jogadas do com- 
putador! 


putador consiste em mudar continua- 
mente de estratégia. Os resultados, 
aqui, dependerão do programa que vo- 
cê estiver usando. Veja como o com- 
putador “enlouquece”... 









Se você não quiser ser derrotado pe- 





















Outra técnica para enganar o com- 




































LET T=TT:Z(M(1))=Y:Q(1)=U(1 
)J:Q(2)=U(Z) :Q(3)=U(3) 

LET UZ=U:VV=V:IF UZ>VV THEN 
VV=U2+1-3*INT(U2/3) 

IF US>V THEN U3=U:V3=V:IF Pp 
(U3,V3)<0 THEN WW=U3:U3=V3: 
VI=WW 

LET M(1)=M(1)+1:LET M(2)=M( 
2)-(U2>0) :M(3)=M(3) - (U3>0) 

IF Q>Z-LOG(W) THEN 300 

FOR T=1 TO 3:FOR M=NN+1 TO 

MeT) 

LET A(T.M-NN)=A(T,M):NEXT M 
LET M(T)=(NN-MT)*(M(T)>NN) : 
NEXT T 

LET T=TT:Q(1)=S(1) :Q(2)=S(2 
):Q(3)=8(3) 

FOR M=1 TO M(1)-1:LET Z(M)= 
-99999:NEXT M 

LET Z(M(1))=Q 

LET X=-99999 

ON T GOTO 350,320,340 

LET WW=6-UZ-VV:QI=Q(1):Q2=0 
(2):03=0(3) 

LET Q(UZ)=Q1:0 (VV) =02:0(WW) 
=03 

GoTo 350 

LET WW=6-U3-V3:Q1=Q(1) :02=0 
(2) :03=0(3) 

LET Q(U3)=Q1:0(V3)=02:0(WW) 
=03 

FOR G=1 TO 3:P=0:FOR I=1 TO 
3 


LET P=P+P(G,1)*Q(I):NEXT I 
IF P>X THEN X=P:V=G 
NEXT G 





CHNENDD mo ros procRamação Basie 108 


LO 











A MATEMÁTICA DA 
IRREGULARIDADE (1) 


Use seu micro na exploração das formas 
mais fascinantes da geometria de 
dimensões fracionadas, um instrumento 
da matemática que ajuda a explicar as 
irregularidades observadas na natureza. 








Qual é o comprimento de um peda- 
ço de corda? A resposta é muito fácil se 
a corda estiver esticada, pois bastará 
medi-la com uma fita métrica. Caso 
contrário, a tarefa será um pouco mais 
trabalhosa, pois teremos que medir um 
objeto irregular. 

É evidente que, para obter as medi- 
das de um objeto irregular, procurare- 
mos estendê-lo, de modo a simplifica 
o trabalho. Porém, nem todas as coisas 
são suficientemente maleáveis para se 
fazer isso. Como agir então? 

Tomemos como exemplo uma encos- 
ta rochosa com 5 km de extensão. Essa 
medida equivale ao percurso de uma gai- 
vota que voa de uma ponta à outra ou 
à distância que você realmente andaria 
seguindo a linha do mar? Há uma dife- 
rença considerável entre os dois trajetos, 





sendo que a rota que acompanha todas 
as irregularidades é bem maior que a do 
vôo retilíneo do pássaro. 

Mas qual é essa diferença? Suponha- 
mos que temos uma trena bem flexível, 
capaz de se ajustar a todos os porme- 
nores do terreno. Inicialmente, vamos 
nos ater aos grandes acidentes, como a 
foz de um rio ou uma baía. Mas, em 
busca de maior rigor, passaremos a con- 
siderar cada rocha que se projeta ao 
mar, tornando a costa irregular, e, de- 
pois, cada pedra à beira d'água. Por 
fim, levaremos em conta até os grãos de 
areia: se você os observar em detalhe, 
verá que também são irregulares e me- 
recem uma boa inspeção. 

Isso parece um exercício absurdo — 
afinal, ninguém precisa de uma medida 
desse tipo com tamanha precisão. Mas, 





por meio do exemplo dado, pudemos 
constatar algo importante: a exatidão da 
medida de uma superfície irregular de- 
pende do tamanho do instrumento de 
medida de que dispomos. 

A ciência tradicional trabalha com 
modelos de curvas e superfícies lisas. À 
medida que as olhamos mais de perto, 
mais elas adquirem a forma plana — do 
mesmo modo que a superfície da terra 
é aproximadamente esférica e nós a per- 
cebemos como sendo chata. 

Porém, como ficou claro no exemplo 
da costa rochosa, alguns objetos não se 
mostram planos nem quando examina- 
dos de muito perto. E existem muitos 
outros exemplos na natureza de confi- 
gurações que possuem detalhes diferen- 
tes em cada dimensão de sua estrutura. 
Porém, apenas recentemente os cientis- 














FIGURAS GEOMÉTRICAS 

MEDIC; 

AUTO-SEMELHAN 
DIMENSÕES FRACIONADAS 
De = O ERMECO 


tas e matemáticos tomaram consciência 
da importância do estudo desses obje- 
tos e criaram modelos para suas estru- 
turas — uma série de figuras geométri- 
cas denominadas figuras de dimensões 
fracionadas, ou fractais. 

Um dos primeiros pesquisadores a 
estudá-las foi o norte-americano Benoit 
Mandelbrot que reconheceu nessas figu- 
ras um fecundo campo de trabalho, 
muito apropriado à concepção de mo- 
delos para objetos naturais irregulares. 


jap RU oa go) 


Se você tomar dois pedaços de corda 
do mesmo tamanho e uni-los por uma 
das pontas, poderá dizer que obteve 
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uma cópia do pedaço original com o do- 
bro do tamanho. No caso de uma folha 
de papel, porém, serão necessárias ou- 
tras três folhas para se obter uma com 
o formato da original mas com o dobro 
da extensão; com uma barra de rapadu- 
ra, você irá precisar de mais sete cubos. 

Os números 2, 4 e 8 são parte de uma 
segiiência formada por meio da multi- 
plicação do 2 por ele mesmo diversas ve- 
zes — 2, 2x2 e 2x2x2, ou 211, 212€ 213. 
A potência à qual está elevado o 2 equi- 
vale à dimensão do objeto. 

Como vimos, para alcançar o dobro 
de seu tamanho, um objeto unidimen- 
sional (a corda) tem que ser multiplica- 
do por dois; um objeto bidimensional 
(a folha) deve ser multiplicado por qua- 
tro e assim por diante. Suponhamos 
agora que, para duplicar o tamanho de 
certo objeto, sejam necessários três 
exemplares idênticos. Como esse núme- 
ro está entre dois (equivalente a uma di- 
mensão) e quatro (correspondente a 
duas dimensões), deduzimos que a di- 
mensão do objeto está entre 1 e 2. 

À primeira vista, tal situação parece 
improvável — embora correta, em ter- 
mos lógicos. Mas o estudo das dimen- 
sões fracionadas pode mesmo nos levar 
a resultados surpreendentes. 

O matemático alemão Von Koch foi 
um dos primeiros estudiosos a desenhar 
um diagrama representando esse tipo de 
ocorrência: trata-se da chamada curva 
floco de neve (muito semelhante a um 
floco de neve visto ao microscópio). Ca- 
da um dos lados dessa curva é formado 
por quatro cópias dela mesma, com um 
terço do seu tamanho. A dimensão, nes- 
se caso, é um pouco acima de 1,26. Vá- 
rias formas da natureza, como a própria 
costa rochosa, podem ser vistas como 
uma figura dessas. 

Como todos os modelos matemáti- 
cos, a curva de dimensão fracionada — 
de definição muito precisa — não é ca- 
paz de descrever com perfeição a gran- 
de diversidade de objetos naturais, 
limitando-se a uma aproximação. É, po- 
rém, muito útil na explicação de diferen- 
tes estruturas — de veias do corpo hu- 
mano a montanhas, rios ou árvores. 


po RS a a 


Voltemos um pouco ao exemplo da 
corda, do papel e da rapadura. Cada um 
desses objetos poderia ser formado por 
várias cópias menores idênticas. Estaria- 
mos então diante de um caso de auto- 
semelhança, onde cada parte do objeto 
é uma cópia menor do original. 

As figuras criadas por Von Koch 
constituem uma aplicação muito rígida 


desse princípio, o que explica a extrema 
regularidade de sua forma. Os exempla- 
res naturais não apresentam necessaria- 
mente auto-semelhança — é fácil cons- 
tatar que um pedaço da casca de uma 
árvore, por exemplo, não é uma peque- 
na cópia da casca inteira. Entretanto, ele 
poderia estar em alguma outra parte da 
casca, pois todos os pedaços se parecem 
muito. Esse fenômeno, denominado 
auto-semelhança estatística, é muito co- 
mum na natureza. 


DI SD TT 


Como tantos modelos matemáticos, 
esse tipo de curva pode ser programado 
em seu micro para simular a realidade, 
evidenciando algumas de suas caracte- 
rísticas. No estudo dos fractais, especi 
ficamente, a computação gráfica tem si- 
do amplamente utilizada, oferecendo a 
solução ideal para o problema da gera- 











ção de figuras irregulares, tais como 
montanhas, mares e uma série de outros 
elementos da natureza. 

A recursão constitui um excelente 
meio para a aplicação do princípio da 
auto-semelhança que envolve a constru- 
ção de uma figura através de figuras 
idênticas menores. No caso, uma sub- 
rotina principal se encarregará de dese- 
nhar os vários elementos idênticos em 
diferentes tamanhos. 

Se você quiser obter uma curva seme- 
lhante à curva floco de neve bastará es- 
colher uma figura bem simples e repeti- 
la várias vezes, em diversas escalas, adi- 
cionando mais e mais detalhes a cada ní- 
vel de tamanho. Experimente, por exem- 
plo, tomar uma reta e aplicar a regra que 
prescreve: “toda linha reta deve ser 
substituída por um par de retas em ân- 
gulo reto”. 

Se você tentar fazer isso em uma fo- 
lha de papel, verá que a cada passo mais 
detalhes são introduzidos no desenho. 








O programa que apresentamos a seguir 
faz uma demonstração desse processo. 
Como todos os gráficos elaborados con- 
forme o modelo de dimensão fraciona- 
da, nosso desenho poderia se estender 
infinitamente. Porém, como não temos 
uma capacidade gráfica muito grande, 
os detalhes nos passariam despercebi- 
dos, da mesma maneira que as irregu- 
laridades de um grão de areia. Portan- 
to, O programa irá parar assim que al- 
cançar um certo nível de recursão. 


10 BORDER O: 
O: INK 7: CLS 
20 LET mn=2 
30 LET c=PI/180 

40 LET 1=120: LET x=70: 
=50: LET an=PI/2 
45 PLOT INVERSE 1; 


BRIGHT 1: PAPER 


LET y 


OVER li;x, 


Y 
50 GOSUB 1000 
80 STOP 


1000 LET 1=1/1.414 

1010 IF I<mn THEN LET 1=1*1.41 
4: LET x=x+(1*SIN (an)): LET y= 
y-(1*COS (an)): DRAW x-PEEK 236 
77 ,Yy-PEEK 23678: RETURN 

1020 LET an=an+PI/4: GOSUB 1000 
1030 LET an=an-PI/2: GOSUB 1000 
1040 LET an=an+PI/4: LET 1=1*1., 
414: RETURN 


10 PMODE 4,1:PCLS:SCREEN 1,1 
20 
30 TN(1)/45:PI=4*ATN(1) 
40 L=120:X=70:Y=140:AN=PI/2 
45 LINE-(X,Y),PRESET 
GOSUB 1000 
coTo 60 
1000 L=L/1.414 
1010 IF L<MN THEN L=L*1.414:X=X 
+(L*SIN(AN)) :Y=Y+(L*COS(AN)):LI 
NE-(X,Y), PSET: RETURN 
1020 AN=AN+P1/4:GOSUB 1000 
1030 AN=AN-PI/2:GOSUB 1000 
1040 AN=AN+PI/4:L=L*414:RETURN 


[é] 


10 HGRZ 

20 MN = 2 

30 C= ATN (1) / 45:PI = 4 * 

ATN (1) 

40 L= 

PI/2 

45 HPLOT X,Y TO X,Y 

50 GOSUB 1000 

60 coro 60 

1000 L =L/ 1.414 

1010 IF L<MNTHENL=L*1 

414:X = X + (L * SIN (AN)):Y = 
Y + (L* COS (AN)): HCOLOR= 3 
HPLOT TO X,Y: RETURN 


120:X = 70:Y = 140:AN = 


1020 AN = 

oo 

1030 = 

oo 
1040 
ala: 


hay 


10 SCREEN 2 

20 MN=2 

30 C=ATN(1)/45:PI=4*ATN(1) 

40 L=120:X=70:Y=140:AN=PI/2 

45 LINE-(X,Y),4 

50 GOSUB 1000 

60 coTo 60 

1000 L=L/1.414 

1010 IF L<MN THEN L=L*1.414:X=X 
+(LASIN(AN)):Y=Y+(L*COS(AN)) :LI 
NE -(X,Y) ,11:RETURN 

1020 AN=AN+PI/4:GOSUB 1000 

1030 AN=AN-PI/2:GOSUB 1000 

1040 AN=AN+PI/4:L=L*1.4]4:RETUR 
N 


AN + PI / 4: GOSUB 10 
AN - PI / 2: GOSUB 10 


AN = AN+PI/4:L=L*1 
RETURN 


O programa desenhará na tela uma 
curva em forma de C. Inicialmente, ele 
traça uma reta, que logo é substituída 
por um par de retas em ângulo reto. A 
sub-rotina entre as linhas 1000 e 1040, 
que usa SIN e COS para construir os ân- 
gulos necessários, é chamada na linha 
50. Em um processo recursivo, ela cha- 
ma a mesma repetidamente, para 
substituir as linhas retas por pares de re- 
tas perpendiculares. 

A variável da linha 20 contém o com- 
primento da linha mais curta — a recur- 
são será encerrada quando alcançar es- 
se valor. Tente mudá-lo e observe o efei- 
to resultante: valores menores aumen- 

















tam o número de níveis de recursão e, 
em conseqiência, o tempo de execução. 
Mas, se introduzirmos valores maiores, 
o programa será acelerado e poderemos 
visualizar melhor o processo de elabo- 
ração do gráfico. 

Se você acompanhar o desenvolvi- 
mento da figura na tela com atenção, ve- 
rificará que cada parte da curva se pa- 
rece com a própria curva (princípio da 
auto-semelhança). Apesar disso, não é 
fácil antever, logo no início, a forma 
que ela irá adquirir. 
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RAG; 


Quando trabalhamos com curvas de 
dimensão fracionada, poucas linhas de 
programa são necessárias para produzir 
uma bela figura — sobretudo se utilizar- 
mos a recursão. Digite e execute o pró- 
ximo programa para obter uma curva 
em forma de dragão. 

No programa anterior, cada reta era 
substituída por um par de retas perpen- 
diculares, traçadas sempre em uma mes- 
ma direção. Neste programa, porém, 
pares de retas são colocados alternada- 
mente de um e de outro lado de cada re- 
ta, até formar a figura final. 


10 BORDER O: PAPER O: INK 7: 
CLS : CLEAR 30000: LET S= 


32767: DEF EN A(X)=(X/8-INT ( 
x/8))*8 

20 LET MN=1: LET A=0 

30 LET C=ATN (1)/45: DIM S(10 
): DIM C(10) 


40 FOR I=1 TO 8: LET S(I)=SIN 
A 


50 LET C(I)=COS A: LET A=A+PI 
/4: NEXT I 

60 LET L=128: LET X=52: LET Y 
=80: LET T=-1: POKE S,T+1: 
LET S=S-1 

65 DRAW INVERSE 1; OVER 1;X- 


PEEK 23677,Y-PEEK 23678 

70 GOSUB 1000 

Bo STOP 
1000 LET L=L/1.414 
1010 IF L<MN THEN LET L=L*1.41 
4: LET X=X+(LXC(I)): LET Y=Y-(L 
*S(1)): DRAW X-PEEK 23677,Y-PEE 
K 23678: RETURN 
1020 LET I=FN A(I+T): POKE S,T+ 
1: LET S=S-l: LET T=1: GOSUB 10 
DO: LET S=S+1l: LET T=(PEEK S)-1 
1030 LET I=FN A(I-2*T): POKE S, 
T+l: LET S=S-1: LET T=-1: GOSUB 
1000 
1040 LET S=S+1: 
1: LET I=EN A(I+T): 
14: RETURN 





LET T=(PEEK S)- 
LET L=L*1.4 





10 PMODE 4:PCLS:SCREEN 1,1:CLEA 


R 200,30000:5=32767 
20 MN=1 

30 C=ATN(1)/45:PI=4*ATN(1) 
40 FOR I=0 TO 7:S(I)=SIN(A) 
50 C(I)=COS(A): : NEXT 
60 L=128:X=52:Y=80:T= 
T+1:S=S-1 

65 LINE -(X,Y), PRESET 
70 GosuB 1000 

80 GoTo 80 

1000 L=L/1.414 

1010 IF L<MN THEN L=L*1.414:X=X 
+(LXC(I)) :Y=Y-(LH(S(I)) :LINE-(X 
+Y), PSET:RETURN 

1020 I=(I+T) AND 7:POKE S,T+1:S 
=S-1:T=1:GOSUB 1000:5=S+1:T=PEE 








K(S)-1 
1030 I=(I-2*T)AND7:POKE S,T+1:S 
eg-1:Te OSUB 1000 





1040 S=S+1:T=PEEK(S)-1:I=(I+T) 
AND 7:L=L*1.414:RETURN 


[66] 


10 S = 900 

20 HGRZ :MN = 1 

30 C= ATN (1) / 45:PI = 4 * 
ATN (1) 

40 FORI=OTOJZ:S(I)= SIN 
(a) 

50 C(I) = COS (AJ:A = A + PI / 
4: NEXT 

60 L = 128:X = 52:Y = 80:T = -— 
1: POKE ST + 1:S=S-1 

65 HCOLOR= HPLOT X,Y TO X,Y 





70 GOSUB 1000 

80 coro 80 

1000 L=L/ 1.414 

1010 TF L < MN THENL =L 
414;X = X + (LA C(I)):Y = 
(L * S(1)): HPLOT TO X,Y: 
BN 

1020 1 = 
EITA Bda 
S- 1:T = 1: GOSUB 1000:5 = 5 + 
1:T = PEEK (8) - 1 

LOIDLT ATOS 20 Dy = Bm IN 
T(I-2*7T) 4 8)): POKES,T 
+ 1:89 = S-1:T= - 1: GOSUB L 
000 

1040 S = S+ 1:T = PEEK 
1:31 = ((I + T) AND 7):L 
«414: RETURN 


ha 


10 SCREEN 2:CLEAR 200,50000!:5= 
527671 

20 MN-=1 

30 C=ATN(1)/45:PI=4*ATN(1) 

40 FOR 1=0 TO 7:S(I)=SIN(A) 

50 C(I)=COS(A) :A=A+PT/4:NEXT 

60 L=128:X=52:Y=80:T=-1:POKE S, 
T+1:S=S-1 

65 LINE -(X,Y),4 

70 GOSUB 1000 

80 coTo 80 

1000 L=L/1.414 

1010 IF L<MN THEN L=L*1.414:X=X 
+(LXC(I)) :Y=Y-(L*S(I)):LINE -(X 
+Y),11:RETURN 

1020 I=(I+T) AND 7:POKE S,T+1:S 


GEE) SB 
POKE S,T + 





(8) - 
=L*I 





















Existe alguma aplicação prática para os 
fractais? 

Os fractais são uma descoberta re- 
lativamente recente da matemática e 
das ciências da computação. Assim, há 
muito a ser investigado acerca de seu 
funcionamento e as aplicações práticas 
ainda são bastante restritas. Os frac- 
tais oferecem aos artistas e cientistas 
a possibilidade de representar as for- 
mas irregulares, típicas da natureza, e 
já têm marcado sua presença no mun- 
do das artes gráficas, cinema, televi- 
são etc. Grandes empresas de televi- 
são, por exemplo, estão utilizando frac- 
tais randômicos para gerar em compu- 
tador fantásticas paisagens e cenários, 
terrestres ou extraterrestres. A simu- 
lação fractal apresenta a vantagem de, 
com pequenas mudanças nos parâme- 
tros do programa, produzir efeitos to- 
talmente diferentes na tela. 

Outra aplicação prática interessan- 
te dos fractais é o desenho de cenários 
complexos em simuladores de vôo. A 
Força Aérea norte-americana já dispõe 
de programas que permitem gerar o ce- 
nário de uma batalha aérea entre mon- 
tanhas escarpadas, sobre desertos 
etc., para treinar o piloto de helicópte- 
ros ou caças. 



























=5-1:T=1:GOSUB 1000:5=S+1:T=PEE 
K(s)-1 

1030 I=(I-2*T) AND 7:POKE S,T+1 
:8=S-1:T=-1:GOSUB 1000 

1040 S=S+1:T=PEEK(S)-1:I=(I+TJA 
ND 7:L=L*1.414:RETURN 





Esse programa difere do anterior 
quanto à regra de formação do desenho 
e, também, quanto à velocidade de exe- 
cução. Em vez de elaborar o ângulo ca- 
da vez que um elemento é traçado, o 
programa calcula o seno e o co-seno dos 
ângulos (linhas 40 e 50) e coloca os va- 
lores obtidos em duas matrizes. Recu- 
perar esses valores em uma matriz é bem 
mais rápido que calculá-los sempre que 
uma linha é reconstruída. 

A curva em C e a curva do dragão 
não são apenas curiosidades matemáti- 
cas. Além de muito bonitas, elas cons- 
tituem um interessante objeto de estu- 
do. Procure, por exemplo, alterar al- 
guns valores dentro dos dois programas. 
Você obterá, então, um estoque inesgo- 
tável de novas formas. 











DOMINE O VÍDEO 


DO MSX 


O MSX difere dos demais micros por 
possuir um microprocessador e uma 
memória de dezesseis kbytes dedicados 
só ao controle da tela. Desvende os 
segredos da VRAM e sinta a diferença! 


ários dos micros MSX en- 
frentam dificuldades em utilizar coman- 
dos como BASE, VPEEK e VPOKE. 
Para melhor aproveitar esses recursos da 
linguagem BASIC, temos inicialmente 
que entender como é organizada a me- 
mória de vídeo — VRAM —, um item 
desprezado pela maioria dos manuais. 

O MSX possui um chip independen- 
te da unidade central de processamento 





Muitos u 











TELA DE QUARENTA COLUNAS 
VPEEK E VPOKE 
FORMATO DAS LETRAS 
TABELA DE PADRÕES 
NOVOS CARACTERES 





(CPU) destinado exclusivamente ao con- 
trole da tela. Conhecido como VDP (Vi- 
deo Display Processor), ele gera imagens 
a partir de dados armazenados nos de- 
zesseis kbytes de uma memória indepen- 
dente da RAM (memória de acesso di- 
reto, onde ficam armazenados o progra- 
ma BASIC e as variáveis). Dessa forma, 
a utilização de gráficos multicoloridos 
de alta resolução não compromete a 
quantidade de memória disponível, co- 
mo acontece com outros micros. 


3 WIRE 


Ao ligarmos um microcomputador 
da linha MSX, observamos uma tela de 
textos em que cada linha acomoda, teo- 





ricamente, quarenta caracteres. Se isso 
não ocorrer em seu micro, digite o co- 
mando SCREEN 0. 

A tela — quer contenha textos, lista- 
gens de programas ou simbolos gráficos 
— é simplesmente uma reprodução da 
parte da VRAM denominada Tabela de 
Nomes (TN). Essa área da memória de 
vídeo possui 960 bytes de comprimen- 
to, correspondentes aos 960 caracteres 
que podem ser mostrados na tela simul- 
taneamente (são 24 linhas com quaren- 
ta caracteres cada uma). 

Cada uma dessas posições pode con- 
ter um número qualquer entre O e 255, 
número que é interpretado pelo VDP 
como o código ASCII (sigla de Ameri- 
can Standard Code for Information In- 
terchange) de um caractere. 

















dA GAS 


Em qualquer micro, o comando PO- 
KE do BASIC nos permite armazenar 
um número entre O e 255 numa posição 
da RAM. Da mesma forma, o conteú- 
do de qualquer endereço da RAM ou da 
ROM é obtido com o comando PEEK. 

Como a VRAM não depende da 
RAM, necessitamos de comandos que 
nos possibilitem ler ou escrever bytes di- 
retamente na memória de vídeo, ou se- 
ja, VPEEK e VPOKE. Experimente es- 
sa nova forma de escrever na tela: 


10 CLS 
20 VPOKE 417,77 
30 VPOKE 419,83 
40 VPOKE 421,88 
50 END 


Esse programa coloca diretamente 
nas posições 417, 419 e 421 os códigos 
das letras M, Se X. O VDP transforma 
o código da Tabela dé Nomes no carac- 
tere correspondente, que é imediatamen- 
te reproduzido na tela. 

Para conferir, digite: 


PRINT VPEEK (417) 
PRINT VPEEK (419) 
PRINT VPEEK (421) 


Estes comandos diretos recuperam os 
códigos das letras M, S e X diretamente 
da Tabela de Nomes. Se você não gosta 
muito de códigos, obtenha as letras cor- 
respondentes utilizando: 


PRINT CHRS(VPEEK (417)) 
PRINT CHRS$(VPEEK (419)) 
PRINT CHRS(VPEEK (421)) 


Depois de familiarizado com o fun- 
cionamento desses dois comandos, o 
usuário poderá ter acesso às quarenta 
colunas da tela (o que não é possível por 
intermédio do comando PRINT). Mui- 
tos leitores já devem ter observado que 
o texto começa a ser escrito a partir da 
segunda coluna, reduzindo, portanto, o 
espaço total em uma coluna. 

Para ilustrar isso, note que 


LOCATE 0,10:PRINT "*" 








imprime um asterisco na segunda colu- 
na, deixando um espaço vazio à esquer- 
da, enquanto os comandos 


LOCATE 38,10:PRINT 





x 


e 
LOCATE 39,11:PRINT "x" 


imprimem asteriscos na mesma coluna. 
Use o seguinte programa para ocupar 
a primeira coluna da tela: 


10 SCREEN 0:KEY OFF 


20 FOR I=0 TO 959 STEP 40 
30 VPOKE BASE (0)+1,207 
40 NEXT 


A linha 10 seleciona a tela de textos 
e apaga os rótulos das teclas de função 
da parte inferior do vídeo. Um laço 
FOR..NEXT entre as linhas 20 e 40 co- 
loca várias vezes o caractere de código 
207 na primeira posição de cada linha. 
Deve-se ressaltar que, apesar de termos 
usado a instrução BASE(0) na linha 30, 
ela é perfeitamente dispensável, uma vez 
que seu valor é zero. 








0) 





[OR SERRAS 





Vimos até agora que, ao se colocar um 
número dentro da Tabela de Nomes, o 
VDP imediatamente o interpreta como 
o código ASCII de uma letra ou de um 
símbolo. Como o processador sabe o for- 
mato de cada uma das letras do alfabeto? 

O leitor já deve ter notado que as 
tras que aparecem no vídeo da TV s: 
compostas por pequenos pontos. Cada 
caractere tem seu perfil — ou padrão — 
desenhado em um quadrado com oito 
pontos de lado, Este padrão é codifica- 
do em números binários (formados por 
zeros e uns), a fim de que o computa- 
dor possa compreendê-lo. Se fizermos 
com que os “uns” correspondam aos 
pontos acesos e os “zeros”, aos apaga- 
dos, poderemos cod! r todos os per- 
fis. Como um número binário entre O e 
255 tem no máximo oito algarismos, ca- 
da caractere será representado através de 
uma série de oito números binários me- 
nores que 255, ou seja, oito bytes. 

Para que o VDP reconheça o formato 
dos caracteres, uma porção da VRAM é 
separada para armazenar os 2048 bytes 
necessários para representar os 256 sim- 
bolos existentes (256*8 =2048). Esta 
parte da memória de vídeo é chamada 
de Tabela de Padrões e começa no en- 
dereço 2048 da VRAM. 


Para que o usuário não confunda os 
endereços da RAM e da VRAM, o BA- 
SIC do MSX oferece a instrução BASE, 
que evita a memorização dos endereços 
e permite modificar a posição das tabe- 
las. Assim, para a tela de textos de qua- 
renta colunas, o endereço inicial da Ta- 
bela de Nomes está em BASE (0) e o da 
Tabela de Padrões em BASE (2). 
Confira: 

PRINT BASE(0) 























e 


PRINT BASE(2) 


AESA O 


Visando a uma melhor compreensão 
da Tabela de Padrões, mostraremos um 
pequeno programa que nos facilitará o 
acesso a essa região da VRAM. 

Ao ser executado, o programa impri- 
me na tela a porção da tabela que cor- 
responde a um caractere. São impressos 
também os endereços (com conteúdos 
em números decimal e binário) e o ca- 
ractere com seu código. Dessa forma, o 
leitor entenderá como os números biná- 
rios codificam o formato dos caracteres. 








10 Z5="00000000" 

20 SCREEN 0:KEY OFF 

30 J=520 

40 GOSUBL0O 

50 KS=INKEYS:IF K5="" THEN 50 
60 IF KS=CHR$(31) AND J<2040 TH 
EN J=J+B 

70 IF K$=CHR$(30) 
J=J-B 


AND J>7 THEN 


























80 coro 40 
100 LOCATE 12,1:PRINT "CARACTER 


110 VPOKE 64,J/8 

120 LOCATE 10,3:PRINT "Código A 
SCII: ";J/8 

130 LOCATE 1,6:PRINT "Endereço” 
;TAB(14);"Conteúdo";7AB(27);"Co 
nteúdo” 

140 PRINT:PRINT TAB(3);"VRAM”;T 
AB(14);"Decimal”;TAR(27);"Binár 
io” 

150 PRINT 

160 FOR I=J TO J+7 

170 PRINT TAB(2);BASE(2)+I;TAB( 
15) ;VPEEK (BASE (2)+I) ; TAB(27);RI 
GHTS (ZS+BINS (VPEEK (BASE (2)+1)), 
8) 

180 NEXT 

190 RETURN 





A linha 10 cria uma variável auxiliar 
que permite a conversão decimal/bin 
rio. A linha 20 seleciona a tela de qua- 
renta colunas e apaga o rodapé com as 
teclas de função. 











A variável J controla a porção da Ta- 
bela de Padrões mostrada na tela, defi- 
nindo o caractere que tem seu padrão 
exibido. Seu valor inicial, determinado 
na linha 30, faz com que a primeira le- 
tra impressa seja o “A' — cujo código 
é 65 (65*8= 520). A linha 40 chama a 
sub-rotina que imprime a porção da ta- 
bela que nos interessa. As linhas 50 e 80 
permitem avançar ou retroceder dentro 
da Tabela de Padrões usando as teclas 
de controle do cursor. 

A sub-rotina que cuida da impressão 
dos dados na tela vai da linha 100 à 190. 
As linhas 100 e 110 imprimem o carac- 
tere em questão; a linha 120 imprime seu 
código e as linhas 130 a 150 encarregam- 
se do cabeçalho. 

O laço FOR..NEXT, da linha 160 à 
180, imprime o conteúdo dos oito bytes 
que determinam o padrão do caractere 
e seus endereços na VRAM. 

Depois de uma ligeira exploração da 
Tabela de Padrões, o leitor notará que 


os caracteres gráficos (aqueles que não 
são letras ou sinais de pontuação) sur- 
gem truncados no vídeo. A razão disso 
é a incapacidade do MSX de imprimir 
mais que 256 pontos horizontais. Essa 
limitação fica mais evidente quando pre- 
cisamos de uma resolução de 320 pon- 
tos na horizontal para representar qua- 
renta caracteres, cada um com oito pon- 
tos de largura. Assim, quando estamos 
em SCREEN 0, somente são mostrados 
os seis pontos — ou bits — mais à es- 
querda do padrão, suficientes para de- 
finir as letras mas não os caracteres grá- 
ficos, que muitas vezes utilizam até oi- 
to pontos. 








O formato das letras é definido na 
VRAM, e nada nos impede de modificá- 
lo, já que dispomos do comando VPOKE 
para executar tal tarefa. Confira: 


10 FOR 1=65*8 TO 91*8-1 

20 READ A:VPOKE BASE(2)+I,A 

30 NEXT 

40 FOR 1=97X8 TO 123*8-1 

50 READ A:VPOKE BASE(2)+I,A 

60 NEXT 

70 FOR 1=48*8 TO 58*8-1 

80 READ A:VPOKE BASE(2)+I,A 

90 NEXT 

100 END 

1000 DATA 120,72,72,200,248,200 
200,0 

1010 DATA 112,80,80,248,200,200 
+240,0 

1020 DATA 120,72,64,192,192,200 
+24B,0 

1030 DATA 112,72,72,200,200,200 
+240,0 

1040 DATA 120,64,64,240,192,192 
248,0 

1050 DATA 120,64,64,240,192,192 
+192,0 

1060 DATA 120,64,64,216,200,200 
,248,0 

1070 DATA 72,72,72,248,200,200, 
200,0 

1080 DATA 16,16,16,48,48,48,48, 


o 
1090 DATA 48,16,16,24,152,152,1 
1100 DATA 72,72,80,224,208,200, 


1110 DATA 64,64,64,192,192,192, 
248,0 

1120 DATA 68,108,84,196,196,196 
196,0 

1130 DATA 72,104,104,216,216,21 
6,200,0 

1140 DATA 120,72,72,200,200,200 
.248,0 

1150 DATA 120,72,72,248,192,192 
192,0 

1160 DATA 120,72,72,200,200,216 
.248,4 

1170 DATA 112,72,72,248,208,200 











+200,0 
1180 DATA 
248,0 
1190 DATA 






0 

1200 DATA 
248,0 
1210 DATA 
0,32,0 
1220 DATA 
0,40,0 
1230 DATA 
00,0 

1240 DATA 
48,0 

1250 DATA 
+248,0 
1260 DATA 
8,0 

1270 DATA 
00,248,0 
1280 DATA 


8,0 

1290 DATA 
248,0 
1300 DATA 
8,0 

1310 DATA 
92,0 

1320 DATA 
200,248 
1330 DATA 
200,0 
1340 
1350 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
+248,0 
1530 DATA 


o 
1540 DATA 
248,0 


112,80,64,120,24,152, 
248,32,32,32,96,96,96 
72,72,72,200,200,200, 
200,200,200,200,200,8 
196,196,212,212,212,4 
80,80,80,32,208,200,2 
136,136,136,80,48,48, 
120,72,16,224,192,200 
0,0,112,16,240,208,24 
128,128,128,240,200,2 
0,0,112,64,192,192,24 
16,16,112,80,208,208, 
0,0,112,80,240,192,24 
48,80,64,64,240,192,1 
0,240,144,224,64,248, 
64,64,64,248,200,200, 


16,0,16,16,48,48,48,0 
16,0,16,16,24,152,152 


0,64,72,80,224,208,20 
32,32,32,96,96,96,112 
0,0,128,208,168,168,1 
0,0,64,112,200,200,20 
0,0,112,200,200,200,1 
0,0,120,72,200,248,19 
0,0,240,144,144,248,2 
0,0,80,104,192,192,19 
0,0,112,64,56,136,248 
32,32,112,32,32,96,11 
0,0,72,72,200,200,248 
0,0,200,200,200,80,32 
0,0,136,168,168,168,8 
0,0,80,80,32,208,200, 


0,0,72,72,48,48,48,0 
0,0,120,8,112,96,120, 


120,72,72,216,232,200 
32,96,32,48,48,48,48, 
120,72,8,248,192,200, 


1550 DATA 112,16,16,120,24,152, 
248,0 

1560 DATA 144,144,144,248,24,24 
,24,0 

1570 DATA 240,128,128,248,24,24 
,248,0 

1580 DATA 112,64,64,248,200,200 
,248,0 

1590 DATA 224,32,32,48,48,48,48 
0 

1600 DATA 112,80,80,248,152,152 
+248,0 


1610 DATA 240,144,144,248,24,24 
,248,0 


O conjunto de letras futuristas per- 
manece à disposição do usuário até que 
o micro seja desligado ou receba um co- 
mando SCREEN. 

O programa é composto de três laços 
FOR...NEXT e um grande número de 
linhas DATA, cada uma com oito bytes 
que definem o padrão dos símbolos. 

O primeiro laço — que vai da linha 
10 a 30 — modifica os padrões das le- 
tras maiúsculas (códigos ASCII de 65 a 
90). O segundo laço — linhas 40 a 60 
— cuida das minúsculas (códigos 97 a 
122) e o terceiro — linhas 70 a 90 — dos 
números (48 a 57). Não incluímos carac- 
teres acentuados para não estender mui- 
to as linhas DATA. Entretanto, se o lei- 
tor compreender bem o funcionamento 
do programa, não terá dificuldade em 
criá-los, completando assim o conjunto, 

O programa que explora a Tabela de 
Padrões poderá ser aplicado para que se 
conheça mais detalhadamente os carac- 
teres recém-criados. 

Em contraste com o traço de van- 
guarda desses símbolos artificiais, cria- 
mos um segundo conjunto, dessa vez em 
letras de fôrma. As próximas linhas de- 
verão ser acrescentadas ao programa an- 
terior, formando um maior, que será 
completado no final do artigo. 


5 RESTORE 
1620 DATA 
2,0 
1630 
8,0 
1640 


1620 
16,40,72,72,120,72,13 


DATA 120,36,36,56,36,68,24 


DATA 24,36,64,64,64,68,56, 


o 
1650 
8,0 
1660 


DATA 120,36,36,36,36,68,24 


DATA 24,36,32,56,64,68,56, 
0 
1670 
0 
1680 
«112 
1690 
2,0 
1700 
1710 


DATA 60,72,16,16,60,144,96 


DATA 24,36,64,68,68,60,136 
DATA 68,72,72,72,120,72,13 


DATA 
DATA 


8,24,40,8,8,16,224,0 
60,72,8,8,8,136,144,9 
DATA 68,72,80,96,80,72,132 


DATA 32,64,64,64,64,68,248 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


40,84,84,84,84,84,132 
68,68,100,84,76,68,13 
24,36,68,68,68,72,48, 
120,36,36,36,120,32,1 
24,36,68,68,116,72,52 
120,36,36,36,120,40,1 
24,36,64,56,4,136,112 
124,16,16,16,16,32,19 
72,72,72,72,72,72,52, 
76,72,72,72,72,80,32, 
68,84,84,84,84,84,40, 
68,36,40,16,40,72,132 
68,36,36,36,24,16,224 
60,68,8,124,32,68,248 
0,0,56,72,136,136,116 
32,64,64,120,68,68,24 
0,0,24,36,64,64,188,0 
4,4,28,36,68,68,188,0 


0,0,56,68,72,48,220,0 
8,20,32,32,32,252,32, 





0,0,60,68,68,184,8,11 
32,32,40,52,36,100,16 
16,0,16,16,16,48,204, 
8,0,24,40,72,140,8,11 
16,32,36,40,48,40,196 
16,40,40,40,40,16,236 


0,0,40,84,84,84,132,0 
0,0,88,100,68,68,132, 


0,0,28,36,92,68,184,0 
0,0,56,36,36,252,32,3 


0,0,56,68,68,188,4,4 
0,0,32,60,36,68,132,0 
0,32,48,40,36,68,152, 


36,16,124,16,16,48,20 


0,0,68,68,68,68,188,0 
0,0,76,72,72,80,160,0 
0,0,196,84,84,84,40,0 
0,0,68,40,16,40,196,0 
0,0,36,36,36,252,8,11 


0,0,124,4,56,64,252,0 
24,36,76,84,100,72,48 


8,24,8,16,16,32,112,0 
56,68,36,8,48,100,88, 


DATA 
DATA 
DATA 
DATA 12,16,32,120,68,68,56 


60,4,8,16,32,64,64,0 
56,68,68,56,68,68,56, 


DATA 
DATA 
.56,8,112, 


DATA 24,36,68,68 


O programa utilizado é o mesmo, 
com alterações apenas nas linhas DA- 
STORE 


TA. O comando Ri 1620 fi 
com que o comando RE, 


tura a partir da linha DATA 1620. 


ip Ro RR a 


A VRAM tem 16384 bytes de com- 
primento, dos quais utilizamos apenas 
3008 quando estamos no modo 

RE O (2048 para a Tabela de Pa- 
drões e 960 para a de nomes). Esse es- 
paço ocioso pode ser aproveitado para 
armazenar conjuntos de caracteres e có- 
pias da tela. O segredo do processo con- 


siste na atribuição de novos valores p 
as instruções BASE(0) e BASE(2). 
As linhas seguintes devem ser adicio- 

nadas aos dois programas anteriores, 

formando, assim, um terceiro. É neces- 
sário apagar as linhas 5 a 100 com DE. 

LETE 5-100. Além disso, o programa 

precisa ser gravado antes de ser testado, 

a fim de permitir correções posteriores, 

no caso de ter ocorrido qualquer erro de 

digitação 


10 SCREEN 3:SCREEN 0:KEY OFF 
20 FOR I=0 TO 2047 

30 A=VPEEK (BASE (2)+1) 

40 VPOKE 4096+I,A 

50 VPOKE 6144+1,A 

60 NEXT 

100 FOR 65*8 TO 91*8-1 
110 READ A:VPOKE 4096+1,A 
120 NEXT 

130 FOR 7*8 TO 123*8-1 
140 READ A:VPOKE 4096+1,A 
150 NEXT 

160 FOR 1=48*8 TO 58*8-1 
170 READ A:VPOKE 4096+I,A 
180 NEXT 

200 FOR 548 TO 91*8-1 
210 READ A:VPOKE 6144+1,A 
220 NEXT 

230 FOR 1=97*8 TO 123*8-1 


240 
250 
260 
270 
280 


READ A:VPOKE 61]44+1,A 

NEXT 

FOR 1=48*B TO 57*8-1 

READ A:VPOKE 6144+1,A 

NEXT 

J=0:GOSUB 360 

FOR J=8192 TO 16300 STEP 10 


BASE (O 

GOSUB 3 

NEXT J 

goto 420 

FOR I=0 TO 959 

IF 1>439 AND I<560 THEN VPO 
KE BASE(0)+1,32:NEXT 
370 VPOKE BASE(0)+I,194+J/1024 
380 NEXT: AS="Esta Tela Se Inic 
ia Em"+STRS (J) 
390 FOR I=1 TO LEN(A$) 
400 VPOKE BASE(0) +486+I, ASC(MID 
S(AS,1,1)) 
410 NEXT:RETURN 
420 BASE(0)=0:BASE(2)=2048 
430 KS=INKEYS:IF K$="" THEN 430 
440 IF KS=CHR$(31) AND BASE(0)> 
8192 THEN BASE (0)=BASE(0)-1024: 
Goro 430 
450 IF KS=CHR$(31) AND BASE(0)= 
8192 THEN BASE(0)=0:GOTO 430 
460 IF K$=CHR$(30) AND BASE(0)> 
O AND BASE(0)<15000 THEN BASE(O 
)=BASE (0) +1024: 








470 IF K$=CHR$(30) AND BASE(0)= 
O THEN BASE (0)=8192:GOTO 430 
480 IF KS=CHRS(29) AND BASE(2)> 
2048 THEN BASE (2)=BASE(2)-2048: 
goto 430 

490 IF KS=CHRS(28) AND BASE(2)< 
6144 THEN BASE(2)=BASE (2) +2048: 
GoTo 430 

500 IF KS=CHRS(27) 
=0:BASE(2)=2048:END 
510 Goro 430 


THEN BASE(O) 


O objetivo desse programa é mostrar 
como usar toda a área da VRAM mes- 
mo em SCREEN 0. Ao ser executado, 
o programa gasta um longo período len- 
do as linhas DATA do final da listagem. 
A seguir observamos que o vídeo é 
preenchido sucessivas vezes com carac- 
teres diversos. Uma mensagem aparece 
no centro de cada tela, mas é apagada 
antes que possa ser lida. Isso acontece 
porque o programa está criando, na par- 
te ociosa da VRAM, “'telas secundá- 
rias! que, de certa forma, coexistem 
com as demais telas. Elas podem ser re- 
cuperadas logo após a parada do pro- 
grama através das teclas do cursor. 

O programa também já tem prontas 
três cópias da Tabela de Padrões, cada 
qual com um tipo de caractere, o que 
nos permite mudar o aspecto das letras 
recorrendo às teclas do cursor. 

Para interromper o programa, use a 
tecla <ESC>. Se o programa for inter- 
rompido dessa maneira, ou porque 
ocorreu alguma mensagem de erro, e ele 
estiver em uma tela diferente da origi- 
nal, o cursor de texto não retornará à 
tela e o programa parecerá estar blo- 
queado. Para fazer o micro voltar ao 
normal, digite às cegas (nada aparecerá 
no vídeo) o comando abaixo: SCREEN 0 


SCREEN 0 
e pressione a tecla <ENTER>. 





Na linha 10, selecionamos o modo de 
textos e apagamos o rodapé da tela. O 
laço FOR...NEXT entre as linhas 20 e 
60 cria duas cópias da Tabela de Pa- 
drões, que começa normalmente em 
2048. As outras duas cópias terão ende- 
reços iniciais 4096 e 6144, respectiva- 
mente. Os laços seguintes obtêm nas li- 
nhas DATA os padrões que serão mo- 
dificados. As cópias da tabela original 
são necessárias, porque apenas as letras 
e os números são redefinidos, excluindo- 
se, portanto, os demais símbolos. 

As linhas 100 a 180 criam as letras fu- 
turistas na tabela que começa em 4096, 
enquanto as linhas 200 a 280 produzem 
as letras de fôrma, utilizando a tabela 


iniciada em 6144. Essas linhas se pare- 
cem muito com as primeiras do progra- 
ma responsável pela mudança do con- 
junto de caracteres. 

As telas secundárias são obtidas pe- 
las linhas 300 a 420. A variável J deter- 
mina o endereço inicial da tela produzi- 
da pela sub-rotina da linha 360. Assim, 
a primeira tela começando em O é cria- 
da pela linha 300. 

A sub-rotina iniciada a partir da li- 
nha 360 preenche as diferentes telas com 
vários caracteres gráficos usando o co- 
mando VPOKE na linha 370. Como 
código do caractere depende da variá- 
vel J, ele resultará diferente a cada no- 
va tela, Além disso, na linha 380 surge 
uma mensagem que identifica a tela 
através de seu endereço inicial. O laço 
das linhas 390 a 410, usando o coman- 
do VPOKE, imprime a mensagem. Es- 
ta se destaca por meio de um espaço cla- 
ro criado pela linha 365. 

A sub-rotina da linha 360 é chama- 
da pela primeira vez na linha 300, para 
criar a tela original. A posição da tela 
pode ser mudada através da repetição da 
linha 320 para diferentes valores da va- 
riável J. Nessa linha, a variável BASE(O) 
e, portanto, o endereço inicial da Tabe- 
la de Nomes, assume o valor J. Para ca- 
da nova tela, a sub-rotina 360 é chama- 
da outra vez pela linha 330, Depois de 
produzidas todas as telas secundárias, o 
programa prossegue na linha 420, onde 
os valores de BASE(0) e de BASE(2) são 
restituídos ao normal. 

A porção do programa que abrange 
as linhas 430 a 510 torna possível a exi- 
bição instantânea de cada uma das te- 
las criadas, escritas com qualquer dos 
três conjuntos de caracteres. Esta mu- 
dança é obtida pela atribuição de um no- 
vo valor a uma variável BASE. As linhas 
440 e 450 permitem “avançar” dentro 
da VRAM através da tecla “'seta para 
baixo”. Novas telas vão sendo mostra- 
das instantaneamente, à medida que se 
altera o valor de BASE(0). Por outro la- 
do, as linhas 460 e 470 possibilitam ““re- 
troceder” dentro da VRAM. São neces- 
sárias duas linhas para cada movimen- 
to, devido ao grande intervalo entre a 
tela original (endereço inicial 0) e as se- 
cundárias. Este espaço é ocupado pelas 
Tabelas de Padrões. 

Com as linhas 480 e 490 podemos 
mudar instantaneamente o conjunto de 
caracteres, alterando o valor de BA- 
SE(2), endereço inicial da Tabela de Pa- 
drões. Para isso, o programa detecta as 
teclas “*seta para a direita” e “seta pa- 
ra a esquerda”. 

A linha 500 possibilita terminar o 
programa sem maiores problemas atra- 
vés da tecla <ESC>. Essa linha resti- 





tui BASE(0) e BASE(2) aos seus valo- 
res iniciais antes de encerrar. 

Este programa poderia ser mais ilus- 
trativo se preenchêssemos cada tela se- 
cundária com um texto, de modo que 
parecessem páginas de um livro. Trata- 
se, entretanto, de uma tarefa difícil em 
razão da enorme quantidade de linhas 
necessárias. 


DERA EA 


Interrompido o programa, ainda é 
possivel obter uma mudança automáti- 
ca do conjunto de caracteres digitando: 





BASE (2)=4096 


ou 
BASE(2)=6144 


| Para recuperar o conjunto original, 
digite o seguinte: 


BASE (2)=2048 


ou 
SCREEN O 


Ao fazer isto, O usuário notará algo 
estranho no cursor: normalmente quan- 
do o sobrepomos a um caractere na te- 
la, esse caractere se inverte. Por exem- 
plo: se era claro sobre fundo escuro, tor- 
na-se escuro, sobre fundo claro. Quan- 
do mudamos a posição da Tabela de Pa- 
drões, entretanto, o cursor permanece 
como um espaço em branco, que apaga 
o caractere subjacente e desaparece na 
porção vazia da tela. 

A inversão do caractere sob o cursor 
é realizada na Tabela de Padrões, pelo 
sistema operacional do MSX. Isto se dá 
através das posições 2040 a 2047 da 
VRAM. Quando mudamos a BASE(2), 
o processo não é mais visível. 

Comandos como PRINT, TAB e 
LOCATE só funcionam quando a BA- 
SE(0) tem valor 0, ou seja, só imprimem 
na Tabela de Nomes em sua posição ori- 
ginal, Portanto, apenas por intermédio 
de VPOKE é possivel imprimir nas te- 
las secundárias; todas as mensagens de 
erro são impressas na Tabela de Nomes 
original, mesmo que uma tela secundá- 
ria esteja sendo mostrada no vídeo. 

Além de tudo isso, existem algumas 
limitações nos valores da instrução BA- 
SE. O endereço inicial de uma tabela de 
nomes — BASE(0) no caso de SCREEN 
0 — deverá ser múltiplo de 1024, Da 
mesma forma, o endereço inicial de uma 
tabela de padrões — -BASE(2) em 
SCREEN 0 — terá que ser múltiplo de 
2048. Voltaremos a este assunto opor- 
tunamente, quando explicarmos os re- 
gistros do chip de vídeo-VDP. 
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DESENHO 


ARQUITETÔNICO (1) 














B O MÉTODO TRADICIONAL 
E COMO USAR PAPEL E CANETA 
E TIRE AS MEDIDAS 
E DESENHOS E ESCALA 
a O GIRO DAS PEÇAS 





Deixe para o micro o trabalho “pesado” 
do planejamento de um ambiente. 

Com este projeto computadorizado, 
você pode distribuir seus móveis com 

o simples toque de algumas teclas. 


Conseguir uma melhor disposição 
dos móveis num ambiente nem sempre 
é algo fácil, e certamente é uma tarefa 





cansativa. Normalmente, optamos por 
arrastar a mobília de um lado para ou- 
tro, até encontrarmos a melhor posição 
para as diferentes peças. O desânimo 
aparece quando constatamos que nem 
tudo se encaixa nos espaços disponíveis. 
Um método mais simples consiste em 
fazer um planejamento prévio, dese- 
nhando cada móvel, com precisão, pa- 
ra em seguida adequá-los ao ambiente 
(obviamente é mais simples movimentar 
um retângulo que arrastar um sofá), 

































































Apresentamos aqui, entretanto, uma 
terceira alternativa ainda mais fácil e 
moderna, utilizando seu microcomputa- 
dor pessoal. O vídeo gráfico pode subs- 
tituir o trabalho do papel e da caneta, 
com a grande vantagem de permitir fá- 
ceis correções. Além disso, os detalhes 
da mobília podem ser armazenados na 
memória do computador, eliminando a 
necessidade de redesenhar uma peça ca- 
da vez que quisermos movê-la. 

O projeto computadorizado é seme- 
lhante ao projeto feito em papel. A pri- 
meira etapa consiste em se medir, de for- 
ma precisa, o local onde a mobília será 
colocada, já que em alguns ambientes 
poucos centimetros representam uma di- 
ferença significativa. 

De posse de todos os dados, incluin- 
do posições de portas e janelas, deve-se 
desenhar o ambiente (evidentemente em 
escala reduzida). O próximo passo é me- 
dir os móveis envolvidos no projeto e re- 
produzi-los na mesma escala usada pa- 
ra o desenho anterior. Dessa forma, se- 
rá fácil manipular as peças e saber com 























7? 















exatidão, por exemplo, qual a melhor 
posição para o piano na sala ou se a ge- 
ladeira caberá em um determinado can- 
to da cozinha. 

Apresentamos aqui apenas metade 
do programa, que é composto de sete 
opções. O restante virá no próximo 
artigo. 

As sete opções oferecidas no menu 
principal são as seguintes: 


Opção 1 - Reproduz o ambiente: to- 
mando por base sua maior medida, de- 
senha-o em escala que caiba na tela do 
micro. As dimensões devem ser indica- 
das em metros, junto com suas respec- 
tivas posições (Cima, Baixo, Esquerda, 
Direita). Na representação das paredes, 
consideraremos duas distâncias e duas 
direções, permitindo, assim, o desenho 





na diagonal. Na opção 1, especifica- 
mos também a posição das portas e 
janelas. 


Opção 2 - Possibilita a movimentação 
das peças da mobília já definidas no 
programa. São móveis de cozinha — tal- 
vez o ambiente mais difícil de ser pla 
nejado — e incluem armário, fogão, 
máquina de lavar louça, pia e geladei- 
ra, todos com medidas padronizadas. 
Qualquer alteração desejada deverá ser 
feita através da opção 3. O mesmo de- 
senho de uma peça poderá ser colocado 
em diferentes lugares. Dessa forma, é 
possível, por exemplo, dispor quatro ca- 
deiras iguais ao redor de uma mesa, po- 
sicionando a mesma definição da peça 
nos lugares escolhidos. Tudo que temos 
a fazer é selecionar o móvel acionando 
algumas teclas. 

Opção 3 - Permite redefinir as peças já 
contidas no programa e incluir, no má- 
ximo, outras cinco, desde que não te- 
nham mais que dez lados — o que é su- 
ficiente para desenhar qualquer móvel. 
As novas peças serão desenhadas auto- 
maticamente, tomando como base a es- 
cala da reprodução do ambiente. 
Opção 4 - Permite salvar nosso projeto 
(opção um) e seu conteúdo (opções 2 e 
3) em disco ou fita. 

Opção 5 - Carrega um projeto e seu 
conteúdo de uma fita ou disco. 
Opção 6 - Cuida da impressão. Como 
apenas o Spectrum é capaz de imprimir 
a cópia do projeto diretamente, esta op- 
ção ficará incompleta para os demais 
micros. Ela pode ser usada para chamar 
uma rotina que despeje o conteúdo da 
tela na impressora ou um outro progra- 
ma em BASIC que faça a mesma tare- 
fa. Em um próximo artigo, aprendere- 
mos como criar essa rotina e obter có- 
pias impressas de nossos projetos. 
Opção 7 - E incumbida de terminar e 
sair do programa. 









A segunda parte deste programa tra- 
rá uma explicação mais detalhada de ca- 
da opção, além de conter a outra meta- 
de da listagem do programa. Mas aten- 
ção: é necessário digitar as duas partes 
para que o programa rode com seguran- 
ça; portanto, grave a primeira antes de 
digitar a segunda. 





10 PCLEAR B:CLEAR 2000 

20 DEF FNA(XM)=1.9*SC*XM 

30 DIM 0$(9),S(10) 

40 0$(0)="DD100;DC50;DE100; DBS50 
C34 ;DE4O; DB3: 


60 0S(2)="DD100;DC60;DE100;DB60 


70 0$(3)="DD30;DC30;DE30;DB30;D 
C20;DD30;” 

80 0S$(4)="DD60;DC60;DE60;DB60;” 
90 cLS 
100 PRINT 696, TAB (6)"1 
R AMBIENTE” 

110 PRINT TAB(6)"2: 
YOUT” 

120 PRINT 
BILIA” 
130 PRINT 
ETO” 








PLANEJA 
DESENHAR LA 
TAB(6)"3: DESENHAR MO 


TAB(6)"4: GRAVAR PROJ 


140 PRINT TAB(6)"5: CARREGAR PR 
QJETO” 

150 PRINT TAB(6)"6: IMPRIMIR PR 
OJETO” 

160 PRINT TAB(6)"7: SAIDA” 





170 PRINT 
INPUT N 
180 IF N<1 OR N>7 THEN 90 

190 IF N=2 AND Fl=0 THEN CLS:PR 
INT"VOCE DEVE PRIMEIRO SELECION 
AR OPCAO 1”: SOUND 1,20:GO0TO 9 
0 
200 IF N=1 THEN Fl=1 

210 ON N GOTO 350,1120,830,1700 
+1750,1790,230 


€422,"FACA A OPCAO” ;: 
















330 RETURN 

340 DRAW"BM213,70;D4FIRZEIU4HIL 
2G1BUIBR8BD3R3BRSU3R4DINL4DIBRS 

UBUZUZR2U2L4D2" : RETURN 

350 CLS 

360 PRINT”COMPRIMENTO MAXIMO DO 
COMODO (M) ” 

370 INPUT LE 

380 IF LE>100 OR LE<3 THEN 350 
390 SC=100/LE 

400 PMODE 4,1:COLOR 0,1:PCLS:SC 
REEN 1,0 

410 XM=0:YM=LE 

420 GOSUB 240 

430 XX=FNA(XM) : YY=FNA (YM) :IF PP 
OINT(XX,YY)=1 THEN PSET(XX,YY,0 
) ELSE PSET(XX,YY,1) 

440 IS=INKEYS:IF 1$="" THEN 430 
450 0X=XM:0Y=YM 

460 IF I$=" ” THEN COLOR 0:GOTO 
530 
470 IF 
530 
480 IF 
490 IF 





1$="B” THEN COLOR 1:GOTO 


THEN 400 
THEN FOR K=1 TO 4 


IS="c” 
TB=*p” 

































RENA 








220 Goto 90 





230 CLS: PCLS:END 





240 RF=0:COLOR O 





250 LINE(200,0)-(255,191),PSET, 
B 
260 DRAW"BM206,10;S4;A0;NR4D6R4) 









BR2U6D3R4D3U6BR2D6RAU6NL4BRZD6R, 





4U6NL4BRZNR4D3R4DINL4BRZNR4UINR 





2U3R4BR4BD2DBD2D” 
270 IF RF=1 THEN RETURN 





280 DRAW"BM203, 30; D6RZNU3R2ZU6BR 





6R4D6L4AV6BRIOD6R4UIL4RIVILIBRIO 





NR4D3R4D3NL4BR2U6R4DIL4BR6UINRA 





D6R4” 





290 DRAW"BM218,4 6U3NR2U3R4BF 





6NR4D6R4” 





300 RETURN 





310 RF=1:COLOR 0,1:LINE(201,1)- 
(254,190), PRESET,BF:GOSUB 250 
320 DRAW”BM208, 30; ND6R4D3L4BRIO 
BU3D6R3ELU4H1L3BR1O;ND6R4D3L4RI 
F3BR6U6R4L4D3RZ” 










:PCOPY K TO K+4:NEXT:GOTO 90 








500 IF 1$="W” THEN 710 

510 IF I$="0" THEN 800 

520 GOTO 430 

530 CLS 

540 FOR A=1 TO 2 

550 PRINT"DIRECAO" ; C/B/E/D 
";: INPUT DS(A) 

560 LF DS(A)="" PIN C00 

570 PRINT "DISTANCIA";A;: INPUT 
D(A) 


580 IF INSTR(1,"CBED",DS(A))=0 
THEN 550 








590 NEXT 

600 SCREEN 1,0:FOR A=1 TO 2 

610 IF DS(A)="" THEN 670 

620 IF DS(A) ” THEN XM=XM-D(A 
) 

630 IF DS(A)="D” THEN XM=XM+D(A 
) 

640 IF DS(A)="C” THEN YM=YM-D(A 


) 


650 IF DS(A)="B” THEN YM=YM+D(A 


) 
660 NEXT A 
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670 IF XM<O OR XM>LE OR YM<O OR 
Y>LE THEN SOUND 1,2:XM=0X:YM=0 
Y:GOTO 430 

680 XI=FNA(OX) : YI=FNA (0Y) :X2=FN 
A(XM) : Y2=FNA (YM) 

690 LINE(X1,Y1)-(X2,Y2),PSET 
700 goTo 430 

710 CLS: INPUT"DIRECAO C/B/E/D"; 
DS 
720 INPUT "DISTANCIA";D 

730 X1=FNA(OX):Y1=FNA(OY) 

740 POKE 178,2 

750 IF D$="E” THEN XM=KM-D:X2=F 
NA (XM) :LINE(XL,Y1)-(X2,Y1+3),PS 
ET,BF 
760 IF 
NA (XM) 
ET,BF 
770 IF 
NA (YM) 
ET,BF 
780 IF 
NA (YM) : 
ET,BF 
790 SCREEN 1,0:GOTO 430 


D$="D” THEN XM=XM+D:X2=F 
:LINE(XI,Y1)-(X2,Y1+3),PS 


D$="C” THEN YM=YM-D:Y2=F 
:LINE (XI, Y1)-(X1+3,Y1),PS 


D$="B” THEN YM=YM+D:Y2=F 
LINE(X1,Y1)-(X1+3,Y2),PS 


800 CLS:INPUT"DIRECAO C/B/E/D" ; 
DS(1) 

810 INPUT"DISTANCIA” ;D(1) 

820 DS(2)="":COLOR 1:GOTO 600 

830 CLS 

840 INPUT"DEFINIR ITEM 
(0-9)”";N 

850 IF N<O OR N>9 THEN 
860 OS(N)="" 

870 PRINT"USE <ESPACO> PARA LIN 
HA”:PRINT"USE 'B' PARA LINHA VA 
ZIA”:FOR D=l TO 1000:NEXT 

880 PMODE 4,1:COLOR 0,1:PCLS:SC 
REEN 1,0 

890 X=75:Y=145 

900 DRAW"BM75,150;R100NGINH3; BM 
70,145; ULOONF3NG3” 

910 IF PPOINT(X,Y)=0 THEN PSET( 
X.Y,1) ELSE PSET (X,Y,0) 

920 NKEYS:IF 1$="" THEN 910 
930 :Cy=y 
940 IF IS="C” 
950 IF I8="E” 
960 IF I8=" 
970 IF IS<>" 


NUMERO 


830 








THEN 830 
THEN 90 
THEN COLOR O 
” THENCOLOR 1 



















980 IF I$=" ” THEN OS(N)=0S(N)+ 
"D” ELSE OS(N)=0S (N)+"B” 

990 CLS: INPUT "DIRECAO C/B/E/D” 
:D$ 

1000 IF INSTR(1,"CBED”,D$)=0 TH 
EN 990 

1010 INPUT”"DISTANCIA (CM)";D 
1020 IF D<X=0 OR D>200 THEN 1010 
1030 SCREEN 1,0 

1040 IF D$="E” THEN X=X-D/2 
1050 IF DS="D” THEN X=X+D/2 
1060 IF DS="C” THEN Y=Y-D/2 
1070 D$="B” THEN Y=Y+D/2 
1080 X<75 OR X>175 OR Y<45 O 
R Y>145 THEN SOUND 1,3:X=0X:Y=0 
Y:GoTO 910 

1090 LINE(OX,0Y)-(X,Y) , PSET 
1100 OS (N)=0S (N) +DS+STRS (D) +"; ” 
1110 GoTo 910 

1120 FOR K=1 TO 4:PCOPY K+4 TO 
K:NEXT:CLS 

1130 PMODE 4,1:SCREEN 1,0 

1140 GOSUB 310 

1150 X=128:Y=96:RT=0 

1160 IF X<3 THEN X=3 

1170 IF Y<3 THEN Y=3 

1180 GET(X-3,Y-3)-(X+3,7+3) 5,6 
1190 DRAW"CO;BM"+STRS (X)+","+ST 
R$ (7) +"NU3ND3INL3INR3” 

1200 IS=INKEYS:IF I$="" THEN 12 
oo 


5 POKE 23658,8 


10 BORDER O: PAPER O: INK 4: 
cLS 

12 GOoSUB 8000 

20 GOSUB 7000: PRINT INVERSE 


1;AT 2,23;" LI )JAMBº;AT 3,23;"[ 
2)PLAN";AT 4,23;"[3]MOB";AT 5 
,23;" [4 )GRAV";AT 6,23;" [SICAR 
Rº;AT 7,23;"[6]IMPRr;AT 8,23; 
"7 SAIDA” 
30 LET K$="1234567": GOSUB 
7040: GOSUB 7000: TF Z=55 
THEN STOP 
40 GOSUB 1000*(2-49)+1000: 
Goro 20 
1000 LET NF= 
1005 PLOT O, 
1010 PRINT PAPER 2; 
1,22;"MAXIMO=";MAX 
1015 PRINT INVERSE 1;AT 2,22;" 
[JJJANELA";AT 3,22;"[PJPORTA";A 
T 4,22;" [BJBRANCO";AT 5,22;"[ 1] 
DESENHA” ;AT 6,22;" [S]SAIDA";AT 
7,22;"" 
1016 LET K$S="JPBS ": GOSUB 7040 
: INK 3*(Z=74)+2*(2=80)+7* (2=32 





GOSUB 6080 
LET X=0: LET Y=0 
INK 6;AT 2 





) 
1020 IF Z=83 THEN INK 4: RETUR 


N 

1025 GOSUB 7010: LET DX=X+D*((D 
S="D")*SC)-D*((DS="E")*SC): LET 
DY=Y+D* ((D$="C") *SC) -D*((DS="B 
")*SC): GOSUB 7010 

1030 LET DX=DX+D* ( (DS="D")*5C) — 
D*((D$="E”)*SC): LET DY=DY+D*(( 
DS="C”")*SC)-D*((DS="B")*5C) 
1032 IF DX>175 OR DX<O OR DY>17 
5 OR DY<O THEN PRINT FLASH 1; 
AT 7,23;" ERRO”: PAUSE 100: GOTO 


1015 


1035 DRAW DX-X,DY-Y: LET X=PEEK 


23677: LET Y=PEEK 23678: LET X 
S=STR$ (X/SC): LET YS=STRS (Y/S 
e) 

1037 IF LEN XS<3 THEN LET XS=F 
S( TO 3-LEN X5)+X5 

1038 IF LEN Y$<3 THEN LET YS=F 


S( TO 3-LEN Y5)+YS 

1039 LET XS=XS( TO 3): LET YS=Y 
S( TO 3): PRINT INK 7;AT 10,24 
3"DX=";XS;AT 11,24;"DY=";YS 
1040 GoTo 1016 

2000 IF NF=0 THEN RETURN 

2005 FOR N=1 TO 10: LET QS="["+ 
STRS N+"]"+0S(N): PRINT INVERS 
E 1;AT N*2,24+4-LEN QS:05: NEXT 


N 
2010 LET R=0: GOSUB 6060: LET C 
U=2 
2020 PRINT INVERSE 1;AT CU,29; 
CHRS 144: FOR N=1 TO 10: NEXT N 
PRINT INVERSE L;AT CU,29;” " 
2030 LET KS=TNKEYS: LET CU=CU-2 
A(((KS="7")*(CUD2)))+2%(((KS="6 
")*(CU<20))) 
2040 IF K5S<>"s” 
2050 LET OB=CU/2: 
T OY=85 
2057 LET F=1: GOSUB 6010 
2060 GOSUB 7000: PRINT AT 5,24; 
FLASH 1;"OBJ=";0S(0B); FLASH O 
;AT 7,22; INVERSE 1;"[5-8 MOVE” 
;AT 8,22;" [CICOLOCA";AT 9,22;"[ 
:" LA JANTHORA 
"LSISAIDA” 
2070 LET K$="56/BCAHS”: GOSUB 7 
040: IF Z=83 THEN LET R=0: LET 
F=1: GOSUB 6010: GOTO 6060 
2080 LET F=1: GOSUB 6010: LET O 
X=0X+22 ((2=56) * (0X<175))-2* ((Z= 
53)*(0X>1)): LET Oy=0Y+2*((2=55 
)*(0Y<175))-2*((2=54)* (0Y>0)) 


THEN GOTO 2020 
LET 0X=85: LE 













2085 IF Z=72 OR Z=65 THEN GOSU 
B 6020 

2090 GOSUB 6010 

2100 IF 2=67 THEN LET F=0: GOS 


UB 6010: GOSUB 7000: GOTO 2000 
2110 GoTo 2070 
3000 PRINT AT 2,24;" PROJETO” 
3012 INPUT "ENTRE FIGURA A DEFI 
NIR ";0B: IF OB<l OR 0B>10 THEN 
Goto 3012 
3013 INPUT "DIGITE NUMERO DE LA 
DOS (1-15) ? ";S(OB): IF S(OB)< 
1 OR S(0B)>15 THEN GOTO 3013 
3014 INPUT "CODIGO DE DUAS LETR 
AS ?";05(0B) 
3016 LET R=0: GOSUB 6060: LET O 
X=B0: LET OY=80 
3017 FOR S=1 TO S(0B)*2 STEP 2 
3020 FOR N=1 TO 2: GOSUB 7010: 
LET D=D/125: LET O(OB,S)=O(0B,S 
)+((D*(-1* (D$="E”) +(DS="D")))): 
LET O(OB,S+1)=0(0B,S+1)+((D*(— 
1*(DS="B")+(DS="C")))) 





3030 NEXT N 
3040 NEXT S 
3050 LET F=1: GOSUB 6010: INPUT 
"ESTA CORRETO (S/N) ? $: IF 
S$="N” THEN GOSUB 6010: FOR N= 


1 TO S(0B)*2+1: LET O(OB,N)=0: 
NEXT N: GOTO 3012 


3060 GOSUB 6010: RETURN 

4000 GOSUB 6200 

4015 IF Z=83 THEN SAVE ESSCREE 
NS : RETURN 

4020 SAVE ES DATA O() 

4030 SAVE ES DATA S() 

4040 SAVE ES DATA 0S() 

4050 RETURN 

5000 GOSUB 6200 

5010 IF Z=83 THEN LOAD ESSCREE 
NS : RETURN 

5020 LOAD ES DATA 0() 

5030 LOAD ES DATA S() 

5040 LOAD ES DATA OS() 

5050 RETURN 

6000 COPY : RETURN 

6010 OVER F: INK 7: PLOT OX,0Y: 
FOR N=1 TO (S(0B)*2) STEP 2: D 


RAW O(OB,N)*CY-O (OB, N+1) *CX,O(O 
B,N) *CX+O (OB, N+1) *CY: NEXT N 
6014 OVER O: INK 4: RETURN 
6020 LET R=R+(2*(Z2=65))-(2*(Z=7 
2)): IF R>360 THEN LET R=0 
6030 IF R<O THEN LET R=360-R 
6060 LET A=R*(PI/180): LET CY=S 
c*cos A: LET CX=SC*SIN A: RETUR 


N 

6080 INPUT "ENTRE MAXIMA DIMENS 
AO 7" ;MAX 

6090 LET SC=175/MAX 

6100 RETURN 

6200 PRINT INVERSE 1;AT 10,23; 
"(TITELA";AT 11,23;" (DIDADOS” : 

LET K$="TD": GOSUB 7040: INPUT 

"ENTRE NOME DO ARQUIVO" ;ES: RET 
URN 

7000 FOR N=0 TO 21: 
R4;AT N,22;" ts, 
N: PRINT AT 0,25;"MENU”: 


ya 


5 SCREEN 2,0:COLOR 1,15,15 

10 KEY OFF:GOTO 2000 

20 DEF FNA(XM)=1.9*5C*XM 

30 DIM O$(9),S(10) 

40 08(0)="DD100;DC50;DE100;DB50 
; BD8;BC8; DD40;DC34;DE40;DB34;” 
50 OS(1)="DD50;DC60;DES B60;B 
D10;BC10;DD10;DC1O;DE1O;DB10;BD 
20;DD10;DC10;DE10;DB10;BC20;DC1 
0;DD1O;DB10;DE10;BELO;DE1O;DC1O 
;DD10;DB10;BE20;BC15;DD50;” 

60 0S(2)="DD100;DC60;DE100;DB60 


PRINT PAPE 
NEXT 
RETURN 








70 0S(3)="DD30;DC30;DE30;DB30;D 
Cc20;DD30;” 

80 0$(4)="DD60;DC60;DE60;DB60;" 
Bs CLS 

90 SCREEN O 





100 LOCATE 8,5:PRINT"1: PLANEJA 

R AMBIENTE” 

110 LOCATE 8,6:PRINT"2: DESENHA 

R LAYOUT” 

120 LOCATE 8,7:PRINT"3: DESENHA 

R MOBILIA” 

130 LOCATE 8,8:PRINT"4: GRAVAR 
PROJETO” 

140 LOCATE 8,9:PRINT CARREGA 

R PROJETO” 

150 LOCATE 8,10:PRINT"6: IMPRIM 

IR PROJETO” 

160 LOCATE 8,11:PRINT"7: TERMIN 


























170 LOCATE 8,14:INPUT"SUA ESCOL 
HA ";N 

180 IF N<1 OR N>7 THEN 170 

190 IF N=2 AND Fl=0 THEN LOCATE 
5,18:PRINT"<escolha primeiro a 
opção 1>":GOTO 170 

200 IF N=1 THEN Fl=1 

210 ON N GOTO 350,1120,830,1700 
+1750,1790,230 


220 goto 90 

230 CLS:END 

240 RF=0 

250 LINE(200,0)-(255,191),1,B 
260 DRAW"BM206,10;54;A0;NR4D6R4 


BRZU6DIR4DIU6BRZD6R4AU6NL4ABRZD6R 
AU6NL4BRZ2NR4DIR4DINL4BRZNR4UINR 
2U3R4BR4BD2DBD2D” 

270 IF RF=1 THEN RETURN 

280 DRAW"BM203, 30; D6RZNU3RZUGBR 
6R4D6L4U6BRIOD6R4UIL4ARIVILIBRIO 
NR4D3R4DINL4BRZU6R4DILABR6UINRA 
D6R4” 

290 DRAW"BM218,43;D6UINRZUIRABR 
6NR4D6RA” 

300 RETURN 

310 RF=1:LINE(201,1)-(254,190), 
15,BF:GOSUB 250 

320 DRAW"BM208, 30;ND6R4D3L4BRIO 
BU3D6R3ELU4HIL3BRIO;ND6R4DIL4RI 
FIBR6U6R4L4DIRZ” 

330 RETURN 

340 DRAW"BM213,70;D4FIRZEIU4HIL 
2G1BULBR8BD3RIBRSU3R4DINL4ADIBRE 
UBUZU2R2U2L4D2” : RETURN 


350 CLS 

360 PRINT”"COMPRIMENTO MAXIMO DO 
AMBIENTE” 

370 INPUT" (em metros)";LE 


380 
390 
400 
410 


IF LE<3 OR LE>100 THEN 350 
SC=100/LE 

SCREEN 2 

XM=0: YM=LE 

420 GOSUB 240:A=USR(0) 

430 XX=FNA(XM) : YY=FNA(YM) : IF PO 
INT(XX,YY)<>1 THEN PSET(XK,YY), 
1 
440 IS=INKEYS:IF IS="" THEN 430 
450 0X=XM:0Y=YM 

455 DS(1)="":DS(2)="" 

460 IF 1$=" " THEN C 
470 IF 1$="B” THEN CL: 
30 

480 IF 
490 IF 
090 


I$="C” THEN 400 
1I$="F” THEN A=USR(0) :GOT 












IF IS="W" THEN 710 


510 IF I$="0” THEN CL-=15:GOTO 8 
oo 

520 GoTO 430 

530 SCREEN O 

540 FOR A=1 TO 2 

550 PRINT"Direção”;A;” C/B/D/E” 


; 7 INPUT DS(A) 

560 IF DS(A)="" THEN 600 
570 PRINT"Distância";A;” 
8)”; : INPUT D(A) 

580 IF INSTR(1,"CBDE”.DS(A))=0 
THENS50 

590 NEXT 

600 SCREEN 2:A=USRZ(0) :A=USRI (O 
3 
605 
s10 
620 
) 
630 
) 
640 


(metro 


FOR A=1 TO 2 
IF D$(A)="" THEN 670 
IF DS(A)="E” THEN XM=XM-D(A 


IF DS(A)="D” THEN XM=XM+D(A 


IF DS(A)="C” THEN YM=YM-D(A 


) 

650 IF DS(A)="B” THEN YM=YM+D(A 
) 

660 NEXT A 

670 IF XM<O OR XM>LE OR YM<O OR 

YM>LE THEN BEEP:XM=0X:YM=0Y:GO 
TO 430 

680 XI=ENA(OX) : YI=FNA(OY) :X2=FN 
A(XM): Y2=FNA (YM) 

690 LINE(XI,Y1)-(X2,Y2),CL 

695 A=USR(0) 

700 goto 430 

710 SCREEN 0: INPUT"Direção c/ 
B/D/E";DS 

720 INPUT"Distância “;D 

730 X1=FNA (OX 1=FNA(OY) 

735 SCREENZ:A-=USRZ (0) :A=USRI(O) 
750 IF DS="E” THEN XM=XM-D:X2=F 
NA (XM) LINE (XI, Y1+1)-(X2,Y1+1), 
1:LINE(XI,Y1)-(X2,Y2),1 

760 IF D$="D” THEN XM=XM+D:X2=F 
NA (XM) :LINE (XL, Y1+1)-(X2,Y1+1), 
1:LINE(XL,Y1)-(X2,72),1 

770 IF D$="C” THEN YM=YM-D:Y2=F 
NA (YM) :LINE(XI+1,Y1)-(XI+1,Y2), 
1I:LINE(XL,Y1)-(X2,Y2),1 

780 IF D$="B" THEN YM=YM+D:Y2=F 

NA(YM) :LINE(XI+L,Y1I)-(XI+1,Y2), 
1:LINE(XL,Y1)-(X2,972),1 
790 A=USR(0) :GOTO 430 

800 CLS: INPUT"Direção 
";DS(1) 

810 INPUT"Distância ";D(1) 

820 DS(2)="":GoTO 600 

830 cLS 

840 INPUT"DEFINTR A PEÇA NUMERO 
(0-9) ";N 

850 IF N<O OR N>9 THEN 830 

860 OS(N)="" 

870 SCREEN 2:RF=1:GOSUB 250 

880 DRAW"BM218,41;NR4DIR4DINL4B 
R2U6R4DIL4BR6UINRAD6RA ;BM210,56 
; D6R4U3L4R3UILIBRI] SDOUINRZUIRAB 
RIONR4D6R4” 

B90 X=75:Y=145 

900 DRAW"BM75,150; 
70,145;U100NF3NG3” 

910 IF POINT(X,Y)<>1 THEN PSET( 

x,7).1 

920 IS=INKEYS:I1F 15="" THEN 920 
















C/B/D/E 










100NG3NH3; BM 











925 
930 
940 
950 
960 
970 
980 


A=USR3(0) 
OX=X:0Y=Y 

IF 1I$="C” “"HEN 830 

E” THEN 90 

” YHEN CL=1 

IF I8<>” ” THEN CL=15 

IF IS=" " THEN OS(N) =0S(N)+ 
"D” ELSE OS(N)=0S(N)+"B” 
990 SCREENO: INPUT"Direção 
/D/E";DS 

1000 IF INSTR(1,"CBDE”,D$)=0 TH 
EN 990 

1010 INPUT"Distância (cms)”;D 
1020 IF D<=0 OR D>200 THEN 1010 
1030 SCREENZ:A=USR2 (0) :A=USR4 (0 
, 
1040 
1050 
1060 





c/B 


IF D$="E” THEN X=X-D/2 

IF D$="D” THEN X=X+D/2 

IF D$="C” THEN Y=Y-D/2 
1070 IF D$="B” THEN Y=Y+D/2 
1080 IF X<75 OR X>175 OR Y<45 O 
R Y>145 THEN BEEP:YX=0X:Y=0Y:GOT 
o 910 

1090 LINE(OX,0Y)-(X,Y),CL 

1100 OS (N)=0S (N) +DS+MIDS (STRS (D 


DoB)+r 

1110 GoTo 910 

1120 SCREEN 2 

1130 A=USRZ(0) :A=USRI (0) 

1140 cosuB 310 

1150 X=128:Y=96:RT=0 

1160 IF X<3 THEN X=3 

1170 IF Y<3 THEN Y=3 

1190 PUTSPRITEO, (X,Y),1,0 

1200 IS=INKEYS:IFIS="" THEN 120 


o 


















































IRREGULARIDADE (2) 





No artigo da página 1356, vimos co- 
mo obter imagens fascinantes por meio 
de programas recursivos muito simples. 
Essas imagens, também denominadas /i- 
guras fractais, são geradas matematica- 
mente na fronteira entre o que chama- 
mos de regular e irregular. 

Com a técnica fractal podemos con- 
seguir formas muito mais próximas das 
observadas na natureza que com os mo- 
delos construídos a partir da ciência tra- 
dicional. Mostraremos aqui como fazer 
simulações desse tipo no seu micro. 

O primeiro programa desenha uma 
das formas mais simétricas da natureza: 
a forma hexagonal de um floco de neve. 


10 BORDER O: PAPER O: INK 5: 
BRIGHT 1: CLS 
20 LET AN=2*ATN (1)/3: LET S2 
=2/SQR (3) 
30 LET XC=127: LET YC=90: LET 
S=120: LET C=2 
50 GOSUB 1000 
60 STOP 
1000 LET S=S/3: IF S<l THEN LE 
T S=S*3: RETURN 
1020 PLOT INVERSE 1; OVER 1;IN 


T (XC+52*S*XSIN (-AN)), (YC-52x5* 
cos (-AN)): FOR K=0 TO 8*ATN (1 
)-AN STEP 24AN 

1030 DRAW XC+2*S*SIN (K)-PEEK 2 
3677, YC-2*5*COS (K)-PEEK 23678 
1040 DRAW XC+S2*S*SIN (K+AN)-PE 
EK 23677,YC-S2*S*COS (K+AN)-PEE 
K 23678 

1050 NEXT K 

1060 LET C=C-1: GOSUB 1000 

1070 LET YC=YC-1.36*S8: GOSUB 10 


00 

1080 LET YC=YC+.68*S: LET XC=XC 
+1.19*S: GOSUB 1000 

1090 LET YC=YC+1.36*5: GOSUB 10 
oo 

1100 LET YC=YC+.68*S: LET XC=XC 
-1.19*S: GOSUB 1000 

1110 LET YC=YC-.68*S: LET XC=XC 
-1.19*S8: GOSUB 1000 

1120 LET YC=YC-1.36*5: GOSUB 10 
00 

1130 LET YC=YC+,68*S; LET XC=XC 
+1.19*8: LET 8=8*3: LET C=C+1: 

RETURN 





10 PMODE 3,1:PCLS:SCREEN 1,0 
20 AN=2*ATN(1)/3:82=2/SQR(3) 
30 XC=127:YC=95:S=135:C=4 


50 GOSUB 1000 

60 GoTO 60 

1000 S=8/3:IF S<l THEN S=S*3:RE 
TURN 

1010 IF C=2 THEN COLOR 4 ELSE I 
F C=1 THEN COLOR 2 ELSE COLOR €C 
1020 DRAW"BM"+STRS (INT (XC+S2*5* 
SIN(-AN)))+”,"+STRS$ (INT (YC-S2*5 
*COS(-AN))) :FOR K=0 TO S8*ATN(1) 
-AN STEP 2*AN 

1030 LINE -(XC+2*S*SIN(K), YC-2* 
S*COS(K)),PSET 

1040 LINE -(XC+52*S*SIN(K+AN),Y 
C-S2*S*COS (K+AN) ), PSET 





1050 NEXT:PAINT(XC,YC) 

1060 C=C-1:GOSUB 1000 

1070 YC=YC-1.36*S:GOSUB 1000 
1080 YC=YC+.68*S:XC=XC+1.19*5:G 
OSUB 1000 

1090 YC=YC+1.36*S:GOSUB 1000 
1100 YC=YC+.68*S:XC=XC-1.19*8:G 
OSUB 1000 

1110 YC=YC-.68*S:XC=XC-1.19*5:G 
OSUB 1000 

1120 YC=YC-1.36*S:GOSUB 1000 
1130 YC=YC+.68*S:XC=XC+1.19*5:5 
=8*3:C=C+1: RETURN 


[iG] 





10 HGRZ 

20 AN = 2* ATN (1) / 3:82 =2 
/ SOR (3) 

30 XC = 127:YC = 95:S = 135:C = 
4 

50 GOSUB 1000 

60 coro 60 

1000 S=S/ 3: IFS<1 THENS 
= 8 * 3: RETURN 

1020 HPLOT INT (XC + S2*5* 
SIN ( - AN)), INT (YC - 82 * 

s* cos ( - AN)): FORK = 0 TO 
8 * ATN (1) - AN STEP 2 * AN 

1030 HPLOT TO XC+2*5* Ss 

IN (K),YC-2*5S* cos (k) 

1040 HPLOT TO XC+ S2*5* 

SIN (K + AN),YC - S2 * S* cos 
(K + AN) 

1050 NEXT 

1060 C = €C - 1: GOSUB 1000 


1070 YC = YC - 
1000 

1080 YC = YC + .68 * S:XC = XC 
+ 1.19 * S: GOSUB 1000 

1090 YC = YC + 1.36 * S: GOSUB 
1000 

1100 YC = YC + .68 * S:XC = XC 
- 1.19 * S: GOSUB 1000 

1110 YC = YC - .68 * S:XC = XC 
- 1.19 * S: GOSUB 1000 

1120 YC = YC - 1.36 * S: GOSUB 
1000 


1.36 * S: GOSUB 


JB a BI 
A MATEMÁTICA DA 


Neste artigo, você verá como 

aplicar o que aprendeu sobre dimensões 
fracionadas na simulação de imagens 
da natureza, como uma montanha 

ou um floco de neve. 


:XC = XxC 


1130 YC = YC + .68 
* =C+1: 


+ 1.19 * 8:98 = 8 
RETURN 


hu 


10 SCREEN 2 

20 AN=2*ATN(1)/3:52= EARARSS 
30 XC=127:YC=95:8=135: 
50 GOSUB 1000 

60 Goto 60 

1000 S=S/3:IF S<l THEN S=S*3:RE 
TURN 

1010 IF C=2 THEN COLOR 8 ELSE I 
F C=1 THEN COLOR 11 ELSE COLOR 
É 

1020 DRAW "BM"+STRS (INT (XC+52*8 
*SIN(-AN)))+"”,”"+STRS (INT (YC-52* 
S*COS(-AN))):FOR K=0 TO 8*ATN(1 
)J-AN STEP 2*AN 

1030 LINE-(XC+2*S*SIN(K), YC-2*S 
*COS(K)) 

1040 LINE-(XC+52*S*SIN(K+AN) , YC 
-S2*S*COS (K+AN) ) 








1050 NEXT:PAINT(XC,YC) 

1060 C=C-1:GOSUB 1000 

1070 YC=YC-1.36*S:GOSUB 1000 
1080 YC=YC+.6B4S:XC=KC+1 .19*5:G 
OSUB 1000 

1090 YC=YC+1.36*S:GOSUB 1000 
1100 YC=YC+.6B*S:XC=XC-1.1945:G 
OSsUB 1000 

1110 YC=YC-.68*S:XC=XC-1.19*5:G 
OSUB 1000 

1120 YC=YC-1.36*S:GOSUB 1000 


1130 YC=YC+.68*S:XC=XC+1.19*5:5 
=54*3:C=C+1: RETURN 





Esse programa é baseado na curva 
loco de neve, originalmente desenhada 
por Von Koch. A figura criada se asse- 
melha a um cristal de gelo em um floco 
de neve ou a uma ilha com litoral mui- 
to recortado. A linha 20 especifica um 
triângulo equilátero (seus ângulos me- 
dem 60 graus e os lados são iguais) com 
um fator de escala definido em S2. A li- 
nha 30 define as primeiras coordenadas 
Xe Y do centro, um fator de escala ini- 
ciale a cor do primeiro desenho (exceto 
no Apple). A linha 50 chama a sub-ro- 
tina que desenha a estrela de seis pon- 
tas que compõe a figura. 


SIMETRIA E ASSIMETRIA 


Apesar da irregularidade do desenho, 
a simetria está presente na forma da es- 
trela. Como ocorre com freqgiiência na 





natureza, a ordem e o caos se combinam 
nessa figura. Porém, muitas estruturas 
simuladas pela técnica fractal são total- 
mente assimétricas. E o caso das curvas 
de um rio, das crateras da Lua, das veias 
e artérias do corpo humano e do con- 
torno das montanhas. O que distingue 
essas estruturas das formas simétricas 
geradas matematicamente são os ele- 


mentos aleatórios que entram em sua 
composição. Podemos simular tais ele- 
mentos no computador por meio da 
função RND. O programa que se segue 
gera a imagem de uma montanha: 


10 BORDER 0: PAPER O: INK 7: 
BRIGHT 1: CLS 


MODELOS DE SIMETRIA 
HE PROGRAMA DO FLOCO DE NEVE 
FORMAS ASSIMÉTRICAS 
HE UMA MONTANHA NO MICRO 
GERADOR DE FIGURAS 











A técnica dos fractais é responsável 

pelas mais perfeitas imagens de formas 
naturais si ladas no computador. 

A construção de uma imagem complexa 
como a escarpa nevada desta página 

só é possível em computadores 

gráficos de maior porte. Porém, a mesma 
técnica pode ser utilizada em micros 
domésticos, com resultado semelhante 

ao mostrado na ilustração do alto. 











EE 40 FOR K=1 TO s:c(k,0,0)=C(0,0, 








15 PRINT AT 6,2; INVERSE 1;” 

GERADOR DE MONTANHA FRACTAL ” 

20 DIM C(200,2,2): LET F=1: 

LET G=2: LET C(1,1,2)=25: LET 

C(1,1,1)=0 

22 INPUT "DIGITE 'RESOLUCAO" 

DA MONTANHA [16-100] ? ";8 

23 IF S<16 OR S>100 THEN 

goro 22 

24 INPUT "DIGITE GRAU DE 

OSIDADE' [1-5]?";RG 

a TF RG<1 OR RG>S THEN Goto 
4 

26 DEF FN R(X)=RG-=((RND*X)*(2 


"RUG 


*RG)) 
27 PAPER 1: CLS 
1 LET L=210/8: LET H=L/(SQR 


40 FOR K=1 TO S+1: LET C(K,1, 
1)=C(1,1,1)+L*K-EN R(1): LET 
C(K,1,2)=C(K-1,1,2)-FN R(1): 
NEXT K 

50 FOR J=1 TO S: FOR K=1 TO 8 
=J+1 

60 LET C(K,G,1)=FN R(I)+(C(K, 
F,1)+C(K+1,F,1))/2 

70 LET C(K,G,2)=EN R(1)+H+(C( 
K,F,2)+C(K+1,E,2))/2 

80 PLOT C(K,F,1),C(K,F,2): 
DRAW C(K+1,F,1)-PEEK 23677,C( 
K+1,F,2)-PEEK 23678 

90 DRAW C(K,G, 1) =PEEK 23677,C 
(K,G,2)-PEEK 23678: DRAW C(K, 
F,1)-PEEK 23677,C(K,F,2)-PEEK 
23678 
100 NEXT K: LET F=3-F: LET G=3 
-F: NEXT J 
110 FOR y=40 TO O STEP -.75 
120 PLOT 0,y 
130 FOR n=1 TO 100 
140 LET a=RND*10 
150 LET b=5-RND*10 
160 IF a+PEEK 23677>255 THEN 
n=100: DRAW 255-PEEK 23677 
: GOTO 190 
TF (PEEK 23678) +b<0 THEN 
Goro 150 

180 DRAW a,b 

190 NEXT n 

200 NEXT y 

210 FOR m=USR "a” TO USR "a"+7 
: READ a: POKE m,a: NEXT m 

220 DATA 16,56,84,16,56,84,146 
+16 

230 FOR n=1 TO 80 

240 PRINT AT 17+INT (RND*4), 
RND*31; BRIGHT 1; PAPER 4; 
INVERSE 1;CHRS 144; 

250 NEXT n 

260 PRINT 41; INVERSE L;AT 0,4 
ae RUGOSIDADE=" ;RG 





270 goto 270 


10 PMODE 4,1:PCLS:SCREEN 1,1 

20 DIM C(200,1,1):F=0:G=1:C(0,0 
+1)=150:C(0,0,0)=10 

30 S=80:L=230/5:H=L/SQR(3) :DEFF 
NR (X)=3-BND (0) *6 








































































































0) +LXK=ENR (0) :C(K,0,1)=C(K-1,0, 
1)-FNR(0) :NEXT 

50 FOR J=1 TO S:FOR K=0 TO S-J 
60 C(K,G,0)=ENR(0)+(C(K,F,0)+C( 
K+1,F,0))/2 

70 C(kK,G, Dag e F,1)+ 
C(K+, 

80 LINE te F.0),C(K,F,1))-(C( 
K+1,F,0) C(K+1,F,1)), PSET 

90 LINE -(C(K,6,0) C(k,G,1)) «PS 
ET:LINE-(C(K,F,0),C(K,F,1)),PSE 
T 


100 NEXT:F=1-F:G=1-F:NEXT 
110 goto 110 








10 HGRZ 

20 DIM C(200,1,1):F = 0:G = 1: 
c(0,0,1) = 150:C(0,0,0) = 10 

30 8 =» BO:L = 2307 8:H = L/ 
SQR (3): DEF EN R(X) = 3 — 
D(1) *.6 

40 FORK = 1 TOS:C(K,0,0) = € 
(0,0,0) + L * K-— EN R(O):C(K, 
0,1) = C(K - 1,0,1) - EN R(0): 
NEXT 


50 FORJ=1 TOS: FORK=0T 
0s-y 

60 C(K,G,0) = EN R(0) + (C(K,F 
10) + C(K + 1,F,0)) / 2 

70 C(K,G,1) = EN R(O) = H + (C) 
(K,F,l) + C(K + 1,F,1)) / 2 

80 HPLOT C(K,F,0),C(K,F,1) TO 
C(K + 1,F,0),C(K + 1,F,1) 

90 HPLOT TO C(K,G,0) C(K,G,1) 
: HPLOT TO C(K,F,0),C(K,F.l) 
100 NEXT :F=1-F:G=1-F: 


NEXT 
110 Goro 110 





10 SCREEN 2 

20 DIM C(200,1,1):F=0:G=1:C(0,0 
+1)=150:C(0,0,0)=10 

30 S=80:L=230/S:H=L/SQR (3) :DEFF 
NR(X)=3-BND(1)*6 

40 FOR K=1 TO S:C(K,0,0)=C(0,0, 
0) +L*K-FNR(0) :C(K,0,1)=C(K-1,0, 
1)-FNR(0) :NEXT 

50 FOR J=1 TO S:FOR K=0 TO S-J 
60 C(K,G,0)=FNR(O)+(C(K,F,0)+C( 
K+1,F,0))/2 

70 C(K,G,1)=PNR(0)-H+(C(K,F.1)+ 
C(K+1,F,1))/2 

BO LINE(C(K,F,0),C(K,F,1))-(C(K 
+10) «G(K+,F,1)) 

90 LINE-(C(K,6,0),C(K,6,1)) :LIN 
E-(C(K,F,0) ,C(kK,F,1)) 

100 NEXT:F=1-F:G=1-F:NEXT 

110 Goto 110 


A linha 30 define o fator de escala 
dos triângulos e especifica o comprimen- 
to e a altura de um lado. A linha 40 
preenche duas matrizes com as coorde- 
nadas iniciais de cada triângulo. Obser- 
ve que há um fator aleatório — portan- 
to, os valores irão variar em um peque- 
no intervalo a cada execução do progra- 
ma. A linha 50 inicializa dois laços: um 
para desenhar os triângulos horizontal» 
mente na tela, e outro para colocá-los 
mais acima. 

O vértice de cada triângulo é especi- 
ficado nas linhas 60 (coordenada X) e 
70 (coordenada Y). A linha 80 move o 
cursor para o canto esquerdo do triân- 








gulo e desenha sua base. No progr: 
para o Spectrum, os PEEK subtraídos. 
das coordenadas asseguram que os pon- 
tos não caiam fora da tela, o que pro- 
ma interrupção do programa 


ão da montanha. Na 
a pectrum, o programa 
let a fi igura desenhando “árvo- 


res” na base da montanha. 


introduza uma forma inicial, cons- 

indo, a partir dela, uma figura frac- 

. O grande número de sub-rotinas re- 
cursivas pode ser um problema no Ap- 
ple — esse micro só admite que uma 
sub-rotina seja chamada por ela mesma 
24 vezes. Por isso deve-se ter cuidado ao 
escolher o nível de recursão. 


50 INPUT “No 
URSAO ";NR: 


IF ABS (INT (NR)) 
<1 THEN GOTO 50 


60 LET 
70 PLOT 
INT ( 


LET N=0: CLS 
VERSE 1; OVER 1; 
(PJ), INT (B5+Y(P)) 

500: IF P>=2 THEN 


IF As="" 


IA SAIR, QUA 
INUAR 


O IF F=0 THEN 
“PRINT "MESMA 
S/N) ? 
e 0 LET AS=INKE) 
AND: AS<>"N” THEN 


F=0 OR AS="N” 
230 
FOR K=2 TO CU+1 
LET P=K-1 
LET X(P)=T(K): 


THEN 


180 
190 
200 
k) 
210 
220 
230 
240 
250 
"RY 
260 LET T(L)=X*85: 
8s 

270 IF L=2 THEN PLOT INT (127 
+T(L)), INT (85+U(L)) 

275 IF L<>2 THEN puam 127+T(L 


LET Y(P)=U(. 


NEXT kK 

RETURN 

INPUT "No DE VERTICES | 
FOR L=2 TO VT+1 

INPUT "VERTICE 


LET U(L)= 


CURVA FECHADA (S/N) 


q 
INKEYS: IF AS<>"N" 
THEN GOTO 300 


* THEN LET CV=VT: 


330 DRAW 127+T(CV)-PEEK 23677, 
BS+U (CV) -PEEK 23678 

340 RETURN 
350 CLS : 

380 

360 PRINT 


IF F=0 THEN nos 


370 LET AS=INKEYS 
AND AS<>"N” THEN 
375 PRINT AS 

380 IF F=0 OR AS=" 
GosuB 400 
390 RETURN 
400 INPUT 
ERADOR NAO 
EMIDADES (0,0) 
420 PLOT INVERSE 
.85 

430 FOR M=2 TO GN+ 
440 INPUT "VERTICE ";(M-1);" 
Pt 

450 IF ABS (INT (X))>1 OR ABS 
(INT (Y))>1 THEN GOTO 440 
460 LET V(M)=X: LET W(M)=Yy: 
LET R=K465+8 LET Y=B5+y*85: 
77 ,Y-PEEK 23678 


"No DE VERTI] 
INCLUINDO 

E (1,0) a 

OVER 1;85 


q 
>127 OR ABS Y(P 
560 
550 DRAW 12; +X(P)-PEEK 23677, 
85+7(P)-PEEK 23678 
560 NEXT W: BATUTA 
1» s70 LET N=N+1 
580 IF N=1 
585 IF N<> 


590 FOR E=1 TO JM 
595 TF P=1 THEN 


LET E=JM 
NEXT E: RETURN ad! 


600 LET TX=X(P): L 


LET BX=X(P-1): 


=TX-BX: LET DY=TY-BY 
2 TO GN+1 


P)=DX*V(F)-DY2W(F)+ 


690 LET Jtct)a E 

GOSUB 500: LET CL=CL-]: 
J(CL) 

700 NEXT E 

710 LET N=N-1 

720 RETURN 


LET Ex 


10 DIM X(50),Y(50), 

),XG(20), YG(20) ,J( 

20 PMODE 4,1:COLOR 0 

30 GOSUB 140 

40 GOSUB 350 Lo 

50 INPUTFNO.DE NIVEI 

AO -" ;NR:NR=INT(NR): 

N 50 

60 F=1:N=0:PCLS:SCREEN 1, o a 
70 LINE -(127+X(P),96-Y(P)), PRE 


=INKEYS- IF AS="" THEN 90 
' CLS:PRINT"S PARA SAIR, QUAL 
AR OUTRA TECLA PARA CONTI 


140 IF F=0 THEN 170 

150 PRINT"MESMA FORMA INICIAL ( | 
S/N)?"; 

160 AS=INKEYS:IF AS<>"S" AND AS. 
X>"N” THEN 160 ELSE PRINT AT AS 
170 IF F=0 OR AS="N” GOSUB 230 
180 FOR K=1 TO CV 

190 P=k-1 

200 


J 
),96=YT(L)), PRESET ELSE LINE -( 
127+XT(L),96-YT(L)), PSET 
280 NEXT =” 
290 PRINT"CURVA FECHADA (S/N)? 
300 AS=INKEYS:IF AS<>"N” AND 
<>"S” THEN 300 ELSE PRI! 
310 IF AS="N” THENCV=VT 
30:RETURN 
320 cu=v' 
=2T(1) 








330 LINE-(127+XT (CU) ,96-YT(CV)) 
+ PSET:GOSUB 730 

340 RETURN 

350 PCLS:IF F=0 THEN 380 

360 PRINT"MESMO GERADOR (S/N) ? 
370 AS=INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 370 ELSE PRINT AS 
380 IF F=0 OR AS="N” GOSUB 400 
390 RETURN 

400 PRINT"NO.DE VERTICES NO GER 
ADOR” 

410 INPUT"NAO INCLUINDO (AS. EXTR 
EMIDADES (0,0) E (1,0) = "yGN 
:GN=INT (GN) :IF GN<1 THEN 410 
420 DRAW"BMBO,96” 

430 FOR M=1 TO GN 

440 PRINT "VERTICE ";M; 
DOR ";: INPUT "- ";X,Y 
450 IF ABS(X)>I OR ABS(Y)>I THE. 
N 440 

460 XG(M) =X: YG(M) =Y:X=X*95+800Y 
=96-Y*95:LINE-(X,Y) , PSET 

470 NEXT 

480 LINE-(175,96), PSET:GOSUB 73 
o 

490 RETURN 

500 IF NR=N GOSUB 520 ELSE GosU 
B 570 

510 RETURN 

520 FOR L=1 TO GN+1 

530 P=P-1 

540 IF ABS(X(P))>127 OR ABS(Y(P 
))>95 THEN 560 

550 LINE-(127+X(P),96-Y(P)), PSE 
T 

560 NEXT:RETURN 

570 N=N+1 

580 IF N=1 THEN JM=CV-1 ELSE JM 
=GN+ 

590 FOR J=1 TO JM 

600 TX=X(P) :TY=Y(P) 

610 BX=X(P-1):BY=Y(P-1) 

620 DX=TK-BX:DY=TY-BY 

630 FOR E=1 TO GN 

640 X(P)=DX*XG(E) -DY*YG (E) +BX 
650 Y(P)=DYAXG (E)+DKAYG (E) +BY 
660-P=P+I 

670 NEXT 

680 X(P)=TXSY(P)=TY 

690 J(CL)=J:CL=CL+1:GOSUB 500:C 
L=CL-1:J=J (CL) 

700 NEXT J 


RETURN 

(9730 AS=INKEYS: SCREEN 1,0:K=1000 
740 K=K-1:IF K>O AND INKEYS="" 
THEN 740 

750 RETURN 


5 HOME 
10 DIM X(507,Y(50),XT(10),YT(1 
à 0) .XG(20) YG(2O) . (50) 

30 GOSUB 140 
40 GOSUB 350 

50 TEXT: HOME : INPUT "QUANTO 
S NIVEIS DE RECURSAO ";NR:NR = 
& INT (NR): IF NR < 1 THEN SO 
S6Q/F = 1:N = 0:,HGRZ 
= 70 HCOLOR= 3: HPLOT/127 + X(P) 
|. 96 PTP) 


"DO GERA 









80 GOSUB 500: IF P > O THEN 80 
90 GET AS 
100 TEXT : HOME : PRINT "<S> P 


ARA SAIR E QUALQUER OUTRA PARA 


CON=TINUAR” 

L1O GET AS 

120 IF AS < > "S” THEN 30 
130--HOME : END 

140 IF F = O THEN 170 

150 TEXT : HOME : PRINT "MESMA 
FORMA INICIAL? (S/N); 

160 GET AS: IF AS< > "5" AND 
AS 4 > "N” THEN 160 


165 PRINT AS 


120º IE F = Q/OR AS = "Nº THEN 
GOSUB; 230 
180” FOR K = 1 TOC 


LA PK -1 


200 X(P) = XT(KJZYAP) = YT(K) 
210 NEXT 

220 RETURN 

230 - INPUT "OTOS, VERPICES NA F 
ORMA INICIAL ";VT:VT = INT (VT 
j2 IF-VT € 1 THEN 230 

240 FORL=1TOVvT 

250 PRINT "VERTICE *;L;: INPUT 


"= ";XeLS IF ABS (X) > 1º0R 
ABS (Y) > 1 THEN 250 

260 XTIL) =X * 9S:YT(L) = Y * 
95 

265 NEXT 
270 PRINT 
es 
280 


"CURVA FECHADA (S/N) 


GET AS: "N” AND 
As < > "sº 
285 PRINT AS: 
: NEXT : HGRZ 
290 FORL = 1 TOVT 

300 IF L = 1 THEN HCOLOR= 3: 
HPLOT 127 + XT(L)496 = YT(L) 
302 IF LX) 1 THEN HCOLOR= 
3: HPLOT TO 127 + XT(L),96 - Y 
T(L) 

307 NEXT 

310 IF AS =9"N” THEN CU = VT: 
GOSUB 730: RETURN 

320 CU = UT + I:XT(CU) = XT(I): 
NTICU) = YT(1) 

330 HPLOT TO/127 + XT(CV),96 
= YT(CV): GOSUB 730 

340 | RETURN 

350 TF F = O THEN 380 

360 TEXT : HOME : PRINT "MESMO 
GERADOR? (S/N); 


IFAS< > 
THEN 280 
FOR T = 1 TO 300 


370 GET AS: TP AS < > "S%-AND': 


AS < 5 “Nº THEN 370 

375 PRINT AS 

380 IF F = O ORAS = "Nº THEN 
GOSUB 400 

390 RETURN 

400 TEXT HOME : INPUT "QUANT 


OS VERTICES NO GERADOR NAO INCL 
UIN-DO AS EXTREMIDADES [0,0) E 


(1,0) ";GN 

410 GN = INT (GN): TE/GNOS 17 
HEN 400 

430 FORM =/1 TO GN À 

440 PRINT !VERTICE ";M;” DO GE 
RADOR";: INPUT ” — ";XG(M),YG(M 
) 

450 IF ABS (XG(M)) > 1 OR AB 


S (YG(M)) > 1 THEN 440 | 
455 NEXT 



















































457 HGRZ : HCOLOR= 3" HPLOT 80 
+96 

458 FORM=1 TOGN 

460 X = XG(M) * 95,+ B0:Y = 96 


-— YG(M) * 95: HPLOTP TO X,Y 


470 NEXT 

480 HPLOT) TO 175,96; GOSUB 73 
o 

490 RETURN 

500 IE NR/=N THEN GOSUB 520 
505 «TF NR < > N THEN GOSUB 5 
70 

510 RETURN 

520) FOR L = 1 TO GN+1 

530 P = P = by 

540 TF ABS (X(P)) > 127 OR A 
BS (Y(P)) > 95 THEN 560 

550 HPLOT TO 127 + X(P),96 — 
VP) 

560 NEXT: RETURN 

570 N=N+1 

580 JF N =/1 THEN JM=Ccv-1 
o IF NX 1 THEN JM = GN + 
590-FOR J = 1 TO JM 

600 TX = X(P):TY = Y(P) 

610 BX = X(P - 1):BY = Y(P - 1) 
620 DX = TX — BX:DY = TY - BY 
630 FORE = 1 TOGN 

640 X(P) = DX * XG(E) - DY * YG 
(E) + BX 

650 Y(P) = DY * XG(E) + DX * YG 
(E) + BY 

660 P=P+1 

670 NEXT E 

680 X(P) = TX:Y(P) = TY 

690 J(CL) = J:CL = CL + 1: GOSU 


B 500:CL = CL - 1:J = J(CL) 
700 NEXT J 

710 N=N-1 

730 FORT = 1 TO 1000: NEXT 
740 RETURN 


o] 


5 CLS 
10 DIM X(50),Y(50) ,XT(10) ,YT(1O 

) XG(20) , YG(20) + (50) 

20 SCREEN O 

30 GOSUB 140 . 
40 GOSUB 350 

50 SCREEN O: INPUT "QUANTOS NIVE 
IS DE RECURSÃO ”;NHENR= INT (NR) 
IF NR<1 THEN 50 q 
60 F=1:N=0:SCREEN 2 bg 
70 LINE-(127+X(P) ,96-Y(P)) 40 | o 
BO GOSUB 500:TF P>O THEN BO 


90 AS=INKEYS:IF AS="" THEN 90 

100 SCREEN O:PRINT"<S> PARA SAT 

R E QUALQUER OUTRA PARA CONTINU 
an” 

110 AS=INKEYS:IF AS="" THEN 11( 
120 IF AS<>"S” THEN 20 

130 CLS:END a 
140 IF F=0 THEN 170 

150 SCREEN 0:PRINT"MESMA FORMA | | 


INICIAL? (S/N)”; 

160 AS=INKEYS:IF AS<>"S” AND AS. 
X>"N” THEN 160 ELSE PRINT AS 
170 IF F=0 OR AS="N” THEN GOSUB 






230 
180 FOR K=1 TO CV 


























































































190 
200 
210 
220 
230 
RMA 
T<l 


P=K-1 

X(P)=KT(K) :Y(P)= 
NEXT 

RETURN 

INPUT "QTOS. VERTICES NA FO 
INICIAL” ;VT:VT=INT(VT):TF V 
THEN 230 

240 FOR L=1 TO VT 

250 PRINT "VÉRTICE ";L;: INPUT” 
= ";X,Y:IF ABS(X)>1 OR ABS(Y)>1 
THEN 250 * 

260 XT(L)=X*95:YT(L)=Y*95 

265 NEXT 

270 PRINT"CURVA FECHADA (S/N) ? 


YT(K) 


280 AS=TNKEYS: TRASS>2"N” AND AS< 
>"s” THEN 280 ELSE PRINT AS: FOR 
2=1 TO 300: NEXT 

290 SCREEN 2:FOR L=1 TO VT 

300 IF L=W THEN LINE - (127+KT(L 
1 .96-YT(L)),4 ELSE LINE =(127+x 
T(L),96-YT4L)) 11 


305 NEXT 

310 LE AS="Nº THEN CUsVT:GOSUB 
730: RETURN 

320 CU=UT+I:XT(CV)=KT(1) YTICU) 
=YT(1) 


330 LINE -(127+XT(CV) ,96-YT (CU) 
), 11:G0SUB 730 

340 RETURN 

350/TF F=0 THEN 380 

360 SCREEN O: PRINT"MESMO GERADO 
RP? (S/N)"; 

370 AS=INKEYS:IF AS<>"S” AND AS 





C>"Nº THEN 370 ELSE PRINT AS 
980 IF F=0 OR AS="N” THEN GOSUB 
400 

390 RETURN 


400 INPUT"QUANTOS VERTICES NO G 
ERADOR NAO INCLUINDO AS EXTREMI 
DADES (0,0) E 


(1,0)" GN 





410 GN=INT(GN):IF GN<1 THEN 400 
430 FOR M=1 TO GN 

440 PRINT"VERTICE ";M;” DO GERA 
DOR”; : INPUT” — ";XG(M), YG(M) 
450 IF ABS(X)>1 OR ABS(Y)>1 THE 
N 440 

455 NEXT 

457 SCREEN 2:PSET(80,96),11 

458 FOR M=1 TO GN 

460 X=XG (M) A95+80: Y=96-YG (M) *95. 
:LINES(XY) 11 

470 NEXT 

4B0 LINE-(175,96),11:GOSUB 730 
490 RETURN 

500 IF NR=N THEN GOSUB 520 ELSE 
GOSUB' 570 

510 RETURN 

520 FOR L=140 GN+ 

530-PEP-1 

540 TF ABS(X(P))>127 OR ABS(Y(P 
11295 THEN 560 
550-LINE-(127+K(P),96-Y(P)),11 
560 NEXT RETURN 

570 N=NhL 
580 TEN? 
=GN41 

590 FOR-J=1 TO UM 

600 TKSK CP): TY=V(P) 

610 BX=X(P-1):BY=Y(P-1) 

620 DX=TK=BX:DY=TY-BY 

630 FOR E=1 TO GN 

640 X(P) =DX*XG (E) «DYAVG (E) +BX 
650 Y(P) =DYAXO (E) +DXRYG (E) +BY 


660 P=P+1 

670 NEXM 

680 X(P)=TX:Y(P)=TY 

690 J(CL)=U:CL=eLHLsGOSUB 500:€ 
L=CL=1: J=J(CL) 

700 NEXT SJ 

710 N=nN-1 

720 RETURN 


THEN JM=CV-1 ELSE JM 





NKEY5S:K=1000 
740 K=K-1:TF KDO AND INKEYS="" 
THEN 740 

750 RETURN 





Quando vocêexecuta à programa, a 
linha 230 pede omúmero de vérticesdo 
desenho inicial-que irá gerar a figura 
fractal, Convêm traçar essa figura pre- 
viamente em uma folha de papel. Mi 
que dois pontos representando o im; 
e ofim-dalinhae una-os por meio de 
pequenas retas. Conte O número de can- 
tos € forneça esse dado ao-computado; 
Não exagere no número de re 
lembre-se que você terá que espe 
car as coordenadas de cada vértice (li- 
nha 250). «Estas devem ter valores com- 
preendidos centre -1 e 1. 

O laço entre as linhas 240 e 280 (240 
e 305 nas versões para o MSX e o Ap- 
ple) permite que você introduza as 
coordenadas e desenhe a forma inicial, 
determinando inclusive se sua figura se- 
rá fechada ou aberta (linha 290). 

Em seguida (linhas 400 a 490), o com- 
putador solicita ao usuário a definição 
da-figura que substituirá cada linha re- 
ta do desenho inicial — essa figura é ge- 
ralmente chamada de gerador. Como 
você fez para a forma inicial, desenhe 
afigura e passe a informação para o 
computador. 

Finalmente, você deverá especificar 
o número-de níveis derecursãoQuan- 
do esse valor é digitado, adinha 80 cha- 
ma a subsrotina que verifica seo pro- 
grama está rodando pela primeira vez. 
Em caso afirmativo, o programa-édes- 
viado para a rotina principal (linha 570 
à 720), que-desenha a figura fractal. Se 
o programa já estava sendo rodado, o 
computador dá-ao usuário a chance de 
redefinir O gerador. 


TESTE 


Para experimentar o programa, digite 
o valor 3 para o número de vértices da 
forma inicial, Em seguida, introduza as 
coordenadas -0.5 e -0,2 para o vértice 1; 
0e 0.4 para o vértice 2; 0.5 e -0.2 para 
o vértice 3. Ao responder N à pergunta 
“CURVA FECHADA?”, aparecerá na 
tela um triângulo sem base, Como foi 
feito para a forma inicial, entre 3 para 
o número de vértices do gerador e defi- 
na as coordenadas: 0.2 e O para o vérti- 
ce 1; 0.4 e 0.8 para o vértice 2; 0.6 e O 
para o vértice 3. Esses dados definem a 
imagem de um triângulo sem base sobre 
uma linha. Por fim, introduza o valor 
5 para o nível de recursão (3 para o Ap- 
ple) e observe a geração da figura 
fractal. 















































BITS E BYTES 


EM BASIC 


O byte é a unidade básica de memória 
usada em microcomputadores. Os diver- 
sos comandos da linguagem BASIC tra- 
tam o byte como a unidade mínima de in- 
formação: os caracteres individuais de 
uma cadeia alfanumérica, por exemplo, 
podem ser isolados e processados indivi- 
dualmente com comandos do tipo MIDS, 
LEFTS, RIGHTS, LEFTSS, CHR$, ASC 
etc. Cada caractere ocupa um byte. Os va- 
lores numéricos, por sua vez, em geral 
ocupam dois ou mais bytes, dependen- 
do de sua precisão (sobre a armazenagem 
de números, veja o artigo da página 894). 
Usando os comandos VARPTR, PEEK 
e POKE, temos acesso individual aos 
bytes onde variáveis, vídeo, teclado etc. 
estão armazenados. 


Existe, porém, uma unidade de infor- 
mação menor que o byte. Essa unidade 
é o bit (binary digit, ou dígito binário, 
em inglês), que corresponde aos dígitos 
O e 1 que todo computador digital usa 
como base de representação numérica. 
Cada byte tem oito bits, numerados de 
O (o bit menos significativo) a 7 (o bit 
mais significativo). 

Muitas vezes, surge a necessidade de 
manipular diretamente os bits da memó- 
ria. Para isso, convém utilizar uma ro- 
tina em linguagem de máquina, que tem 
comandos específicos para o acesso e a 


manipulação de bits individuais e é mais , 


rápida que qualquer rotina em lingua- 
gem de alto nível. 

Entretanto, poucos sabem que é per- 
feitamente possível realizar manipula- 
ções diretas de bits com os comandos já 
existentes no BASIC. Não é tão rápido 
nem tão direto quanto em linguagem de 
máquina, mas funciona bem. 

Neste artigo, você aprenderá vários 
truques que permitem a manipulação de 
bits em quase todos os microcomputa- 
dores. Os comandos do BASIC mais re- 
levantes para esse fim são o CHRS, o 
ASC (ou CODE, no ZX-81) e os opera- 
dores lógicos AND, NOT e OR. 

Com as funções CHR$ e POKE, po- 
demos criar bytes com uma determina- 
da configuração de bits. CHR$ é 
utilizada no trabalho com variáveis sim- 








bólicas dentro de um programa em BA- 
SIC; POKE nos dá acesso direto às 
locações absolutas da memória RAM. 

CHRS$(1), por exemplo, define um 
byte com o bit menos significativo igua- 
lado a 1, e todos os outros igualados a 
O: 0000001 em binário, CHR$(2) gera 
um byte com os dois bits menos signifi- 
cativos igualados a 1: 00000011. 
CHR$(3) define o byte 00000010 e as- 
sim por diante. Com o auxílio de uma 
tabela de correspondência entre núme- 
ros decimais de O a 255 e os binários 
equivalentes, pode-se produzir qualquer 
padrão de bits ligados e desligados. 

Para converter o padrão de bits em 
um número decimal, devemos conside- 
rar cada bit como o índice de uma po- 
tência de 2 e somar o resultado. Supo- 
nhamos um byte com os bits 0,3 e 4 
ligados: 


00001101 
O número decimal correspondente é: 
P+P+=16+8+1=25 
Eis algumas expressões úteis para li- 


gar ou desligar só o bit B de um byte ar- 
mazenado em um caractere B$: 


Para ligar: 
B$=CHR$ (CODE (B$) OR 2**B) 


Para desligar: 
B$=CHRS (CODE (B$) AND NOT 2**B) 


Para ligar: 
B$=CHRS (ASC(B$S) OR 2**B) 
Para desligar: 


BS=CHRS (ASC(BS) AND NOT 2**B) 


Para ligar: 
B$=CHRS (ASC(B$) OR 21B%) 








A manipulação dos bits individuais de um 
byte de memória por meio de comandos 
do BASIC parece uma tarefa impossível. 
Mas não é: aprenda os truques de 

programação necessários para isso. 







Para desligar: 


B$=CHRS (ASC(BS) AND NOT 271Bt) 
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Para ligar: 

BS=CHRS (ASC(B$) OR 27Bt) 
Para desligar: 

B$=CHRS (ASC(B$) AND NOT 2"Bt) 


Observe que, com exceção dos mi- 
cros da linha Sinclair, que não têm va- 
riáveis inteiras, usamos a notação BJ 
para indicar que esse valor deve ser in- 
teiro. Isso ajuda a evitar erros de cál- 
culo, caso B seja um bit real de preci- 
são simples. 

Para tornar o bit B de um byte igual 
a 1, usamos o operador lógico OR. Su- 
ponhamos que você queira igualar a 1 
o bit número 7 (o mais significativo) de 
um byte igual a 00001011. Teremos, en- 
tão, a operação, em decimal: 


25 OR2' = 25 OR 128 


o que, em binário, dá: 


00001011 OR 
10000000 


10001011 


Note que OR tem o efeito de operar 
individualmente sobre cada par de bits 
na mesma posição, nos operandos, de 
acordo com o seguinte esquema: 


00orO 
10RO 
00RI 
10R1 


0 
1 
1 
1 


Para colocar O em um bit qualquer 
do byte B$, usamos a operação AND 
NOT. De fato: 


O AND NOT O = O AND 1 
1 AND NOT O 1 AND 1 
O AND NOT 1 = O AND O 
1 AND NOT 1 = 1 ANDO =0 


pois a operação NOT transforma um bit 
Oem 1 e vice-versa, equivalendo, por- 
tanto, a uma inversão do bit. 

Se você quisesse transformar o biná- 


-0 
rj 
-0 











rio 10001011 em 00001011, igualando o 
bit 7a 0, teria: 


10001011 AND 
NOT 10000000 


que é a mesma coisa que: 


10001011 AND 
01111111 





00001011 


Pode ser que, em vez de trabalhar 
com bytes armazenados em caracteres li- 
terais, você queira manipular os bits in- 
dividuais de um número inteiro — que, 
na maioria dos micros, é armazenado 
em dois bytes contíguos, em um total de 
dezesseis bits. Nesse caso, use as expres- 
sões apresentadas a seguir. Mas lembre- 
se de que alguns computadores, como 
o ZX-81, podem armazenar de forma 
diferente um número inteiro. 


Para ligar: 
It = 1% OR 21Bt 


Para desligar: 


It = I% AND NOT Z1Bt 


PSY [ab] [5] 


Para ligar: 
It = I% OR 2"Bt 


Para desligar: 
It = It? AND NOT 2"Bt 

Essas expressões funcionam com um 
conjunto de dezesseis bits — ou seja, se 
quisermos ligar o bit 13 do byte 1%, fa- 
remos a operação: 


It = I$0R2" 12 
ou 


It - I% OR 81924 


A expressão AND NOT desliga o 
B-ésimo bit de 1%. 

Os micros ZX-81 e Spectrum não po- 
dem utilizar essas expressões, já que não 
têm variáveis inteiras. Todos os outros. 

















E BITSEBVTES E LEITURA DE UM BIT 
E MUDANDO UMBIT HE OPERADORES AND, OR e NOT 
= BITS EM STRINGS BITS INDICADORES 

E EM NÚMEROS EB PROGRAMA DE DEMONSTRAÇÃO 
a COMBINAÇÃO DE BITS = APLICAÇÕES 





micros podem, pois trabalham com a 
versão microsoft do BASIC. 


[eo [TA o): 


É possivel ligar uma combinação de 
bits em uma variável literal ou inteira. 
Para isso, usa-se uma expressão de so- 
ma dos expoentes de 2 correspondentes 
a cada bit a ser ligado, combinados por 
operações OR. Para ligar os bits 3 e 5 
do byte em TS, faça: 


TS = CHRS((2**3) OR (2**5)) 


TS = CHRS((213) OR (215)) 


LIL) 


TS = CHRS((2"3) OR (275)) 


SIE os BITS 


Da mesma forma que podemos ligar 
ou desligar bits individuais em lingua- 
gem BASIC, é bastante fácil examinar 
o valor desses bits, através de uma ex- 
pressão simples: 


R = CODE (B$) AND 2**B 


R = ASC (BS) AND 2**B 


R? = ASC(B$) AND ZTBt 
ou 


Rê = 1% AND 21Bt 
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R$ = ASC(BS) AND 2"Bt 
ou 
Rt = I? AND I"Bê 
A operação AND isola apenas o va- 
lor do bit mascarado pelo byte igual a 


28, Por exemplo: qual é o valor do bit 
número 6 do byte 010010117 


01001011 
01000000 


AND 





01000000 


que equivale a 89 AND 64, cujo resul- 
tado é 64 em decimal. 

Como o número resultante dessa ope- 
ração é maior do que 0, o resultado é 
verdadeiro. Se fosse igual a 0, teríamos 
então um resultado falso. 

Para transformar o resultado R em 
valor 1, fazemos: 


Rt = ABS(R$>(2 1 Bt - 1)) 
Em nosso exemplo, isso daria: 
ABS (64563) = 1 


Se R% fosse 0, teríamos: 
ABS (0>63) = 0 


Eis aqui um programa para testar to- 
dos os bits de um byte de entrada: 


110 
TRE 
120 
130 
140 
150 
160 
170 
180 
190 


O programa para o ZX-81 é o mes- 
mo do Spectrum, com esta alteração: 


PRINT "ENTRE UM NUMERO EN- 
0 E 255) 

INPUT N 

LET N$=CHRS (N) 

FOR I=0 TO 7 
PRINT "BIT * : 
LET C=ASC(NS) AND 2**1 

IF C THEN PRINT "SIM” 

IF NOT C THEN PRINT “NAO” 
NEXT 1 





160 LET C=CODE (NS) AND 2**I 








110 PRINT "ENTRE UM NUMERO EN- 
TRE O E 255) 

120 INPUT nt 

130 N$=CHRS (Nt) 

140 FOR I2=0 TO 7 

150 PRINT "BIT ";It;" = "; 

160 C3=ASC(NS) AND 21It% 

170 IF C? THEN PRINT "SIM" 

180 IF NOT C% THEN PRINT "NAO” 
190 NEXT It 


Psy [ak] 


O programa para o MSX e o Apple 
é igual ao anterior, com a modificação: 


160 C3=ASC(NS) AND 2"I% 


VAZA: 


Até agora, vimos como manipular os 
bits de um único byte ou conjunto de 
dois bytes. Como uma cadeia alfanumé- 
rica contém até 255 caracteres, podemos 
manipular um conjunto muito maior de 
bits (um máximo de 8 x 255, ou 2040 
bits). Esse conjunto é chamado de ca- 
deia de mapeamento de bits (bit- 
mapstring), e tem muitas aplicações em 
jogos, bancos de dados e outros progra- 
mas de caráter profissional. 

Por exemplo, é possível armazenar 
em uma cadeia desse tipo condições 
sim/não ou verdadeiro/falso. Se um bit 
em determinada posição dessa cadeia es- 
tiver ligado, temos uma condição sim, 
ou verdadeira; se estiver desligado, uma 
condição não, ou falsa. 

O comprimento da cadeia depende- 
rá do número de condições (flag bits ou 
bits indicadores) que queremos incluir. 
Se o número de condições for N, o nú- 
mero de bytes da cadeia será: 


L = INT(N/8)+1 


Para inicializar um mapa MS, zera- 
mos todos os bits: 


as cLs 
50 INPUT 
EIA ";n 
60 IF n>255 THEN GOTO 50 
70 FOR i=1 TO INT(n/8)+1 
80 LET mS$=mS+CHRS(0) 

90 NEXT à 


mama sy 


45 cLs 


"NUMERO DE BITS NA CAD 


50 INPUT “NUMERO DE BITS NA CAD 
EIA ";N 

60 IF N>255 THEN 50 

70 MS=STRINGS (INT (N/8)+1,0) 


Para ligar, desligar e testar um bit 
qualquer do conjunto total de N, preci- 
saremos de algumas funções poderosas: 
FNLS, FNDS e FNTS. 

Essas funções são bastante comple- 
xas, mas muito rápidas. Procure anali- 
sá-las passo a passo para entender o que 
elas executam: 


20 DEF FNLS(B)-=mS(TO INT(b/8)) 
+CHRS (ASC (mS$ (INT (b/8)+1)) OR 2 
**(D-INT (b/8)*8)) +mS (INT (b/8)+2 
TO) 

30 DEF FNDS(b)=mS(TO INT(b/8)) 
+CHRS (ASC (mS (INT(B/8)+1)) AND 
NOT 2**(b-INT (b/8)*8)) +mS (INT 
b/8)+2 TO) 

40 DEF FNT(b)=ABS( (ASC (mS (INT 
(b/8)+1)) AND 2**(b-INT(b/8)* 
8))<>0) 


20 DEF FNLS(B)=LEFTS (MS, INT(B/8 
))+CHRS (ASC (MIDS (MS, INT (B/8)+1, 
1)) OR 27(B-INT(B/8)*8))+MIDS (M 
S, INT(B/8)+2) 

30 DEF FNDS(B)=LEFTS (MS, INT(B/8 
))+CHRS (ASC (MIDS (MS, INT (B/8)+1, 
1)) AND NOT 27T(B-INT(B/8)*8))+M 
IDS (M$, INT(B/8)+2) 

40 DEF FNT(B)=ABS( (ASC(MIDS (MS, 
INT(B/8)+1)) AND 27(B-INT(B/8)* 
8))<>0) 








Por fim, acrescentamos o restante do 
programa de demonstração das funções 
de manipulação e consulta de bits: 


TITS! 


200 PRINT "PROGRAMA DE DEMONSTR 
ACAO DE MAPAS DE BITS” 

210 INPUT "(L)IGA (DJESLIGA 
ESTA (F)IM ";0PS 

230 IF OP$="F” THEN STOP 
240 INPUT "NUMERO DO BIT (0 A * 
4N;")"B 

260 IF B>N THEN GOTO 240 

270 IF OPS="L” THEN M$=FNLS(B) 
280 IF OP$="D” THEN M$=FNDS (B) 
290 IF OP$="T” THEN PRINT "BIT 
";B,” = ";ENT(B) 

310 GoTo 210 


galo 


Você não terá dificuldade em encon- 
trar aplicações para os truques explica- 
dos neste artigo. 


(7) 





Qual é a vantagem de empregar ca- 
deias alfanuméricas, em vez de conjun- 
tos numéricos, para armazenar grupos 
de bits? 

Como vimos no artigo Armazena- 
gem de Programas (página 1001), a ca 
deia alfanumérica é armazenada na me: 
mória do microcomputador na forma de 
uma sequência contígua de bytes, ca 
da qual ocupado por um caractere. O 
primeiro byte da sequência sempre in 
dica o número de caracteres da variá 
vel literal (string). Esse número é “lido"” 
por intermédio da função LEN, não ha 
vendo, no BASIC (como ocorre em ou 
tras liguagens), um byte encarregado 
de indicar ao interpretador onde termi 
na o string 

A vantagem de empregar cadeias al- 
fanuméricas decorre justamente desse 
sistema de armazenagem usado pelo 
interpretador BASIC. 

A disposição sequencial dos bytes 
na memória facilita enormemente a 
programação de rotinas de acesso aos 
bits individuais de uma longa cadeia. 
Um string de trinta bytes, por exemplo, 
equivale a uma cadeia ininterrupta de 
240 bits, que podem ser lidos ou mo: 
dificados um a um, ou em grupos que 
se sobreponham aos limites entre 
bytes. Isso é muito mais difícil de ser 
feito quando a variável contém elemen- 
tos separados, como é o caso dos con 
juntos numéricos. 








No desenvolvimento de jogos, por 
exemplo, a possibilidade de manipular 
bits amplia bastante as alternativas do 
programador. Entre outras c: Ss, VO- 
cê poderá modificar os gráficos impres- 
sos no vídeo alterando diretamente as 
locações de memória. 

Os recursos de programação aqui 
examinados também serão úteis quan- 
do for necessário comprimir texto, em 
função de limitações da memória. Na sé- 
rie de artigos sobre o assunto, que ini- 
mos na página 1332, apresentamos 
diversos algoritmos interessantes para a 
redução do espaço ocupado por um tex- 
to em até 50%. A maioria desses algo- 
ritmos procura colocar dois ou mais có- 
digos de caracteres em um único byte. 
Como exercício, tente implementar o su- 
percompressor baseado na estatística de 
pares de letras em um texto (veja os ar- 
tigos mencionados). 

















PROCESSADORES 


DE TEXTOS 








Processamento de textos é uma solução 
elegante, quase mágica, que a 
tecnologia deu a muitos dos problemas 
que têm atribulado os escritores, 

desde a invenção da escrita. 


É quase impossível produzir um tex- 
to perfeito logo na primeira tentativa. 


Em geral, cometemos erros ou, mais 
corriqueiramente, mudamos de idéia so- 
bre o que desejamos transmitir. Como 
se sabe, a correção e modificação de tex- 
tos já escritos toma tempo, e o resulta- 
do final acaba todo rabiscado. Pior, se 
houver muitas alterações, é preciso re- 
bater ou reescrever todo o documento, 
e novos erros podem aparecer. Quem já 
experimentou escrever conhece bem es- 
se torturante processo. 





E CORREÇÃO ELETRÔNICA 
E LIMPEZA DO TEXTO NA TELA 
HARDWARE NECESSÁRIO 


IMPRESSÃO 









O processamento de textos por com- 
putador apresenta a vantagem imedia- 
ta de facilitar a execução de alterações, 
tornando desnecessária a cansativa ta- 

















refa de “passar a limpo” o trabalho fei- 
to. Isso resulta em tremenda economia 
de tempo, o que é de utilidade mesmo 
para aqueles que não escrevem por ne- 
cessidade ou profissão. 

Já publicamos em INPUT, no arti- 
go da página 576, um programa que co- 
loca à disposição do usuário os recur- 
sos básicos de edição de texto. Se você 
tem interesse em adquirir um processa- 
dor mais potente, convém conhecer mais 
detalhadamente suas possibilidades. 


aU o 


Processar um texto significa simples- 
mente digitá-lo no teclado de um com- 
putador e armazená-lo na memória. 
Portanto, usando um software adequa- 
do, você poderá fazer modificações e 
correções com rapidez e eficiência, e em 
seguida proceder à impressão. Se o tex- 
to for armazenado em fita ou disquete, 
será possível carregá-lo novamente, 
sempre que necessário, para outras mo- 
dificações. 

Como vimos no artigo já menciona- 
do, com um programa elementar de pro- 
cessamento de texto, o usuário efetua as 
alterações “passeando” um cursor (ge- 
ralmente um pequeno retângulo ilumi- 
nado) sobre a tela, até a parte a ser mo- 
dificada. Escreve então sobre o texto 
que ali se encontra. Este é apagado da 
memória e substituído pelo novo texto 
— sem rabiscos e sem complicações. 

Inserir letras, palavras ou frases no 
meio de um parágrafo também é uma 
operação simples. Para realizá-la, recor- 
re-se à função de inserção dos proces- 
sadores de texto. Por meio dela, podem- 
se introduzir alguns espaços em bran- 
co e depois escrever sobre eles. O pro- 
cesso mais comum, porém, é simples- 
mente escrever o que se quer inserir, dei- 
xando por conta do programa rearran- 
jar automaticamente o restante do tex- 
to, para dar lugar ao novo. 

Estes são apenas dois dos numerosos 
recursos disponíveis em um processador 
de texto. A potência e sofisticação des- 
se software ficam evidentes quando se 
consideram os diversos “truques eletrô- 
nicos”” de que é capaz para auxiliar 
quem está escrevendo. 

As funções de inserção e modificação 
de textos são chamadas recursos de edi- 
ção. Entre estes incluem-se também a 
busca e a substituição de caracteres no 
texto. A função de busca permite a lo- 
calização automática de uma segiiência 
específica de caracteres — uma palavra, 
ou mesmo uma frase — em uma parte 
ou em todo o texto. Suponhamos que, 
tendo digitado um texto muito longo, 





queiramos fazer uma modificação em 
certo parágrafo. Não nos lembramos 
onde ele está: sabemos apenas que con- 
tém as palavras espiral inflacionária. A 
função de busca nos ajudará a descobri- 
las rapidamente. 

A função de substituição é mais po- 
derosa ainda. Ela efetua a busca de uma 
sequência determinada de caracteres por 
todo o texto, substituindo-a sempre que 
a encontrar por uma segunda segiên- 
cia. Isso é útil quando grafamos incor- 
retamente uma palavra qualquer em vá- 
rios pontos do texto, ou quando 
queremos trocar uma expressão 
empregada com fregiiência por 
outra de significado mais pre- 
ciso. Com a função de subs- 
tituição, podemos também 
recorrer a abreviaturas ou 
códigos na digitação de 
um texto. Por exemplo, 
se vamos escrever diver- 
sas vezes programa 
amistoso para o usuá- 
rio no texto, bastará 
digitar um asterisco, 
ou qualquer outro 
símbolo, em cada 
um- dos pontos em 
que a frase deve apa- 
recer, usando poste- 
riormente a função de 
substituição. 


ASA ga 


Com o processador de 
texto, não é preciso ser um 
datilógrafo habilidoso para 
conseguir bons resultados. 
Mesmo que você só consiga da- 
tilografar com dois dedos, observa- 
rá um aumento considerável na sua ve- 
locidade de trabalho, pois poderá avan- 
çar “'a todo vapor", sem se preocupar 
com erros ou efeitos estéticos. 

Se sua ortografia deixa a desejar, 
procure utilizar um processador de tex- 
to dotado de corretor ortográfico (spell- 
checker, em inglês). Ele percorre o seu 
texto “olhando” cada palavra, e com- 
parando-a com um dicionário interno 
padrão (armazenado em disco). Pala- 
vras não reconhecidas — por terem er- 
ro ortográfico, ou, simplesmente, por 
não constarem do dicionário — são as- 
sinaladas. Neste ponto, dependendo do 
programa, você tem três opções: deixar 
a palavra indicada como está, corrigi- 
la manualmente, ou permitir que o pro- 
grama a substitua pela versão correta 
(muitos programas mostram uma lista 
das palavras que poderiam substituir a 
versão assinalada no texto). 





Os processadores de texto mais po- 
tentes dispõem de uma série de recursos 
adicionais, que permitem executar o que 
chamamos de formatação do texto. A 
formatação tem por objetivo produzir 
um texto final arranjado segundo certo 
padrão estético, independente da manei- 










































ra como foi digitado. Os recursos de for- 
matação usualmente permitem especifi- 
car o espaçamento entre linhas, o núme- 
ro de linhas por página, o número de to- 
ques por linha, o tamanho da folha on- 
de vai ser impresso o texto, a numera- 
ção das páginas, cabeçalho etc. A fun- 
ção mais importante da formatação, po- 
rém (e a mais difícil de se realizar ma- 
nualmente), é a justificação das margens 
— ou seja, a definição do alinhamento 
lateral das palavras. A seção de forma- 
tação dos processadores de texto reali- 
za essa tarefa automaticamente. Muitos 
deles chegam à sofisticação de separar 
as sílabas das palavras, ao final de uma 


o 





linha, conforme as regras do idioma. 

Quanto à formatação, existem três ti- 
pos de processadores de texto. Todos 
eles se encarregam das mudanças de li- 
nha, permitindo ao usuário datilografar 
o texto de um parágrafo continuamen- 
te. Em geral, a tecla <ENTER> pre- 
cisa ser pressionada apenas ao final de 
um parágrafo. 

No primeiro tipo de processador de 
texto, quando uma palavra que está sen- 
do datilografada não cabe na linha, o 
cursor passa para a linha seguinte do vi- 
deo, sem se preocupar em dividi-la se- 
gundo as regras gramaticais. O texto fi- 
ca difícil de ser lido na tela. 
















Nessa situação, o segundo tipo de 
processador de texto transporta a pala- 
vra inteira para a linha de baixo (méto- 
do denominado word-wrap, em inglês). 
A leitura no vídeo torna-se bem mais fá- 
cil, mas a margem esquerda do texto fi- 
ca irregular, o que no Brasil recebe o no- 
me de margem americana. 

O terceiro tipo de processador ajus- 
ta a margem esquerda na tela, de modo 
a proporcionar um alinhamento. Como 
já mencionamos, alguns sistemas che- 
gam a hifenar automaticamente as pa- 
lavras que se dividem ao final da linha, 
o que melhora consideravelmente a apa- 
rência do texto. Esse processador é de- 
nominado WYSWYG (do inglês Whar 
You See What You Get). Com ele, o 
usuário tem oportunidade de acompa- 
nhar na tela — à medida que vai escre- 
vendo — a produção do texto final. 

O tamanho do texto, evidentemente, 
não é limitado ao tamanho da tela. A 
maioria dos processadores de texto per- 
mite “rolar” um texto para cima ou pa- 
ra baixo, ou, ainda, para a esquerda ou 
para a direita, de modo que a tela fun- 
cione como uma “*janela”” que mostra 
parte do texto. Nos micros pessoais, a 
janela tem, em geral, vinte linhas por 
quarenta colunas. 


Ta 


Os processadores de texto oferecem 
diversas opções de realce de seções do 
texto, como negrito, texto inverso (ca- 
racteres brancos sobre fundo ne- 
gro, na impressão), letras de ta- 
manhos ou formatos diferentes 
(itálico, dupla largura etc.). Es- 
ses realces podem aparecer na te- 
la e na impressora, ou apenas na 
impressora. Nesse caso, caracte- 
res especiais de demarcação as- 
sinalam, na tela, o lugar onde se 
inicia e termina uma função de 
realce, 


[eo Lodo) to E 


Os programas mais simples de 
processamento são os editores de 
texto, com as funções básicas de in- 
serção e modificação. Um editor se 
transforma em um processador de pa- 
lavras com o acréscimo de diversas ou- 
tras funções, que podem ser utilizadas 
pelo usuário no momento em que neces- 
sitar. A maneira de ativar essas funções 
varia de programa para programa, e é 
um elemento importante na ergonomia 
(facilidade de uso) do processador. 

As diretivas de controle dos recursos 











do programa são entradas pelo teclado, 
num processo tão fácil quanto o da en- 
trada de texto. Os comandos funcionais 
consistem normalmente de teclas espe- 


ciais, ou seqiiências de teclas. Entre as 

mais comuns, incluem-se as de retroces- 

4 so, as de controle dos cursores, <EN- 

us" TER> etc. Bons comandos de edição 
N são essenciais para facilitar o uso 

















































do programa. Em alguns casos, 
as sequências de comando são 
muito complicadas e difíceis 
de memorizar — o que 
torna o programa pou- 
co conveniente para o 
usuário ocasional. 

Além desses, o 

programa possui 
comandos de 
controle de for- 
matação cujo 
efeito só se ob- 
serva, em geral, 
no momento da 
impressão. Nos 
programas 

WYSWYG, eles 

são “embutidos” 

no texto, sob a 

forma de caracteres 
invisíveis de contro- 
le. O vídeo responde 
a esses comandos 
de maneira bem se- 
melhánte ao que uma 
impressora responderia; 
isso possibilita que o usuá- 
rio tenha uma visão prévia 
de como o documento ficará 
quando pronto. 

Nos demais programas, os co- 
mandos de formatação são co- 
locados explicitamente no texto, 
precedidos por sinais especiais. 
Por exemplo, um comando como: 


-ME 20 


introduzido no meio de um texto, indi- 
caria ao processador que, naquele local, 
a margem esquerda deve ser modifica- 
da para vinte colunas. 


í ALCA 


Outro recurso de programas 
mais sofisticados de processa- 
mento de texto é a mala direta 
— a impressão de cartas múlti- 
plas, endereçadas de forma per- 
sonalizada a várias pessoas (ve- 
ja o artigo da página 17). 

Uma das maneiras mais simples de 
| fazer isso consiste em escrever uma car- 
ta padronizada, com o auxílio do pro- 








cessador de texto, e depois armazená-la 
em fita ou disco. 

Para enviar essa carta a diferentes 
destinatários, bastará carregar o texto 
da mesma na memória e, utilizando as 
funções de edição, inserir nome, ende- 
reço e outros dados nos pontos apro- 
priados, imprimindo-a a seguir. 

Uma alternativa mais elaborada é o 
uso de um outro arquivo de textos — de- 
nominado máscara — contendo, por 
exemplo, o nome e o endereço de todas 
as pessoas para as quais se quer man- 
dar uma carta. No texto da carta, por 
sua vez, introduzem-se caracteres espe- 
ciais, que assinalam onde devem entrar 
os dados da máscara. Ao se fazer a im- 
pressão, o programa produzirá uma car- 
ta para cada destinatário, automatica- 
mente, colocando os dados nos pontos 
certos do texto. 

Um sistema de produção de cartas 
múltiplas tem variadas aplicações tanto 
domésticas (o envio de cartões de Natal 
personalizados, por exemplo), quanto 
profissionais (propaganda de um produ- 
to ou serviço, cartas circulares, corres- 
pondências para orçamentos e assim por 
diante). 


ER RS 


Teoricamente, qualquer microcom- 
putador pode ser usado para processa- 
mento de texto, desde que haja um pro- 
grama adequado para ele (na série de ar- 
tigos iniciada na página 576, apresenta- 
mos um programa completo de proces- 
samento de texto para a maioria das li- 
nhas cobertas por INPUT). É óbvio, po- 
rém, que não tem sentido fazer proces- 
samento de texto se não se conta com 
uma impressora. Além disso, convém 
lembrar que, na prática, existem algu- 
mas limitações impostas pelo hardware. 

Para começar, há a questão do tecla- 
do. A maioria dos micros compatíveis 
com o ZX-81, por exemplo, possui um 
teclado inadequado para datilografia rá- 
pida de textos, não dispondo de letras 
minúsculas, nem de sinais de acentua- 
ção. Portanto, ao processar textos com 
essas máquinas, não se pode esperar um 
resultado de bom nível. 

A linha Spectrum original (TK-90X, 
no Brasil) também tem um teclado so- 
frível, embora ofereça a alternativa de 
usar letras minúsculas e algum tipo de 
acentuação. O modelo TK-95 e os tecla- 
dos semiprofissionais acessórios, que 
podem ser comprados para o Spectrum, 
melhoram bastante a situação. 

Os computadores que possuem tecla- 
do semelhante ao de uma máquina de 
escrever — como o Apple, o TK-2000, 


o TRS:80, o TRS-Color Il e o MSX — 
são mais adequados quanto a esse aspec- 
to. Há, porém, uma grande variação de 
qualidade entre os diferentes modelos. 
Deve-se levar em conta, por exemplo, 
que só os micros da linha MSX incluem 
a acentuação original da língua portu- 
guesa, por terem adotado o padrão 
BRASCII (ASCII brasileiro). 

Outro elemento importante na esco- 
lha do hardware para processamento de 
texto é o vídeo. Nos computadores do- 
mésticos mais comuns, este em geral se 
limita a 32 ou 40 colunas (excepcional- 
mente 64, como nos micros TRS-80). 
Esse formato possibilita, entre outras 
coisas, o uso de televisores como saída 
de vídeo. Mas é restritivo para um tra- 
balho mais intenso com processadores 
de texto, principalmente os do tipo 
WYSWYG, que imprimem uma folha 
de sessenta a setenta toques. 

Em alguns micros, como o MSX e o 
Apple, é possível ampliar o formato de 
vídeo com software ou hardware de ex- 
pansão. Nesse caso, porém, não se re- 
comenda utilizar aparelhos de TV, pois 
a imagem perde a nitidez. Para quem 
pretende trabalhar por muito tempo 
com um processador, a nitidez de texto 
ea estabilidade no vídeo são fundamen- 
tais — e essas qualidades só são obtidas 
com monitores profissionais (veja o ar- 
tigo da página 851). 


LUSA 


O tamanho da memória disponível 
também deve ser considerado na seleção 
de um bom hardware para processamen- 
to de texto. A memória RAM não che- 
ga a ser um impedimento, dependendo 
do software escolhido. Alguns proces- 
sadores só operam com o texto inteira- 
mente contido na memória. Se ele for 
demasiado grande, é preciso dividi-lo 
em seções menores, que são gravadas em 
fita ou vídeo, o que costuma ser bastan- 
te cansativo. Uma maior capacidade da 
RAM ajuda muito, portanto. 

Os processadores mais avançados tra- 
balham à base de paginação, ou memó- 
ria virtual — isto é, gravam e lêem es- 
sas seções do texto em disco, periodica- 
mente. São, contudo, bem mais exigen- 
tes em termos de hardware. 

A memória auxiliar é outro item im- 
portante. Para quem utiliza pouco o 
processador e lida apenas com textos pe- 
quenos (cartas, digamos), um gravador 
cassete é perfeitamente aceitável para ar- 
mazenamento de textos. Para uso mais 
intenso, entretanto, é praticamente in- 
dispensável o acionador de disquetes. 
Além de maior capacidade e velocida- 





de, ele assegura uma taxa de erros baixa. 
O emprego de memória virtual e en- 
cadeamento de arquivos (seções separa- 
das de um texto, que podem ser reuni- 
das em qualquer ordem) é necessário 
quando o texto é limitado apenas pela 
capacidade da memória auxiliar. Po- 
rém, quando os textos são muito gran- 
des, essa solução dificulta o trabalho e 
impede a utilização de funções globais 
de edição (busca, substituição etc.) 


gi 


Em artigos anteriores (páginas 521 e 
648), examinamos os diversos tipos de 
impressora, suas características e as van- 
tagens que cada modelo oferece em re- 
lação ao processamento de texto. Por is- 
so, retomaremos aqui apenas os aspec- 
tos mais importantes. 

A impressora desempenha um papel 
fundamental na qualidade do texto im- 
presso (o produto final). Para trabalhos 
que não requerem uma apresentação 
perfeita, ou para a obtenção de cópias 
de “rascunho”, uma impressora matri- 
cial é perfeitamente adequada. Algumas 
delas podem produzir impressões em 
qualidade carta (dupla densidade de im- 
pressão), com uma aparência bastante 
semelhante à de um texto datilografa- 
do. Se queremos conseguir o máximo de 
qualidade, porém, devemos usar uma 
impressora do tipo margarida. 

Seja qual for o seu objetivo, não se 
esqueça de verificar se a impressora é 
compatível com o software de proces- 
samento, sobretudo quanto à capacida- 
de para realce de texto, mudança de fon- 
tes, acentuação etc. 


Va RU RO 


O processamento de textos por com- 
putador oferece enormes vantagens pa- 
ra escritores, jornalistas, professores, 
cientistas ou quaisquer outros profissio- 
nais cujas funções incluam a elaboração 
de documentos, relatórios e cartas. Se 
você está em uma dessas categorias e 
ainda não tem um processador, franca- 
mente, não sabemos como pôde passar 
sem ele, até agora! 

Se você é estudante, provavelmente 
seu grau de utilização não é tão inten- 
so, mas o computador ajuda muito na 
execução de trabalhos escolares. 

De qualquer modo, mesmo que você 
não se enquadre em nenhum dos casos 
mencionados, um computador é bem 
vantajoso em relação a uma máquina de 
escrever, embora o preço não seja mui- 
to diferente (se a máquina for elétrica). 
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ESENHO 





ARQUITETÔNICO (2) 


Desenhe os móveis que irão compor o 
ambiente a ser planejado. Depois que 
todas as peças se encaixarem em seus 
respectivos lugares, restará salvar 

o projeto em fita ou disco. 








1386 


Este é o segundo e último artigo sobre 
o projeto arquitetônico computadoriza- 
do. Aqui estão os complementos das | 
tagens para cada um dos micros, acres- 
cidas de instruções detalhadas referen- 
tes às três primeiras opções do menu. As 
outras quatro serão idênticas para as três 
versões. 





As opções são as seguintes: 











opção 1, desenha o ambiente; 
- opção 2, posiciona a mobília; 
- opção 3, cria mobília própria; 
opção 4, grava o projeto; 
- opção 5, carrega; 
opção 6, imprime; 
- opção 7, sai do programa. 


A primeira informação que devemos 
fornecer ao programa é a maior medi- 
da (em metros) do ambiente considera- 
do. Digite os dados e tecle <ENTER>. 
Depois disso, aparecerá um segundo me- 
nu contendo as seguintes opções: 
SPAÇO> desenha uma linha; 

J> desenha uma janela; 

P> desenha uma por 
<B> movimenta sem desenhar; 
<S> volta ao menu principal. 

Ao selecionarmos qualquer opção, à 
exceção da < , seremos perguntados 
sobre a direção e o comprimento da re- 
ta a ser feita. As questões serão repeti- 
das, de forma a permitir que tracemos 
linhas na diagonal, por exemplo, dizen- 
do o quanto para cima ou para a direi- 
ta queremos a reta, Se desejarmos traçá- 
la simplesmente na horizontal ou na ver- 
tical, bastará que forneçamos valores 
nulos. Repetiremos o processo até con- 
cluir o desenho do ambiente e, em se- 
guida, teclaremos <S> para retornar 
ao menu principal. Com um pouco de 
prática, desenvolveremos nossos proje- 
tos em questão de minutos. 

Na opção 2, usaremos as teclas 6 e 
7 para selecionar o móvel a ser posicio- 
nado. Teclando <S>, a peça aparece- 
rá no centro da tela. Poderemos movi- 
mentá-la para cima, para baixo, para a 
direita e para a esquerda acionando as 
teclas 5, 6, 7 e 8. Para girar o móvel no 
sentido horário, pressionaremos a tecla 
H; no sentido inverso, A. 

Na criação da mobília, na opção 3, 

















utilizaremos o mesmo processo da op- 
ção | (desenho do ambiente), com a di- 
ferença de que agora o objeto não apa- 
recerá na tela até que sejam fornecidas 
todas as suas dimensões. Indagados so- 
bre o número de lados da peça (1 a 15) 
e sobre seu código, daremos um nome 
de dois dígitos à mobília, de modo a po- 
dermos identificá-la mais tarde. 

A opção 4 grava tanto a tela como 
os dados correspondentes às peças da 
mobília. Usaremos depois a opção 5 pa- 
ra carregar na memória um projeto gra- 
vado anteriormente. A opção 6 — de 
impressão — funcionará somente com 
a impressora conectada. 


7010 INPUT "DIGITE DIRECAO 
B,E,D) ?7";DS 

7020 INPUT "DIGITE DISTANCIA 7?” 
;D: RETURN 

7040 LET Z=CODE INKEYS: 


(c, 


FOR K=1 


TO LEN K$: IF CODE (KS(K))=Z T 
HEN LET K=LEN K$: GOTO 7060 
7050 NEXT K: GOTO 7040 

7060 NEXT K: RETURN 

8000 DIM S(10): LET NF=0: LET F 
$="000": LET MAX=5: LET R=0: LE 


GOSUB 6060 
DIM OS(10,2) 


T SC=175/MAX: 
8010 DIM O(10,30): 











8020 FOR N=1 TO 5: FOR K=1 TO 8 

: READ O(N,K): NEXT K: NEXT N 

8030 FOR N=1 TO 10: READ OS(N): 
NEXT N 

8032 FOR N=USR “A” TO USR “A"+7 
READ A: POKE N,A: NEXT N 

8035 FOR N=] TO 10: READ S(N) 

NEXT N 

8040 RETURN 

B090 DATA .5,0,0,-.5,-.5,0.0,.5 

8100 DATA .75,0,0,- 75,0,0, 
5 

8110 DATA .5,0,0,-.75,-.5,0,0, 

75 

8120 DATA .5,0,0,-.5,-.5,0,0,.5 

8130 DATA .5,0,0,-.5,-.5,0,0,.5 

8150 DATA "AR”,"FO","LL","PI”," 


GE”, PXKC, RX XX”, PRXO PRO 
8160 DATA 16,32,64,255,64,32,16 
0 

8170 DATA 4,4,4,4,4,0,0,0,0,0 


Ao rodarmos o programa, veremos 
um menu com as seguintes opções: 
- opção 1, desenha o ambiente; 
- opção 2, posiciona a mobília; 
- opção 3, cria novas peças; 
- opção 4, grava o projeto; 
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COMPLETE O DESENHO CARREGUE 
DO AMBIENTE IMPRIMA 

CRIE NOVAS PEÇAS PARA MÓVEIS 
SUA MOBÍLIA APAGUE E REDESENHE 

GRAVE O PROJETO PROGRAMA TERMINADO 





- opção 5, carrega; 
- opção 6, imprime; 
- opção 7, sai do programa. 

Se escolhermos a opção 1, seremos 
perguntados sobre a maior medida do 
ambiente. Com essa informação, o mi- 
cro colocará o desenho em escala, de 
modo que ele caiba na tela. 

Tecle à barra de espaço para iniciar 
o desenho do ambiente. Há outras op- 
ções dentro da opção 1, a saber: 
<ESPAÇO> para desenhar; 
<B> para mover sem desenhar; 
<W> para desenhar janelas; 
<0> para desenhar portas; 
<C> para limpar a tela; 
<F> para voltar ao menu inicial. 

Ao escolher uma das opções (à exce- 
ção da <C> eda <F>), o usuário se- 
rá indagado sobre a direção e o compri- 
mento da reta desejada. Essas pergun- 
tas serão feitas várias vezes, a fim de 
oferecer dados ao computador. 

Suponhamos que queremos traçar 
uma reta inclinada, por exemplo. Basi- 
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camente, teremos que fornecer ao mi- 
cro duas informações, ou seja, o quan- 
to ela deverá se deslocar para cima ou 
para baixo e o quanto deverá ir para a 
direita ou a esquerda. A repetição das 
questões nos permite, portanto, montar 
coordenadas bidirecionais para a nossa 
reta e traçá-la na diagonal. 

Para obter retas horizontais ou ver- 
ticais (unidirecionais), bastará teclar 
<ENTER>, quando a pergunta for re- 
petida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opção 2 mantém na tela o desenho 
do ambiente executado na primeira op- 
ção e acrescenta um cursor em forma de 
cruz que será movimentado ponto a 
ponto através das teclas das setas. Para 
movê-lo mais rapidamente, tecle 
<SHIFT > + seta, até alcançar a posi- 
ção desejada — aquela em que o móvel 
será colocado. Em seguida, acione a te- 
cla P. Feito isso, escolha a peça a ser po- 
sicionada. As peças são numeradas de 
0a 9; caberá ao usuário criar as cinco 








últimas, já que as iniciais são automati- 
camente definidas (mas podem ser alte- 
radas) no programa: 0-pia, I-fogão, 
2-mesa, 3-geladeira e 4-armário. Para 
apagar um móvel, posicione o cursor no 
vértice que o gerou, tecle D e selecione 
o número desse móvel. Deveremos nos 
certificar de que o cursor esteja exata- 
mente no vértice que O gerou; caso con- 
trário, a peça não será totalmente eli- 
minada. 

Se quisermos girar um móvel para 
adequá-lo a um canto qualquer do am- 
biente, basta acionar a tecla R seguido 
do ângulo de giro do móvel — expresso 
em graus. Todos os objetos serão dese- 
nhados com essa angulação até que se 
tecle novamente R; só que desta vez se- 
guido de 0. A opção < F > possibilita 
retornar ao meu principal 

A opção 3 permite definir novas pe- 
ças ou modificar as cinco já existentes 
As medidas, fornecidas em centímetros, 
não deverão ultrapassar os 200 em. O 
primeiro passo consiste em escolher um 
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número de O a 9 para armazenagem da 
peça que, em seguida, será desenhada 
pelo mesmo processo utilizado na opção 
1 (desenho do ambiente). Tecle <C> 
para recomeçar o desenho e <F> para 
retornar ao menu inicial. 

A opção 4 armazena nosso projeto 
(que deve receber um nome aqui) em fi- 
ta ou disco, A opção 5 carrega na me- 
mória do micro um projeto previamen- 
te gravado em fita ou disco. 

A opção de impressão está incomple- 
ta, pois necessita de uma rotina que des- 
peje o conteúdo da tela na impressora. 
Retomaremos este assunto em um pró- 
ximo artigo, que nos habilitará a elabo- 
rar tal rotina. 


1210 0X=X:0Y=Y 

1220 IF IS$=CHR$(8) AND X>0 THEN 
X=X-1 

1230 IF IS=CHR$(9) AND X<185 TH 
EN X=X+1 


1240 IF IS=CHR$(94) AND Y>0 THE 
N Y=Y-1 

1250 IF IS=CHRS(10) AND Y<185 T 
HEN Y=Y+1 

1260 IF IS=CHRS(21) AND X>7 THE 
N X=x-8 

1270 IF I$=CHR$(93) AND X<177 T 
HEN X=X+8 

1280 IF IS=CHR$(95) AND Y>7 THE 
N Y=Y-8 

1290 IF IS=CHRS(91) AND Y<177 T 
HEN Y=Y+8 

1300 PUT(0X-3,0Y-3)-(0X+3,0Y+3) 
+S, PSET 

1310 IF 1I5="P” THEN 1360 

1320 IF I$="D” THEN 1430 

1330 IF 15="R” THEN 1500 

1340 IF I5="F” THEN FOR K=1 TO 
4:PCOPY K TO K+4:NEXT:GOTO 90 


1350 GoTo 1160 
1360 SOUND 190,1 


1370 COLOR 0:GOSUB 340 


1380 IS=INKEYS:IF IS<"0” OR IS> 
“9” THEN 1380 

1390 COLOR 1:GOSUB 340 

1400 N=VAL(IS) 

1410 COLOR 0,1:A$=0S(N):GOSUB 1 
540 

1420 Goto 1160 

1430 SOUND 200,1 

1440 COLOR 0:GOSUB 340 

1450 IS=INKEYS:IF IS<"0” OR IS> 
“9” THEN 1450 


1460 COLOR 1:GOSUB 340 

1470 N=VAL (IS) 

1480 COLOR 1,1:AS=0S(N):GOSUB 1 
540 

1490 Goto 1160 

1500 CLS:PRINT"ANGULO DE ROTACA 
O (0-360)": INPUT RT 

1510 IF RT<O OR RT>360 THEN 150 
o 


1520 
1530 
1540 
1550 
1560 
1570 
1580 


RT=(RT/180)*3,141 

SCREEN 1,0:GOTO 1160 

IF A$="" THEN RETURN 
P=1:Xl=X:yl=y 
BS=MIDS(AS,P,1) 

DS=MIDS (AS,P+1,1) 

D=VAL (MIDS (AS, P+2, INSTR(P, 
")-(P+2))) 
P=INSTR(P,AS,";")+1 
D=D/100:D2=FNA(D) :0X=X:0Y= 








1600 


Y 

1610 IF D$="D” THEN XA=D2*COS (R 
T) :YA=-DZ*SIN (RT) 

1620 IF D$="E” THEN XA=-D2*CoS( 
RT) : YA=D2*SIN (RT) 

1630 IF D$="B” THEN XA=DZ*SIN(R 
T): YA=D2*COS (RT) 

1640 IF DS="C” THEN XA=-D2*SIN( 
RT): YA=-D2*COS (RT) 

1650 XA=INT(XA+.5): YA=INT(YA+.S 


) 

1660 X=X+XA:Y=Y+YA 

1670 IF B$="D” THEN LINE(OX,0Y) 
-(X,Y), PSET 

1680 IF P<LEN(AS) THEN 1560 





Com o auxílio do computador, pode-se projetar o arranjo 


de uma cozinha, como mostra a tela à esquerda, 
em alguns minutos. O menu do programa, 
exibido na tela abaixo, 
oferece ao usuário 
sete opções. 






1690 X=X1:Y=Y1:RETURN 
1700 CLS:LINE INPUT"NOME DO ARQ 
vIvO FS 











1710 SG=PEEK(188)*256 

1720 CLS:PRINT"SALVANDO:”;FS 
1730 CSAVEM F$,SG,SG+6143,35252 
1740 goTo 90 

1750 CLS;LINE INPUT "NOME DO AR 
QUIVO: 

1760 PRINT"ACIONE O GRAVADOR E 
ESPERE” 

1770 CLOADM FS 

1780 goto 90 

1790 REM RAKIKRARRRARARANARHRAR 
1791 REM * * 
1792 REM * ROTINA PARA * 
1793 REM * DESPEJAR A TELA x 
1794 REM * NA IMPRESSORA x 
1795 REM * n 
1796 REM FRFRRRRIIOCRRR RARA 
1797 goto 90 


Ao rodarmos o programa, veremos 
na tela um menu com sete opções: 
- opção 1, desenha o ambiente; 

- opção 2, posiciona a mobília; 
- opção 3, cria novas peças; 

- opção 4, grava O projeto; 

- opção 5, carrega; 

- opção 6, imprime; 

- opção 7, sai do programa. 

Devemos primeiro escolher entre as 
opções 1, 3 ou 5. Ao decidirmos pela 1, 
seremos perguntados sobre a maior me- 
dida (em metros) do ambiente, informa- 
ção que permitirá ao micro colocar o de- 
senho em uma escala que o faça caber 
na tela. Tecle a barra de espaço para ini- 
ciar o desenho do ambiente. 














Há outras opções dentro da opção 1: 
<ESPAÇO> para desenhar; 
<B> para mover sem desenhar; 
<W> para desenhar janelas; 
<0O> para desenhar portas; 
<C> para limpar a tela; 
<F> para voltar ao menu inicial. 

Ao escolher uma das opções (à exce- 
ção da <C> eda <F>), o usuário se- 
rá perguntado sobre a direção e o com- 
primento da reta desejada. Essas per- 
guntas serão feitas várias vezes a fim de 
oferecer dados ao computador. 

Suponhamos que queremos traçar 
uma reta inclinada, por exemplo. Basi- 
camente, teremos que fornecer ao mi- 
cro duas informações, ou seja, o quan- 
to ela deverá se deslocar para cima ou 
para baixo e o quanto deverá ir para a 
direita ou a esquerda. A repetição das 
questões permite, portanto, montar 
coordenadas bidirecionais para nossa re- 
ta e traçá-la na diagonal. 

Para desenhar retas horizontais ou 
verticais (unidirecionais), basta teclar 
<ENTER> quando a pergunta for re- 
petida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opção 2 só poderá ser iniciada de- 
pois da opção 1. Ela mantém na tela o 
desenho do ambiente executado na pri- 
meira opção e acrescenta um cursor em 
forma de seta que será movimentado 
ponto a ponto através das teclas das se- 
tas. Para movê-lo mais rapidamente, 
usamos as teclas I-cima, M-baixo, K- 
direita e J-esquerda, até que o cursor al- 
cance a posição desejada — aquela em 
que a peça será colocada. Então acio- 
namos a tecla P. Feito isso, determina- 
mos a peça a ser posicionada, As peças 
são numeradas de 0 a 9; caberá ao usuá- 
rio criar as cinco últimas peças, já que 
as iniciais são automaticamente defini- 
das (mas podem ser alteradas) no pro- 
grama: 0-pia, I-fogão, 2-mesa, 3-gela- 
deira e 4-armário. Para apagar um mó- 
vel, posicione o cursor no vértice que o 
gerou, tecle D e selecione o número cor- 
respondente a esse móvel. Deveremos 
nos certificar de que o cursor esteja exa- 
tamente no vértice que o gerou; caso 
contrário, a peça não será totalmente 
eliminada. 

Se quisermos girar um móvel para 
fazê-lo caber em algum canto do am- 
biente, basta acionar R seguido do ângu- 
lo de giro do móvel, expresso em graus. 
Todos os objetos serão desenhados com 
essa angulação, até que se tecle nova- 
mente R, seguido de 0. A opção <F> 
permite retornar ao menu principal. 

A opção 3 possibilita definir novas 
peças ou modificar as cinco já existen- 
tes. As medidas, fornecidas em centíme- 
tros, não deverão ultrapassar os 200 cm. 


O primeiro passo consiste em escolher 
um número de 0 a 9 para armazenagem 
da peça que, em seguida, será desenha- 
da pelo mesmo processo utilizado na op- 
ção 1 (desenho do ambiente). Tecle 
<C> para recomeçar o desenho, e 
<F> para retornar ao menu inicial. 

A opção 4 armazena nosso projeto 
(que aqui deve receber um nome) em fi- 
ta. A opção 5 carrega na memória do 
micro um projeto gravado em fita. Es- 
tas duas opções podem ser alteradas pa- 
ra trabalhar com disco, bastando fazer 
as seguintes modificações: Troque o 
“CAS:” que vem logo após os coman- 
dos BSAVE e BLOAD por “A:” (linhas 
1720 e 1770), respectivamente. 

A opção de impressão está incomple- 
ta, pois necessita de uma rotina que des- 
peje o conteúdo da tela na impressora. 
Retomaremos esse assunto em um pró- 
ximo artigo, que nos habilitará a elabo- 
rar tal rotina. 


Y=Y 





1220 IF IS=CHR$(29) AND X>0 THE 
N X=X-1 

1230 IF IS=CHR$(28)AND X<1SSTHE 
N X=X+1 

1240 IF IS=CHR$(30) AND Y>0 THE 
N Y=Y-1 

1250 IF IS=CHR$(31)AND Y<18STHE 
N Y=Y+1 

1260 IF IS=CHRS(74) AND X>7 THE 
N X=X-8 

1270 IF IS=CHRS(75)AND X<177THE 
N X=X+8 

1280 IF IS=CHR$(73) AND Y>7 THE 
N Y=Y-8 

1290 IF I$=CHR$(77)AND Y<177THE 
N Y=y+8 

1310 IF 1$="P” THEN CL=1:GOTO 1 
360 

1320 IF I$="D” THEN CL=15:GOTOL 
430 

1330 IF IS="R” THEN A=USR(0) :GO 
TO 1500 

1340 IF 1I$="F” THEN A=USR(0) :GO 
To 90 

1350 GoTo 1160 

1360 BEEP 


1370 GOSUB 340 
1380 IS=INKEYS:IF IS<"0” OR IS> 


"9" THEN 1380 

1390 COLOR 0:GOSUB 340 

1400 COLOR 1:N=VAL (IS) 

1410 AS=0S(N) :GOSUB 1540 

1420 GoTO 1160 

1430 BEEP 

1440 GOSUB 340 

1450 IS=INKEYS:IF IS<"0” OR I5> 
“9” THEN 1450 

1460 COLOR 0:GOSUB 340 

1470 N=VAL(IS) 

1480 AS=0S(N) :GOSUB 1540 

1490 GoTO 1160 

1500 SCREENO:PRINT"ANGULO DE RO 


TAÇÃO (0-360)";: INPUT RT 
1510 IF RT<O OR RT>360 THEN 150 


0 
1520 RT=(RT/180)*3.141:SCREEN 2 





A=USR2 (0) :A=USRI (0) :GOTO 1 


IF A$="" THEN RETURN 
P=1:X1=X:Yl=Y 

BS=MIDS (AS,P,1) 

DS=MIDS (AS, P+1,1) 

D=VAL (MIDS (AS, P+2, INSTR(P, 
)-(P+2))) 
P=INSTR(P,AS,";")+1 
D=D/100:D2=FNA(D) :0X=X:0Y= 





1610 IF D$S="D” THEN XA=D2*COS(R 
T): YA=-D2*SIN (RT) 

1620 IF D$="E” THEN XA=-D2*COS( 
RT) : YA=DZ*SIN(RT) 

1630 IF D$="B” THEN XA=D2Z*SIN(R 
T) : YA=D2*COS (RT) 

1640 IF DS="C” THEN XA=-D2*SIN( 
RT) : YA=-D2*COS (RT) 

1650 XA=INT(XA+.5) :YA=INT(YA+.S 


) 

1660 X=K+XA:Y=Y+YA 

1670 IFB$="D” THENLINE (0X,0Y)-( 

X,Y) CL 

1675 COLOR 1 

1680 IF P<LEN(AS) THEN 1560 

1690 X=X1:Y=Y1:RETURN 

1700 LOCATE 5,18:LINE INPUT"NOM 

E DO PROJETO: s 

1710 LOCATE 5,20:PRINT"GRAVANDO 

ERGES (ao 

1720 BSAVE "CAS:"+FS,&HD100,4HE 

900 

1730 goto 90 

1750 LOCATE 5,20:LINE INPUT"NOM 

E DO PROJETO:";FS 

1760 LOCATE 5,22:PRINT"CARREGAN 

DO "+FS+". 

1770 BLOAD AS:"+FS 

1780 Fl=1:GOTO 90 

1790 REM *ARRKKMARARARIRANHAR 

1791 REM * 

1792 REM * 

1793 REM * 
* 
* 











* 
rotina para x 

despejar a tela * 

1794 REM na impressora  * 

1795 REM * 

1796 REM IICA RA 

1797 Goto 90 

2000 CLEAR 200,8HA000 

2010 DEFUSR=8HA000 

2015 DEFUSRI=8HA00D 

2020 DEFUSR2=LHAOIA 

2025 DEFUSR3=LHA026 

2030 DEFUSR4=LHA033 

2040 FOR R=0 TO 63:READ A 

2050 POKE (&HA000+R) ,A:NEXT 

2060 DATA 4H21,00,00,8H11,00,8H 

D1,01,00,24,4HCD,4&H59,00,8HC9 

2070 DATA 4H21,00,8HD1,8H11,00, 

00,01,00,24,4HCD,4H5C,00,8HC9 

2080 DATA 4H21,00,8H20,62,00,01 

+00,24,4HCD,8H56,00,8HC9 

2090 DATA &H21,00,00,8H11,8HFF, 

&HB8,01,00,24,4HCD,8H59,00,8HC9 

2100 DATA 4H21,4HFF,8HB8,8H11,0 

0,00,01,00,24,&HCD,8H5C,00,4HC9 

2110 POKE(&HAO1E),31 

2120 SP$="":FORI=1TOS:READAS 

2130 SP$=SPS+CHRS (VAL ("&H"+AS)) 

2140 NEXT:SPRITES(0)=SPS 

2150 GoTo 20 

2160 DATA E0,C0,A0,90,08,00,00, 

oo 






DESENHOS 


EM PERSPECTIVA 








PERSPECTIVA 
PONTO DE FUGA E 
PONTO DE VISTA 
DIMINUIÇÃO DE TAMANHO 

TECNICA DE SOMBREAMENTO 








Traga seu desenho para a magia do 
mundo tridimensional. Isso é possível 
graças aos recursos de seu micro 
aliados aos princípios da perspectiva 
e das técnicas de sombreamento. 


A maioria das pessoas sabe da impor- 
tância do uso da perspectiva em qual- 
quer figura, e, por isso, costuma incluí- 
la até nos mais simples esboços. Sur- 
preendentemente, a idéia de perspecti- 
va não é tão clara como parece; assim, 
os artistas mais antigos não tinham a 
menor idéia sobre o que fazer para dar 
profundidade às suas telas. Apenas a 
partir do Renascimento, quando os pin- 
tores começaram a dar um tom realista 
às representações, é que os princípios de 








perspectiva foram formulados. Essas re- 
gras são as mesmas usadas pelos artis- 
tas contemporâneos e aplicadas aos de- 
senhos feitos no computador. 

Para o desenvolvimento dessa técni- 
ca, foram necessários vários séculos, o 
que não significa que suas noções bási- 
cas sejam de difícil compreensão. Na 
realidade, a idéia fundamental é a se- 
guinte: todas as linhas horizontais per- 
manecem nessa posição, enquanto as 
verticais se inclinam “para dentro” da 
figura, convergindo para o denomina- 
do ponto de fuga. (Esse assunto já foi 
abordado no artigo Programação de 
gráficos em 3-D, página 693.) 

Apenas as linhas paralelas, perpen- 
diculares à figura, se dirigem para o 
ponto de fuga principal. As demais 
afluem para seus próprios pontos de fu- 

















ga, situados em uma mesma linha, no 
horizonte imaginário do desenho. 

Esses princípios, quando aplicados a 
figuras reais, podem se tornar um pou- 
co mais complicados; em desenhos sim- 
ples, entretanto, proporcionam a sensa- 
ção de profundidade exigida. O leitor já 
deve ter visto, na televisão ou no cine- 
ma, astronaves voando para o espaço a 
partir do imenso hangar da nave-mãe. 
Nesse caso, a sensação de profundida- 
de é dada pelo chão e pelo teto quadri- 
culados do hangar, que parecem se pro- 
jetar em direção ao espaço. 


GEL A 


Os feixes de retas perpendiculares são 
muito usados para se obter a visão de 
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um objeto em perspectiva. O primeiro 
programa, mostrado a seguir, desenha 
duas superfícies quadriculadas — o te- 
toe o chão do hangar — tendo o usuá- 
rio do micro como observador, olhan- 
do para o infinito. 


10 BORDER O: PAPER O: INK 7 
20 CLS INPUT "PROXIMIDADE D 
O CHAO ";V 


40 FOR K=-126 TO 127 STEP 6 
50 LET Y=174: LET X=K+V*K: IF 


ABS (X)>127+(X<1) THEN LET X 
=SGN (X)*127-(X<1): LET Y=100 
+(X-K) *74/ (V*K) 

60 PLOT 127-K,100: DRAW 127-X 


-PEEK 23677,Y-PEEK 23678 

70 PLOT 127-K,74: DRAW 127-X- 
PEEK 23677,174-Y-PEEK 23678 
80 NEXT K A 

90 LET F=V* (1/6): LET Y=F 

100 LET Y=Y*F: IF Y>77 THEN 
soro 140 

110 PLOT 0,97+ 
120 PLOT 0,77-Y: 
130 Goto 100 
140 IF INKEYS="" THEN GOTO 





DRAW 255,0 
DRAW 255,0 


150 GoTo 20 





10 PMODE 4,1 

20 CLS: INPUT”PROXIMIDADE DO CHA 
o";u 

30 PCLS:SCREEN 1,1 

40 FOR K=-126 TO 127 STEP 6 

50 Y=191:X=K+V*K:IF ABS(X)>127- 
(XS1) THEN X=SGN(X)*127+(X<1):Y 
=111+(X-K)*80/(V*K) 
60 LINE(127-K,111) 
ET 

70 LINE(127-K,80)-(127-X,191-Y) 
+ PSET 

80 NEXT 

90 F=VT(1/6):Y=F 


(127-x,Y) , PS 


100 Y=Y*F:IF Y>83 THEN 140 

110 LINE(0,108+Y)-(255,108+Y),P 
SET 

120 LINE(0,84-Y)-(255,84-Y),PSE 
E 


130 GoTo 100 





140 IF INKEYS="" THEN 140 ELSE 

20 

10 TEXT 

20 HOME : INPUT "PROXIMIDADE D 

O cHAO " 

30 HGR2 

40 FOR K = - 126 TO 127 STEP 

6 

50 Y = 191:X=K+V *K: IF A 

BS (X) > 127 - (X < 1) THEN X = 
SGN (X) * 1272 + (X<1):Y =1 





Um cenário quadriculado em persp 


tiva é um bom recurso 





para conferir profundidade a seu desenho. 


11 + (X-K) *80/ (VAK) 
60 HPLOT 127 - K,111 TO 127 - 


x,y 
70 HPLOT 127 - K,80 TO 127 - x 


s9S =" 

80 NEXT 

90. E =» VM Ap 6a =P 

100 Yy =Y*F: IFY>õ6B3fTHENI 
40 

110 HPLOT 0,108 + Y TO 255,108 
+Y 

120 HPLOT 0,84 - Y TO 255,84 - 
Y 


130 GoTo 100 
140 GET AS: GOTO 10 


ha 


10 SCREEN 0 

20 CLS: TNPUT”PROXIMIDADE DO CHA 
o";v 

30 SCREEN 2 

40 FOR K=-126 TO 127 STEP 6 

50 Y=191:X=K+V*K:IF ABS(X)>127- 
(X<1) THEN X=SGN(X)*127+(X<1):Y 
=111+(X-K) *80/(VAK) 

60 LINE(127-K,111)-(127-x,Y) 

70 LINE(127-K,80)-(127-X,191-Y) 
BO NEXT 

90 F=U" (1/6) :Y=F 

100 Y=Y*F:IF Y>83 THEN 140 

110 LINE(0,108+Y)-(255,108+Y) 
120 LINE(0,84-Y)-(255,84-Y) 

130 GOTO 100 

140 IF INKEY$="" THEN 140 ELSE 
20 


Alterando o valor inicial, obtêm-se 
efeitos diferentes, como a sensação de 
estar flutuando entre as duas superfícies. 
Atribuindo um valor baixo para V (2, 
por exemplo), as linhas inferiores se in- 
clinarão para os pontos de fuga situa- 
dos em um horizonte acima da metade 
do vídeo. Inversamente, as linhas supe- 
riores convergirão para um horizonte 


abaixo da metade do vídeo. Se, por ou- 
tro lado, digitarmos o valor 10, o cená- 
rio apresentará modificações profundas, 
com o observador em uma posição bem 
mais próxima do chão. 

Inicialmente, o programa desenha as 
retas frontais voltadas para o horizon- 
te, entre as linhas 40 e 80, e as retas que 
vão de lado a lado da tela, entre as li- 
nhas 90 e 130. A variável K dá a coor- 
denada X do início de cada linha, que 
é, então, multiplicada por V para che- 
gar à coordenada X da sua extremid: 
de final. A condição IF...THEN, na li- 
nha 50, apenas evita que o desenho ul- 
trapasse os limites da tela. Em alguns 
computadores, isto é dispensável, ape- 
sar de acelerar a execução do programa. 

As linhas restantes serão traçadas pe- 
la próxima parte do programa. A dis- 
tância entre elas torna-se cada vez me- 
nor à medida que “'se afastam” da te- 
la, um efeito controlado por sucessivas 
multiplicações da coordenada Y por 
V11/6. O valor 1/6 foi escolhido para 
dar um resultado mais realista; isto, po- 
rém, não impede que o usuário experi- 
mente outros valores. 


ii! OR RA 


Os princípios da perspectiva aplicam- 
se aos objetos bem como aos feixes de 
retas. Vistos a distância, todos os ele- 
mentos de um desenho parecem meno- 
res e mais próximos uns dos outros. Is- 
so se verifica, por exemplo, quando ob- 
servamos os topos e as bases de uma sé- 
rie de árvores iguais enfileiradas colo- 
cadas sobre duas retas que convergem 
para um mesmo ponto de fuga. 

Obtém-se esse efeito porque o cére- 
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À medida que nos afastamos dos objetos, eles parecem menores 
e mais próximos entre si, como mostra a figura 3 


bro humano relaciona o tamanho de um 
objeto conhecido com a distância em 
que ele se encontra. Ao vermos dois ob- 
jetos idênticos na forma, mas um com 
a metade do tamanho do outro, dedu- 
ziremos que o menor está duas vezes 
mais longe que o primeiro. Portanto, ao 
desenharmos alguns objetos em tama- 
nho decrescente no vídeo de um micro, 
teremos a impressão de que eles estarão 
“entrando na tela”. 

Analisando a distância entre os ob- 
jetos de uma figura, concluiremos que 
ela se comporta do mesmo modo. Os 
objetos parecem mais próximos entre si 
à medida que se afastam do observador. 

Existe uma relação matemática entre 
a distância e o tamanho, isto é, o tama: 
nho apresenta uma variação inversa- 
mente proporcional à distância. Assim, 
se aumentarmos a distância entre o obje- 
to e o observador, o tamanho do objeto 
diminuirá. É por essa razão que no pri- 
meiro programa a separação entre as li- 
nhas horizontais está elevada a 1/6. O 
número 6 foi escolhido apenas para se 
garantir um espaçamento mais condi- 
zente com a realidade; se o substituir- 
mos por qualquer outro, veremos que o 
desenho não perderá sua profundidade. 

O próximo programa mostra como 
desenhar uma vista em perspectiva de 
uma estrada delimitada por postes: 








10 BORDER O: INK 7: 

cLs 

15 DEF FN Y(X)=((174-VP)/100) 
*(X-128) +VP 

16 DEF FN B(X)=((20-VP)/100)* 
(X-128) +vP 

17 DEF FN S(T)=SF/SQR ((RW/2) 


PAPER O: 





“2+(T*PH)"2) 
20 PRINT *'* 








30 INPUT "DISTANCIA ENTRE POS 
TES ";P 

40 INPUT "LARGURA DA ESTRADA 
";RW 

50 INPUT "ALTURA DOS POSTES ” 
:PH 

60 INPUT "ALTURA DO OBSERVADO 
R ";RH 

70 CL 

80 LET SF=1: LET SF=160/FN S( 
0) 


90 LET VP=160/PH*RH+100: LET 


X=228: FOR T=l TO 15 
100 LET X=X-1: IF FN S(T)<FN Y 
(X)-EN B(X) THEN GOTO 100 


110 PLOT X,FN B(X): DRAW X- 
PEEK 23677,FN Y(X)-PEEK 23678 
LET XJ=(EN Y(X)-EN B(X))/10 
LET YJ=EN Y(X)-XJ 

120 PLOT X-XJ,FN Y(X): DRAW X- 
XJ-PEEK 23677, YJ-PEEK 23678: 
DRAW X+XJ-PEEK 23677, YJ-PEEK 
23678: DRAW X+XJ-PEEK 23677,FN 
Y(X)-PEEK 23678 

130 PLOT 255-X,FN B(X): DRAW 
255-X-PEEK 23677,FN Y(X)-PEEK 
23678 

140 PLOT 255-X-XJ,EN Y(X): 
DRAW 255-X-XJ-PEEK 23677,YJ- 
PEEK 23678: DRAW 255-X+XJ-PEEK 
23677,YJ-PEEK 23678: DRAW 255- 
X+XJ-PEEK 23677,EN Y(X)-PEEK 
23678 

150 NEXT T 

160 GOTO 160 





10 PMODE 4,1:PCLS:CLS 

20 DEFENYT(X)=((900-VP)/500)*(X 
-640) +VP:DEFENYB (X) = ((100-VP) /5 
00)*(X-640) +VP:DEFFNS(T)=SF/SQR 
((RW/2) 12+(T*PH) 12) 

30 INPUT"DISTANCIA ENTRE OS POS 
TES";P 





São necessários princípios e técnicas esp: 
se obter um bom sombreamento em esferas. 





is para 


40 INPUT"LARGURA DA ESTRADA” ; RW 
50 INPUT"ALTURA DOS POSTES” ;PH 
60 INPUT"ALTURA DO OBSERVADOR” ; 
RH 

70 SCREEN 1,1 

80 SF=1:SF=800/FNS(0) 

90 VP=800/PH*RH+100:X=1140:FOR 
T=l TO 15 

100 X=X-4:1F ENS(T)<ENYT(X)-ENY 
B(X) THEN 100 

110 LINE(X/5,191-FNYB(X)/5)-(X/ 
5,191-FNYT(X)/5), PSET:XJ= (ENYT( 
X)-ENYB(X))/10:YJ=ENYT(X)-XJ 
120 LINE((X-XJ)/5,191-FNYT(X)/5 
)=((X-X9)/5,191-YJ/5), PSET:LINE 
= ((X+XJ)/5,191-YJ/5), PSET:LINE- 
((X+X9)/5, 191-ENYT(X)/5), PSET 
130 LINE(255-X/5,191-FNYB(X)/5) 
-(255-X/5,191-FNYT(X)/5), PSET 
140 LINE(255-(X+XJ)/5,191-FNYT( 
X)/5)-(255-(X+XU)/5,191-Y9/5),P 
SET:LINE -(255-(X-XJ)/5,191-yJ/ 
5), PSET:LINE-(255-(X-XJ)/5,191 
YJ/5), PSET:LINE-(255-(X-XJ)/5,1 
91-ENYT(X)/5), PSET 

150 NEXT 

160 IF INKEYS 
RUN 





THEN 160 ELSE 


10 TEXT : HOME 

20 DEF EN YT(X) = ((900 - VP) 
/ 500) * (X - 640) + VP: DEF 
EN YB(X) = ((100 - VP) / 500) * 
(X - 640) + VP: DEF EN S(T) = 
SF / SOR ((RW / 2)" 2+(Tx* 
PB) * 2) 

30 INPUT "DISTANCIA ENTRE OS P 

OSTES ";P 

40 INPUT "LARGURA DA ESTRADA ” 
; RW 

50 INPUT "ALTURA DOS POSTES "; 
PH 

60 INPUT "ALTURA DO OBSERVADOR 
";RH 


70 HCOLOR= 3: HGRZ 














80 SF = L:SF = B00 / FN S(0) 
90 VP = 800 / PH * RH + 100:X = 
1140: FOR T = 1 TO 15 

100 Xx =X - 4: IF FNS(T)< F 
N YT(X) - EN YB(X) THEN 100 
110 HPLOT X / 5,191 - FN YB(X 
)J 4/5 TOX/ 5,191 - EN YT(X) 
/ 5:X] = ( EN YT(X) - EN YB(X) 
) 7 10:YJ = EN YT(X) - XJ 

120 HPLOT (X - XJ) / 5,191 - 
EN YT(X) / 5 TO (X - x9) / 5,19 
1 - YJ / 5: HPLOT TO (X + XJ) 
/ 5,191 - YJ / 5: HPLOT To (X 
+ XJ) / 5,191 - PN YT(X) 7/5 
130 HPLOT 255 - X/ 5,191 - F 
NYB(X) / 5 TO 255 - X/ 5,191 
- EN YT(X) / 5 

140 HPLOT 255 - (X + XJ) / 5,1 
91 - EN YT(X) / 5 TO 255 - (X 
+ XJ) / 5,191 - YJ 7 5: HPLOT 
TO 255 - (X - XJ) / 5,191 - YJ 
/ 5: HPLOT TO 255 - (X - x9) / 
5,191 - EN YT(X) / 5 

150 NEXT 
160 GET AS: 


sy 


10 SCREEN O 

20 DEFENYT(X)=((900-VP) /500)*(X 
-640) +VP:DEFFNYB (X)=((100-VP)/5 
00) *(X-640) +VP:DEFFNS (T) =SF/SQR 
((RW/2)"2+(T*PH)"2) 

30 INPUT"DISTANCIA ENTRE OS POS 
TES ";P 

40 INPUT"LARGURA DA ESTRADA ";R 
w 


RUN 


50 INPUT"ALTURA DOS POSTES ";PH 
60 INPUT"ALTURA DO OBSERVADOR ” 
;RH 
70 SCREEN 2 
80 SF=1:SF=800/FNS(0) 
90 VP=800/PH*RH+100:X=1140:FOR 
T=1 TO 15 
100 X=X-4:IF FNS(T)<ENYT(X)-ENY 
B(X) THEN 100 
110 LINE (X/5,191-FNYB(X)/5)-(X 
/5,191-ENYT(X)/5) :XJ= (ENYT(X)-F 
NYB(X))/10:YJ=ENYT(X)-XJ 
120 LINE ((X-XJ)/5,191-FNYT(X)/ 
5)=((X-X9)/5,191-Y9/5) :LINE-((X 
+X9)/5,191-Y9/5) :LINE-((X+KJ)/5 
+191-ENYT(X)/5) 
130 LINE (255-X/5,191-FNYB(X)/5 
)-(255-X/5,191-ENYT(X)/5) 
140 LINE (255-(X+XJ)/5,191-ENYT 
(X)/5)-(255- (X+X9)/5,191-YJ/5) : 
LINE-(255-(X-XJ)/5,191-YJ/5) :LI 
NE-(255-(X-X9)/5,191-FNYT(X)/5) 
150 NEXT 
160 TF INKEYS="" THEN 160 ELSE 
RUN 
Este programa permite ao usuário de- 
finir exatamente o cenário da estrada 
antes de desenhá-lo em perspectiva. 
Para facilitar os cálculos, ele oferece 
três funções: FNS(T) calcula a altura de 
cada poste; FNYT(X) e FNYB(X) dão 
as coordenadas Y da extremidade infe- 
rior e superior dos postes para qualquer 
posição X, Podemos imaginar o traba- 


lho dessas duas funções como sendo o 
de traçar duas retas que afluem para um 
determinado ponto de fuga, entre as 
quais serão colocados os postes. 

Na parte principal do programa, a li- 
nha 80 calcula o fator de escala, SF, que 
constrói um poste tomando por base a 
altura do anteriormente desenhado. A 
variável VP define o valor da coordena- 
da Y do ponto de fuga, que, por sua vez, 
depende da altura do observador e da 
altura dos postes. A coordenada X está 
sempre no centro da tela. 

Quinze postes são desenhados em ca- 
da lado da estrada pelo laço entre as li- 
nhas 90 e 150. Os da margem direita são 
os primeiros a serem erguidos. 

Inicialmente, a linha 100, começan- 
do a partir da extremidade direita da te- 
la, decresce o valor da posição X, até 
que a altura do poste, calculada por 
S(T), se encaixe exatamente entre as 
linhas criadas por FNYT e FNYB. Fei- 
to isso, a primeira parte da linha 110 de- 
senha o poste, enquanto a porção res- 
tante manipula as variáveis XJ e YJ, que 
são fatores de escala para a construção 
da parte superior (suporte dos fios). A 
linha 120 é responsável por essa última 
tarefa. 


ET) 


Além da perspectiva, existem outras 
técnicas capazes de dar tridimensiona- 
lidade aos gráficos. A mais comum de- 
las é o sombreamento. Infelizmente, a 
falta de variação de tons das cores cons- 
titui um grande problema quando ten- 
tamos aplicar essa técnica aos compu- 
tadores domésticos. Com isso, torna-se 
extremamente difícil criar o sombrea- 
mento necessário para um desenho em 
três dimensões. 

Já os computadores maiores, ofere- 
cendo uma rica gama de tonalidades, fa- 
zem dessa tarefa algo bem mais fácil. 


NETAS PONTILHADOS 


É possível acrescentar sombras a uma 
figura qualquer colorindo apenas alguns 
pontos em sua região mais escura e a 
maioria deles nas partes mais claras. 
Portanto, o número de pontos acesos 
em uma certa área do objeto é que irá 
determinar a claridade. 

Com a variação gradual da densida- 
de nas diferentes regiões, poderemos 
criar o efeito de sombreamento. O pró- 
ximo programa utiliza essa técnica pa- 
ra desenhar um grupo de esferas. Elas 
se parecem tanto com planetas girando 
no espaço que o programa chega a con- 











cluir um fundo estrelado e a desenhar 
um anel ao redor de algumas delas. 


10 BRIGHT O: BORDER O: PAPER 
O: INK 7: CLS 
20 FOR I=1 TO 100: PLOT RND* 


255,RND*175: NEXT I 

25 LET F=0: FOR T=l TO 3 
30 LET CL=RND*5+2 

40 LET XC=RND*195+30: 
RND*115+30 

50 LET S=RND*30 

60 FOR K=-S TO Ss 

70 IF INT (K)=0 AND F=0 THEN 


LET YC= 


PLOT INVERSE 1; OVER 1;XC-L* 
2,YC: DRAW INK CL;L*4,0: LET 
F=1 

80 LET X=SQR (S*S-K*K) 


90 LET X2=2*X 
100 FOR L=-X TO X 


110 PLOT INK CL; INVERSE 1;XC 
+L,YC+K: IF RND*X2-X<L THEN 
PLOT INK CL;XC+L, YC+K 

120 NEXT L 

130 NEXT K 

140 NEXT T 











H2 PROGRAMAÇÃO BASIC 1121) Dj DO BS 





150 PAUSE O 


10 PMODE 3,1:PCLS3:SCREEN 1,0 
20 FOR K=1 TO 100:PSET(RND(256) 
-1,RND(192)-1,2):NEXT 

25 FOR T=l TO 8 

30 XC=RND(195)+30:YC=RND(131)+3 
º 

40 CL=RND(3) :CL=CL-(CL=3) 

50 S=RND(25)+5 

60 FOR K=-8 TO 5 

70 IF K=1 AND RND(4)=1 THEN CIR 
CLE(XC,YC),S*1.5,RND(4),0 

80 X=SQR(SAS-K*K) 

90 X2=2*X 

100 FOR L=-X TO X STEP 2 

110 IF RND(X2)-X<L THEN COLOR C 
L ELSE COLOR 3 

120 PSET(XC+L, YC-K) 

130 NEXT L,K 

140 NEXT T 

150 GOTO 150 


10 HCOLOR= 3: HGR2 


20 FORK = 1 TO 100: HPLOT IN 
T (279 * BND (1) + 1), INT (19 
1* RND (1) + 1): NEXT K 

25 FORT =1TOB 

30 XC = INT ( BND (1) * 195 + 
30):YC = INT ( END (1) * 131 + 
30) 

40 CL = INT ( RND (0) * 3 + 1) 
:Cl = CL- (CL=a3) 

50 S = INT ( BND (1) * 25 + 5) 
60 FORK = -STOS 

70 IF K = 1 AND INT ( RND (1) 
*4 + 1) = 1 THEN GOSUB 160 
B0 X= SQR(S*S-K*kK) 

90 X2=2*x 

100 FORL = - X TO X STEP 2 
110 IF INT ( RND (0) *x2+1 
) - X<L THEN HCOLOR= CL: GOT 
o 120 

115 HCOLOR= 3 

120 HPLOT XC + L,YC - K 

130 NEXT L,K 

140 NEXT T 

150 GoTO 150 

160 FOR A = 0 TO 6.28 STEP 05 
170 HPLOTS*2* cos (A) +X 
CS* 5* SIN(A)+YC 


180 
190 


NEXT A 
RETURN 


10 COLOR 15,1,1:SCREEN 2 

20 FOR K=1 TO 100:PSET(INT(RND( 
1)*256), INT (RND(1)*192)) :NEXT 
25 FOR T=1 TO & 

30 XC=INT (RND(-TIME) *195)+30:YC 
=INT (RND(-TIME) *131)+30 

40 CL=INT(RND(1)*3):CL=CL-(CL=3 
) 

50 S=INT(RND(1)*25)+5 

60 FOR K=-S TO 8 

70 IF K=1 AND INT(RND(1)*4)=1 T 
HEN CIRCLE(XC,YC),8*1.5,9,0,,.2 
5 


80 X=SQR(S*S-K*K) 

90 X2=2*X 

100 FOR L=-X TO X STEP 2 

110 IF INT(RND(1)*X2)-X<L THEN 
COLOR CL ELSE COLOR 3 

120 PSET(XC-L, YC-K) 

130 NEXT L,K 

140 NEXT T 

150 GoTo 150 


O cenário de estrelas é feito pela li- 
nha 20, que acende aleatoriamente 100 
pontos na tela. Oito esferas serão dese- 
nhadas (nos micros da linha Spectrum 
apenas três) pelo laço entre as linhas 25 
e 140. A linha 30 escolhe uma posição 
casual para o centro de cada esfera, e 
as linhas seguintes determinam cor e 
tamanho. 

O procedimento geral para a criação 
de cada esfera consiste em preenchê-la, 
de baixo para cima, com retas horizon- 
tais. Esse trabalho é controlado por 
meio da variável K, que tem —S como 
valor inicial (a coordenada Y da parte 
mais baixa da esfera) e +S como valor 
final (a coordenada Y da parte mais al- 
ta da esfera). 

A linha 80 define a coordenada X do 
início de cada reta através da equação 
para construção do círculo, X2 é o com- 
primento de cada reta, 

As linhas 100 e 130 determinam a cor 
das linhas. A variável L pode ser consi- 
derada como a luminosidade de cada re- 
gião; seu valor varia segundo a distân- 
cia entre o ponto e a borda do círculo. 
Um número aleatório (dependendo do 
comprimento da reta) é escolhido pela 
linha 110; caso seja menor que a clari- 
dade da região, define-se o ponto a ser 
plotado como sendo de cor preta. Se, ao 
contrário, o número for maior, o pon- 
to será definido como sendo da cor es- 
colhida na linha 40. 

Por fim, a linha 135 desenha um anel 
ao redor de dois ou três planetas. 
xperimente adaptar estas rotinas pa- 
ra sombrear outros sólidos, como cilin- 
dros ou superfícies planas. 





























Naa E mom ca 
FORMATAÇÃO 


DE TELAS 


Se você já se deu ao trabalho de es- 
crever um programa, certamente enfren- 
tou dificuldades na padronização da en- 
trada dos dados. Quantas vezes não foi 
preciso verificar o número máximo de 
caracteres de uma cadeia string, para 
que não excedesse o tamanho do seu ar- 
quivo, ou manipular uma data para dar- 
lhe um formato adequado? 

A rotina que publicamos aqui resol- 
ve esses e outros problemas, padroni- 
zando o formato de entrada de dados e, 
ainda, melhorando sua apresentação. 
Ela fornece formatos definidos para a 
entrada de dados numéricos, alfanumé- 
ricos, data e hora. Além disso, para que 
você tenha uma preocupação a menos, 
encarrega-se de verificar a validade das 
datas e horas. 


M LARA 


A utilização da rotina de formatação 
é simples. Digite o programa e execute- 
o, para ter uma amostra do que ela faz. 
Antes de chamar a rotina, você precisa- 
rá apenas entrar um parâmetro que de- 
finirá o formato e o tipo de dado que 
a máquina aceitará. 

O parâmetro será fornecido pela va- 
riável P$, já que o BASIC não permite 
a passagem direta de parâmetros para 
as sub-rotinas. Assim, se você quiser dar 
entrada a uma data, a variável P$ deve- 
rá conter a letra C (faça P$=“C” e use 
“calendário” como mnemônico); para 
a entrada de hora, P$ conterá o valor 
H (P$=“*H”). Como esses dois forma- 
tos são fixos, basta uma só letra. 

Para a entrada de números e de va- 
riáveis alfanuméricas, mais informações 
serão necessárias. Na entrada de núme- 
ros, a variável P$ deverá conter a letra 
D seguida de dois valores, que indicam 
o número de algarismos (incluindo o 
ponto decimal) e o número de casas de- 
cimais. O primeiro valor deve ter sem- 
pre dois dígitos (até 9, coloque O antes 
do algarismo significativo); o segundo, 
apenas um dígito (use uma vírgula para 
separá-lo do anterior). Se você quiser, 
por exemplo, dar entrada a um número 
de nove dígitos, dois dos quais decimais, 
use: P$=*“D09,2”. Para a entrada de 
variáveis alfanuméricas, utiliza-se a le- 


tra G (lembre-se de “geral”, já que 
aqui são aceitos números e letras), se- 
guida do número máximo de caracte- 
res a serem digitados. Para a entrada de 
um nome de até trinta caracteres, use: 
P$=G,30”. 

Definido o parâmetro, chama-se a 
sub-rotina por meio do comando GO- 
SUB 600. Se for conveniente, você po- 
derá renumerá-la e colocá-la em qual- 
quer parte do seu programa. Nesse ca- 
so, não se esqueça de mudar o número 
da linha pedida pelo GOSUB. 

Depois de digitada, a informação é 
armazenada na variável W$. Para usar 
seu conteúdo, é necessário transferi-lo 
para outra variável cujo valor não seja 
alterado pela sub-rotina. Uma linha de 
programa que utiliza a rotina de entra- 
da de dados fica assim: 


100 PRINT "VALOR DO SALARIO"; : 
P$="DO8, 2" :GOSUB 600:SA=VAL (WS) 


Quanto à localização do formato pa- 
ra a entrada de dados na tela, a rotina 
também é simples. Seu ponto inicial se- 
rá aquele em que você tiver deixado o 
cursor antes de chamar a rotina, Para 
marcar esse ponto, coloque um ponto 
e vírgula no fim da mensagem. Se essa 
posição não lhe convier, posicione o cur- 
sor com HTAB e VTAB 

Como está, a rotina não trabalha 
bem se o formato ficar dividido em duas 
linhas, pois só o posicionamento hori- 
zontal é monitorado. Mais à frente, ve- 
remos como modificar essa situação. 


(ae 


A rotina começa na linha 600, onde 
a variável PH passa a conter o valor da 
atual posição horizontal do cursor, A 
posição de memória 36 armazena valo- 
res de O a 39. Somamos 1 ao valor em 
questão, tornando-o equivalente ao usa- 
do por HTAB. A variável PP passa en- 
tão a conter o valor ASCII da letra que 
caracteriza o parâmetro. Com base nes- 
sa variável, o programa será desviado 
adequadamente na linha 604. As linhas 
indicadas em 604 atribuem os valores 
necessários às variáveis que controlam 
o funcionamento da sub-rotina. 


Aprenda a montar telas para 
entrada de dados formatados nos 
computadores Apple e TK-2000. 

A padronização tornará seu trabalho 
mais profissional e confiável. 


Examinemos essas variáveis. Inicial- 
mente, P contém o comprimento do da- 
do a ser digitado, Para data e hora, es- 
se valor é fixo; para outros tipos de da- 
do, é lido de PS. 

PF indica o ponto em que se poderá 
deixar a rotina. Assim, para entradas al- 
fanuméricas, seu conteúdo é | — ou se- 
ja, pelo menos um caractere tem que ser 
digitado, não se aceitando entradas va- 
zias. Nos demais casos, PF é igual a P, 
forçando o uso de todos os campos do 
formato de entrada. Isso impede que 
uma data seja digitada pela metade ou 
que se omita a parte decimal de um nú- 
mero (mesmo que seja 0). 

Duas outras variáveis, Pl e P2, mar- 
cam a posição onde se usam caracteres 
fixos no formato. Assim, para datas, o 
caractere “*/” é utilizado duas vezes. A 
posição é contada a partir de 0. 

Finalmente, as variáveis alfanuméri- 
cas iniciadas por W servem para mon- 
tar a linha de formatação, que ficará ar- 
mazenada em WDS. 

Depois que o conteúdo dessas variá- 
veis foi definido, a execução converge 
para a linha 618. Aí terá início a entra- 
da de dados propriamente dita. O for- 
mato é colocado na posição lida pela li- 
nha 600 e as variáveis W$, WIS$ e PX 
são limpas, passando a conter a posição 
do caractere dentro do string que está 
sendo trabalhado. 

A linha 626 indica o caractere corres- 
pondente à posição atual do cursor, 
usando operações lógicas. Para isso, o 
computador atribui valor 1 às relações 
verdadeiras, e 0, às falsas. Assim, todas 
as comparações são condensadas em 
uma única linha, evitando-se o uso de 
várias instruções IF. 

O caractere indicado é colocado em 
sua posição e, em seguida, o cursor é re- 
posicionado. Espera-se então a entrada 
de um caractere pelo teclado (linha 628). 
A rotina só particulariza dois tipos de 
caractere: o carriage return (ou seja, 
<CR>, cujo código é 13) e o back- 
space (ou +, de código 8). Os demais são 
tratados em grupo. 

Aose digitar <CR>, o caractere se- 
rá reconhecido pelo seu código, que es- 
tá armazenado na variável PA. Note que 
ele só terá efeito se a posição do carac- 
tere atual (PX) for maior ou igual ao 











ponto de saída definido (PF). Assim, se 
estivermos entrando uma data, não po- 
deremos deixar a rotina antes de digitar 
o último caractere. 

O back-space (linha 632) só terá efei- 
to se estiver além do primeiro caractere 
(PX>0). Nesse caso, a rotina é desvia- 
da para a linha 644 e o valor | é sub- 
traído de PH — ou seja, a tabulação ho- 
rizontal retrocede uma posição. Se PX 
está apagando o primeiro caractere 
(PX=1), volta-se para a linha 620, e o 
processo recomeça, Na linha seguinte, 
PX é decrementado de 1, pois estamos 
retornando a uma posição anterior. Ve- 
rifica-se então se o cursor não caiu so- 
bre um dos caracteres fixos do formato 
(cujas posições são representadas por P1 
e P2). Em caso afirmativo, recua-se o 
cursor mais uma posição. Na linha 648, 
o conteúdo de W$ (onde a entrada está 
sendo montada) é atualizado e retoma- 
se o ciclo. 

Não sendo <CR> ou +, o caracte- 
re digitado é interpretado como uma en- 
trada de dado. As linhas 634 a 638 che- 
cam se ela é válida. Para valores de PP 
iguais a 1,2 e 6(3 e 4 não são usados), 
apenas números são admitidos. Para 
PP igual a 5 (entradas alfanuméricas) 
admitem-se letras maiúsculas e núme- 
ros. Se o caractere não for válido, a exe- 
cução é devolvida à linha 628. Caso con- 
trário, a linha 640 se encarrega de 
colocá-lo na tela e adicioná-lo à variá- 
vel W$, incrementando, em seguida, PH 
e PX. Verifica-se então se o cursor foi 
para uma posição de caractere fixo, que 
deve ser saltado. 

Após todos esses passos, retornamos 
à linha 624, que encerra a entrada quan 
do o último caractere do dado é digita- 
do, desviando a execução para a linha 
650. Esta linha e a 652 voltam a impres- 
são de tela para o modo NORMAL e 
apagam a parte não utilizada do forma- 
to. Nesse ponto, a rotina de entrada de 
dados está terminada. Segue-se a checa- 
gem da validade de datas e horas por 
meio de operações lógicas. 


si A 


Podemos agora fazer algumas modi- 
ficações na rotina — por exemplo, 
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E POSICIONAMENTO DO CURSOR 
E 
a 


E DEFINIÇÃO 
DO PARÂMETRO COMO FUNCIONA 
[| TIPOS DE DADOS APERFEIÇOAMENTOS 








transferir a declaração da variável WWS$S 
da linha 601 para o início do programa, 
visto que só é necessário defini-la uma 
vez, e não sempre que a rotina for utili- 
zada. Talvez você não precise usar to- 
dos os tipos de entrada. Nesse caso, é 
possível retirar as partes dispensáveis da 
rotina, pois elas são independentes. 
Com isso, economiza-se um pouco de 
memória. 

Também é interessante fazer com que 
a tabulação vertical seja controlada, de 
modo que se possam entrar valores com 
mais de 39 caracteres. 


[eb] [ci] 


10 HOME 
20 PRINT TAB( 8)”DEMONSTRACAO 
DE ENTRADA”; TAB( 55) "DE DADOS 


30 VTAB 6: PRINT "SENHA DE ACE 
sso: PS - "G,05": GOSUB 600: 
IF W$ < > “SENHA” THEN END 

PRINT "DATA DE HOJE 





40 VTAB 8 
PS =” 





E : GOSUB 600:DTS = 
ws 
50 VTAB 10: 


PRINT "HORA: ";:PS 


= "H”: GOSUB 600:HRS = WS 

60 VTAB 12: PRINT "DIGITE UM V 
ALOR: ": VTAB 13: HTAB 6:PS = " 
D10,3”: GOSUB 600:VA = VAL (WS 
)j 

70 PRINT PRINT DTS: PRINT HR 
$: PRINT VA 

80 END 

596 REM EMKRMALRRARIRRARHAA 
597 REM *** SUB ENTRADA 44% 
598 REM KEKIARRRKKKANARKRAK 
599 REM 

600 PH = PEEK (36) + L:PP = A 
sc (PS) - 66 

601 WWS = " 





ET -*; REM *D 
EFINA ESTA VARIAVEL NO INICIO D 
O SEU PROGRAMA * 

602 INVERSE 

604 ON PP GOTO 606,608,0,0,612 
1616 

606 P = 8:PF = P:Pl = 2:P2 = 5: 
WDS = "DD/MM/AA":WCS = "/": GOT 


o e18 

608 P = VAL ( MIDS (P$,2,2)):D 
= VAL ( RIGHTS (PS,1)): IF D 
= O THEN 614 

610 PF = P:P1l = P-D- 1:PZ = 
PI:WCS = ".":WDS = LEFTS (WWS, 


Pl) + WCS + LEFTS (WWS,D): GOT 


o 618 








612 P = VAL ( RIGHTS (PS,2)) 
614 PF = 1:Pl = 99:P2 = P1:WDS 
= LEFTS (WWS,P):WCS = "": GOTO 
618 

616 P = S:PF = P:Pl - 2:P2 = P1 


:WDS = "HH:MM”:WCS = ":” 

618 HTAB PH: PRINT WDS; 

620 WS = "":WIS = "" 

622 PX = JLEN (WS) 

624 IF PX = P THEN 650 
626 WA = 95 * (PP = 2 OR PP=5 
) + 68 * (PP = 1 AND PX< 2) + 
77 * ((PP = 1 AND PX > 2 AND PX 
< 5) OR (PP = 6 AND PX > 2)) + 
65 * (PP = 1 AND PX>5) +72 
* (PP = 6 AND PX < 2) 





628 UTAB PH: PRINT CHRS (WA); 
HTAB PH: GET WIS 

630 PA = ASC (WI$): IF PA = 13 
AND PX > = PF THEN 650 

632 IF PA = & AND PX > O THEN 

6aa 


634 IF PP = 
636 IF PA < 


5 THEN 638 
48 OR PA > 57 THEN 


628 
638 IF PA< 32 ORPA>iI127 THE 
N 628 
640 HTAB PH: PRINT CHR$ (PA); 


:W5 = WS + WIS:PX = PX + L:PH = 


PH + 1: IF PX = Pl OR PX = PZ 
THEN. PX = PX + 1:PH - PH + 1:WS 
- WS + WCs 

642 GOTO 624 

644 PH = PH - 1: IF PX = 1 THEN 
620 

646 PX = PX - 1: IF PX = Pl OR 
PX = P2 THEN PH - PH - 1:PX = P 
BR: 

648 WS = LEFTS (WS,PX): GOTO 6 
26 

650 NORMAL FOR X = 1 TOP - 
LEN (WS) 

652 PRINT CHRS (32);: NEXT 
654 ON PP GOTO 656,666,0,0,666 
1660 

656 D = VAL ( LEFTS (W$,2)):M 


= VAL ( MIDS (WS,4,2)):A = VA 

L ( RIGHTS (W$,2)) 

658 V = ((M=4)+(M=6)+(M 
-=9) + (M=11)) *(D>30)+ 

M=2)*(CINTI(A/4)=A/ 

4) * (D> 29) + ( INTIA/4) < 
> (A / 4)) * (D>28)) + ((A 

<D +(M<I)+(M5>IZ) + 

< 1) + (D > 31)): GOTO 664 

660 H = VAL ( LEFTS (WS,2)):M 

= VAL ( RIGHTS (WS,2)) 


662 V=(H>24)+(M>õS59) 
664 IF VU THEN PRINT CHR$ (7) 
;:PH = PH - LEN (WS): INVERSE 
: GOTO 618 

666 PRINT : RETURN 
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Existem duas maneiras de fazer o mi- 
crocomputador tocar música. A primei- 
ra consiste em introduzir a melodia co- 
dificada em números dentro de um pro- 
grama. A segunda, em utilizar um edi- 
tor musical que cuide de toda a codifi- 
cação, deixando ao usuário apenas a ta- 
refa de digitar as notas. 

Já vimos em INPUT como progra- 
mar O micro para executar melodias. O 
processo é simples, mas requer um bom 
conhecimento dos comandos musicais 
do BASIC. Como estes nem sempre têm 
muita relação com música, o “*composi- 
tor” é obrigado a consultar constante- 
mente tabelas ou manuais, para verificar 
os valores adequados para a tonalidade, 
duração e volume, entre outros parâme- 
tros de cada nota. A notação macromu- 
sical do MSX e do TRS-Color fac 
esse processo, mas não elimina o traba- 
lho com o restante do programa 

A execução de música através dc pro- 

gramas apresenta outras desvantagens, 
como a dificuldade de editar a melodia 
e a impossibilidade de ouvir as notas an- 
tes que o programa esteja completo. 
Além disso, para cada peça temos que 
escrever um novo programa. 
Um editor musical cuida de todos os 
detalhes da codificação, deixando o 
usuário livre para tratar da melodia pro- 
priamente dita. Não é preciso conheci- 
mentos de programação para usá-lo. 

Como os programas são bem longos, 
foram divididos em três partes. Digite 
agora a primeira parte e grave-a, para 
mais tarde completar a listagem. 


DIGITAR AS NOTAS 


Uma vez que tenhamos o programa 
completo na memória do computador, 
poderemos selecionar as notas de várias 
maneiras. O processo será explicado 
pormenorizadamente para cada uma 
máquinas no último artigo desta a 
Seja qual for o método escolhido, o 
usuário sempre terá a chance de alterar 
a melodia — mudando, inserindo ou 
apagando notas — até obter o resulta- 
do desejado. Se quiser conferir o traba- 
lho, poderá executar a música — mes- 
mo incompleta — a qualquer instante. 
O editor musical permite ainda a mu- 












































MUSICAL (1) 


Transforme o microcomputador em 
Uma partitura com composições 
musicais de sua própria autoria 
e, ainda, em uma orquestra que 
execute as melodias recém-criadas. 





dança do andamento da oitava e, no ca- 
so do MSX, do timbre da nota. 

As notas são selecionadas por meio 
de seus nomes (A, B, €, D...) ou do te- 
clado, que é usado como se fosse um 
piano. Se o usuário preferir, poderá 
combinar os dois sistemas, introduzin- 
do nota por nota em certos trechos e 
executando outros no teclado. 








10 BORDER O: PAPER O: INK 7: 
cLs 

40 LET maxnotes=1500: LET ct= 
O: LET tempo=.1: POKE 23609, 
128: POKE 23658,0: DIM m(35) 
95 FOR i=l TO 35: READ m(i): 
NEXT à 

100 DIM t(maxnotest+1): GOTO 
110 

105 CLS PRINT "Aquarde. Musi 
ca sendo apagada.” 

110 FOR 1=1 TO maxnotes: LET t 
(1)=0: NEXT à 

190 CLS 

200 PRINT INVERSE L;AT 0,6;" 


MENU PRINCIPAL ”; INVERSE 0;'" 
"TAB 5;"[1] Tocar pelo teclado 
"''7AB 5;"[2) Entrar notas”'! 
TAB 5;"[3] Tocar de novo” 

210 PRINT "TAB 5;"[4] Editar m 
usica”" "TAB 5;"[5] Apagar musi 
ca”''TAB 5;"[6] Salvar musica” 
"TAB 5;"[7] Carregar musica” 


270 PRINT !"TAB 5;"Opcao [8] p 
ara sair”; 
300 LET AS=INKEYS: IF AS="" 


THEN GOTO 300 


310 LET A=CODE (AS) 


320 IF (AS49 OR A>55) AND A<> 
113 AND A<>81 THEN GOTO 190 
330 IF A=49 THEN GOSUB 1000 
340 IF A=50 THEN GOSUB 2000 
350 IF A=51 THEN GOSUB 3000 
360 IF A=52 THEN GOSUB 4000 
365 IF A=53 THEN GOTO 105 
366 IF A=54 THEN GOSUB 5000 
367 IF A=55 THEN GOSUB 6000 
370 IF A=115 OR A=83 THEN 
stop 

380 GOTO 190 

1000 CLS 

1001 LET len=l: LET I5="Semicol 
cheia” 


1002 INPUT "[CJONTINUE DA ULTIM 
A NOTA OU [TINICIE NOVA MUSI 
ca ? ";as 

1003 IF 15<>"c” 
N Goto 1002 
1004 LET num=1: 





AND 15<>"1" THE 


IF 1$="c” THEN 


LET num=ct*2+1: LET tn=num 
1005 IF 1$="1” THEN LET ct=0 
1010 PRINT "Toque as notas nas 
teclas de”'"<o> - mais baixa 








ate - mais alta”'"Duas 
oitavas e meia estao dispo-niv 
eis, sendo a tecla <I> o c 
medio”"!!! 
1060 PRINT AT 17,0;"Duracao da 
nota=" 


1070 FOR i=1 TO 100: NEXT à 
1075 LET 0$="* 
1080 LET NS=INKEYS: 


EN GOTO 1075 


IF N$="" TH 
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E EXECUÇÃO DE MELODIAS AS NOTAS 

ATRAVÉS DE UM PROGRAMA E ALTERAÇÃO DA MELODIA 

VANTAGENS DO CONFERÊNCIA 

PD na EDITOR MUSICAL E COMPOSIÇÃO DE PEÇAS 

E COMO DIGITAR SELEÇÃO DE NOTAS 

l 1085 IF N$=0$ THEN GOTO 1080 1099 IF N<>32 AND N<>13 THEN G ndex=16 OR index=20 OR index=21 
! 1090 LET N=CODE (NS) oTO 1109 THEN GOTO 1080 





1091 IF N=33 THEN LET len=l: L 1100 IF 1$="i” THEN LET ct=INT 1116 IF index=2 THEN LET t(num 
ET I$="Semicolcheia” (num/2): RETURN )=len: LET t(numt+1)=-4: GOTO 11 
1092 IF N=64 THEN LET len=2: L 1102 LET ct=ct+INT ((num-tn)/2) 27 

É ET I8="Colcheia” : RETURN 1118 IF index<=0 THEN GOTO 108 
1093 IF N=35 THEN LET len=4: L 1109 IF N<60 THEN LET index=N- O 
ET I$="Seminima” 47 1120 SOUND 1en/10,m(index) 
1094 IF N=36 THEN LET len=B: L 1110 IF N>90 THEN LET index=N- 1125 LET t(num)=len: LET t(num+ 
ET I$="Minima” 87 1)=m(index) 
1096 IF N=37 THEN LET len=16: 1112 IF N>=60 AND N<=90 THEN G 1126 PRINT AT 15,0;INT (num/2)+ 
LET I$="Semibreve” oTO 1080 1;” notas na memoria” 
1097 PRINT AT 17,16;” ";Is;” 1115 IF index=5 OR index=9 OR à 1127 LET num=num+2 


1130 LET O$=N$ 
1140 GOTO 1080 


10 CLEAR 5000:MX=250 

20 R1S$="whqestu” :R2$="12345678" 
30 R38="abcdefoCDEGAp” 

40 NY$="Q2W3ERST6Y7UL9OOPZSXDCF 
VBHNJM, L.Ç/[<"+CHRS (30) +CHRS (31 
)J+CHRS (29) +CHRS(28)+” "+CHRS(18 
)+CHR$ (127) +CHRS$ (13) +CHRS (11) 
50 DIM NS(MX),CS(12) 

60 FOR I=1TO7:READ LES(I),L2S(I 
) : NEXT 

70 FOR I=1TOlIZ :READ CS(T):NEXT 
80 DATA SEMIBREVE,1,MINIMA,2,SE 
MINIMA, 4,COLCHEIA,8, SEMICOLCHET 
A,16,FUSA, 32, SEMIFUSA, 64 

90 DATA c,C,d,D,e,£,F,9,G,a,A,b 
100 FOR I=1 TO MX:NS(I)="*42a"; 
NEXT 

110 NN=0: 0C$="4":TE=120:LES="w 
” sLE=1 

120 CLS:COLOR 15,2:KEY OFF:LOCA 
TE 4,1:PRINT"COMPOSITOR MUSICAL 
MENU PRINCIPAL” 

130 LOCATE 6,3:PRINT"1:RECUPERA 
MUSICA DA FITA” 

140 LOCATE 6,4:PRINT"2:SALVA MU 
SICA NA FITA” 

150 LOCATE 6,5:PRINT"3:TOQUE NO 
TECLADO” 

160 LOCATE 6,6:PRINT"4:COLOQUE 
UMA TABELA DE NOTAS” 

170 LOCATE 6,7:PRINT"S:MUDE O T 
EMPO DE EXECUÇÃO” 

180 LOCATE 6,8:PRINT"6:LISTA/ED 
ITA NOTAS” 

190 LOCATE 6,9:PRINT"7:TOCA A M 
USICA DA MEMORIA” 

200 LOCATE 6,10:PRINT"8:MUDANÇA 
GERAL DE OITAVA” 

210 LOCATE 6,11:PRINT"9:SAI DO 
PROGRAMA” 

220 LOCATE 5,19:PRINT"ENTRE COM 
O NUMERO DA OPÇÃO”; 

230 AS=INKEYS :IF AS<"1” OR AS> 
"9" THEN230 




















240 OP=VAL (AS) 

250 ON OP GOSUB 2080,2210,500,8 
10,300,1510,1760,1910,270 

260 Goro 120 

270 CLS:PRINT"VOCÊE TEM CERTEZA( 
S/N)?” 

280 AS=INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 280 

290 IF A$="S” THEN CLS:COLOR 15 
+ 4:END ELSE 120 

300 CLS:COLOR 15,4:PRINT"MUDANÇ 
A DO TEMPO DE EXECUÇÃO” 

310 PRINT:PRINT"TEMPO ATUAL:";T 


E 

320 PRINT"ENTRE NOVO VALOR DE T 
EMPO”;: INPUT 8T 

330 IF ST=0 THEN RETURN 

340 IF ST<32 OR ST>255 THEN 320 
350 TE=ST;: RETURN 

360 LOCATE 6,7:PRINT"NOTA or 
TAVA DURAÇÃO” 

370 U=9 

380 FOR L=NN-STONN 

390 IF L<1l THEN 490 

400 LOCATE 1,U:PRINT TAB(20);” 


410 
";Li 
420 AS=NS(L) 

430 BS=LEFTS(AS,1):IF B$>="a” A 
ND B$<="q"” THEN C$=CHRS (ASC(BS) 
-32)+" "ELSE CS=BS+"4" 

440 IF B$="p” THEN CS="- * 


LOCATE 1,U:PRINT USING" 444 


450 PRINT ” ";C8;" ";MID 
S(AS,2,1);” e 
460 PRINT LES(INSTR(RIS,MIDS(AS 


,3,1)))5 

470 IF MIDS(AS,4,1)="." THEN PR 
INT”.” ELSE PRINT 

480 U=U+1: 

490 NEXTL: RETURN 

500 CLS:COLOR 15,4,15:C=VAL(OCS 
):IF C>6 THEN C=6:0C5="6" 

510 LOCATE 13,1:PRINT"MODO ORGA 


520 LOCATE 16,4:PRINT ;” 


530 LOCATE 1,3:PRINT"OITAVA MAX 
IMA:”;C; TAB (46) ;"DURAÇÃO:";LES( 
INSTR(RIS, LEFTS(LES,1))); 

540 TF MIDS(LES,2,1)="." THEN P 
RINT”.” ELSE PRINT 

550 LOCATE 0,1 








560 LOCATE 0,20:PRINT” / =OITA 
VA (INS/DEL) / =DURAÇÃO” 


570 LOCATE 0,21:PRINT"ENTER =ME 
NU CLS=APAGA” 


580 GOSUB 360 

590 IF NN=MX THEN LOCATE 1,18:P 
RINT”MAXIMO NUMERO DE NOTAS COL 
OCADO!”;:FOR S=1T03000:NEXT:RET 
URN 

600 IS=INKEYS:IF IS="" THEN 600 
610 P=INSTR(NYS,1S):IF P=0 THEN 
600 x 

620 IF P>36 THEN 650 

630 OCS=MIDS (STR$ (C+INT((P-1)/1 
2)),2):IS=CS(P-12*INT((P-1)/12) 
, 





640 GoTO 750 





10 CLEAR 5000 

20 MX=250:R1$="whq: 28="1234 
5" :R3$="abcdefgCDFGAp” :NY$S="Q2W 
3ERST6Y7UI900PEAZSXDCUGBHNHK, L. 
"+CHR$ (103) +" /7"+CHRS (10) +CHRS ( 
8)+CHRS(9)+" "+CHRS (21) +CHRS (93 
)+CHRS (13) +CHRS (12) 

30 DIM NS (MxX),CS(12) 

40 FOR I=1 TO 5:READ LES(I),L2S 
(1) :NEXT 

50 FOR I=1 TO 12:READ CS(I):NEX 





T 

60 DATA SEMIBREVE, 1,MINIMA,2,SE 
MINIMA, 4,COLCHEIA, 8, SEMICOLCHEI 
A,16 

70 DATA c,C,d,D,e,f,F,9,G,a,A,b 
80 FOR I=1 TO MX:NS(I)="**2*":N 
EXT 

90 NN=0:0C$="3": TE=B:LES="w ":L 
E-1 

100 CLS: PRINTE6, "COMPOSITOR MUS 
ICAL”:PRINT €40,"MENU PRINCIPAL 





110 PRINTE96,"1:RECUPERA MUSICA 
DA FITA” 

120 PRINT"2:SALVA MUSICA ATUAL 
NA FITA” 

130 PRINT"3:TOQUE NO TECLADO” 
140 PRINT"4:COLOQUE UMA TABELA 
DE NOTAS” 

150 PRINT”5S:MUDE O TEMPO DE DUR 
ACAO” 

160 PRINT"6:LISTA/EDITA NOTAS” 
170 PRINT"7:TOCA A MUSICA DA ME 
MORIA” 

180 PRINT"B:MUDA A OITAVA GERAL 


190 PRINT"9:SAI DO PROGRAMA” 
200 PRINT6452,"ENTRE O NUMERO D 
A OPCAO”; 

210 AS=INKEYS:IF AS<"1” OR AS>* 
9” THEN 210 

220 OP=VAL(AS) 

230 ON OP GOSUB 1900,2020,480,7 
60,420,1360,1560,1720,250 

240 Goto 100 

250 CLS:PRINT” VOCE TEM CERTEZA 
(S/N)?":POKE 282,255 

260 AS=INKEYS:IF AS<>"S” AND AS 


<>"N” THEN 260 
270 IF AS="S” THEN CLS:END ELSE 
100 


280 PRINTE132,"NOTA OITAVA D 
URACAO” 

290 RT=0 

300 FOR L=160 TO 320 STEP 32:PR 
INTEL :NEXTL:PRINTE160,"”; 

310 FOR L=NN-STO NN 
320 IF L<l THEN 410 
330 PRINTUSING" 44 
340 AS=NS(L) 

350 BS=LEFTS(AS,1):IF BS>="a”AN 
D BS<="9” THEN CS=CHRS (ASC (BS) — 
32)+” "ELSE CS=BS+"4" 

360 IF B$="p” THEN CS="— " 

370 PRINT C$S;” ";MIDS(AS,2, 
n;” E 

380 PRINT LES(INSTR(RIS,MIDS (AS 
+3,1))); 


";Li 








MELHORE A QUALIDADE DO SOM 

O programa apresentado neste ar- 
tigo é bastante satisfatório para a 
composição e execução musical a ní- 
vel amador. Os músicos profissionais, 
entretanto, logo notarão suas limita- 
ções — entre elas, a falta de recur- 
sos para a modulação do timbre (o 
que diferencia os vários instrumen- 
tos entre si quanto à sonoridade) e 
a impossibilidade de se obter efeitos 
polifônicos. Mas a culpa não é do 
programa. 

Mesmo o MSX, o microcomputador 
mais sofisticado em termos de progra- 
mação de efeitos sonoros, não é capaz 
de substituir um verdadeiro sintetiza- 
dor musical. Este permite a simulação 
de um grande número de instrumentos 
de sopro, corda ou percussão, através 
da manipulação das formas de onda. 
Acoplando-o a seu microcomputador, 
por meio de uma interface MIDI (veja 
o artigo da página 1306), você poderá 
conseguir a qualidade máxima em ma- 








téria de som. 





390 IF MIDS(AS,4,1)="."THEN PRI 
NT”. "ELSE PRINT 

400 IF RT<>OTHEN RETURN 

410 NEXT L:RETURN 

420 CLS: PRINTE7,"MUDE OPCAO TEM 
Po” 

430 PRINT:PRINT"TEMPO ATUAL E”; 
TE 

440 PRINTE128,"ENTRE NOVO VALOR 


DE TEMPO"; : INPUT ST 

IF ST=0 THEN RETURN 

IF ST<00RST>255 THEN 440 

TE=ST: RETURN 

480 CLS:POKE282,255:C=VAL (OCS): 

IF C>3 THEN C=3:0CS="3" 

490 PRINTE7,"MODO ORGAO” 

500 PRINTE64,"OITAVA:”;C;TAB(IO 

); "DURACAO:”;LES (INSTR(RIS, LEFT 

S(LES,1))); 

510 IF MIDS(LES,2,1)=".” THEN P 

RINT”.” ELSE PRINT 

520 PRINT6448,"C/B=OITAVA 

ESQ/DR=DURACAO  ENTER=MENU 
CLEAR=APAGAR" ; 

530 GOSUB 280 

540 IF NN=MX THEN PRINTE416, "MA 

XIMO NUMERO DE NOTAS COLOCADO!” 

:: FORD=1701000:NEXT: RETURN 

550 IS=INKEYS:IF IS="" THEN 550 

560 P=INSTR(NYS,1S):IF P=0 THEN 
550 

570 IF P>36 THEN 600 

580 OCS=MIDS (STRS (C+INT((P-1)/1 

2)),2):18=CS(P-12%INT((P-1)/12) 

, 

590 GOTO 700 













Apresentamos neste artigo algumas 
funções e rotinas relativamente 
simples, que podem facilitar bastante 
as tarefas que envolvem a manipulação 
de cadeias de caracteres. Conheça-as. 





A maneira mais adequada de armaze- 
nar conjuntos de dados numéricos ou al- 
fanuméricos dentro de um programa em 
BASIC consiste em colocá-los em linhas 
DATA, e lê-los com comandos READ. 

Porém, quando o número de dados 
é pequeno, não compensa introduzi-los 
em linhas DATA e acrescentar ao pro- 
grama comandos destinados a lê-los e 
carregá-los em variáveis indexadas. É 
muito mais conveniente colocar os da- 
dos dentro de uma única variável string, 
de tal forma que possamos recuperá-los 
ou consultá-los por meio de uma sub- 
rotina ou função. 

Esta é também a melhor solução pa- 
ra os usuários de computadores que não 
dispõem dos comandos READ e DA- 
TA, como os micros pessoais ZX-81. 


RSRS IR 


O programa que se segue exemplifi- 
ca bem o procedimento sugerido. Ele in- 
forma quantos dias tem um determina- 
do mês do ano: 


20 LET C$="31293130313031313031 
3031" 

40 PRINT "ENTRE O NUMERO DO MES 
45 INPUT M 

50 IF M<l OR M>12 THEN GOTO 40 
60 PRINT "ESTE MES TEM "; 

70 PRINT CS((M-1)*2+1 TO (M-1)* 
2+2),” DIAS.” 

Bo GoTo 40 


am mala) [có) sy 


20 C$="312931303130313130313031 
40 INPUT "ENTRE O NUMERO DO MES 


MAIS OPERAÇÕES 
“COM CADEIAS 


";M 

50 IF M<1 OR M>12 THEN GOTO 40 
60 PRINT "ESTE MES TEM "; 

70 PRINT MIDS(CS, (M-1)*2+1,2); 
"DIAS." 

80 goTo 40 


Os números de dias referentes a ca- 
da mês são colocados na cadeia de ca- 
racteres C$. A função da linha 70 extrai 
o número de dias do mês M (especifica- 
do no programa de teste, pela entrada 
da linha 40) usando a expressão: 


posição inicial em M$ = 
número de dígitos = 2 


(M-1)*2+1 


Note que, se M=1, a posição inicial 
em M$ é 1. Esta é uma fórmula geral, 
que pode ser usada para extrair subca- 
deias de comprimento fixo, concatena- 
das em uma única cadeia. 

Nos computadores que têm funções 
programáveis do tipo string, essa fórmu- 
la pode ser colocada dentro de uma fun- 
ção, e usada repetidas vezes, como nes- 
te programa: 


hay 


10 DEF FNT$(I,L,S$)=MIDS(S$, (I- 
1)*L+1,L) 

20 LET M$="JANFEVMARABRMAIJUNJU 
LAGOSETOUTNOVDEZ” 

30 LET C$="31293130313031313031 
3031” 
o EEN 





"ENTRE O NUMERO DO MES 


so! Er M<1 OR M>12 THEN GOTO BO 
60 PRINT FNT$S(M,3,M$);” = ";ENT 
$(M,2,C5);” DIAS.” 


70 coro 40 
80 PRINT:PRINT "DATA INVALIDA” : 
Goro 40 


Para executar o programa no Spec- 
trum, substitua a linha 10: 


10 DEF FNTS(I,L,S$)=SS((1-1)*L+ 
1 TO (I-1)*L+L) 


Na função FNTS, definida na linha 
10, o primeiro argumento é o índice; o 
segundo, o tamanho fixo das subcadeias 
e o terceiro, o nome da cadeia com os 
dados. Note que a mesma função é usa- 









n READ E DATA 
n MENUS E OPÇÕES 

RECUPERAÇÃO DE PALAVRAS 
n O USO DE MACROS 


ms À INSTRUÇÃO CLEAR 


da com duas cadeias de formatos dife- 
rentes, na linha 60 do programa. 

Em computadores que não aceitam 
funções com mais de um argumento, 





pode-se empregar uma sub-rotina, mais 
longa, mas igualmente útil: 


am mal )io) nsy 


20 LET M$="JANFEVMARABRMAIJUNJU 
LAGOSETOUTNOVDEZ” 

30 LET C$="31293130313031313031 
3031" 

40 ts "ENTRE O NUMERO DO MES 





50 Te M<1 OR M>12 THEN GOTO 98 
55 LET I=M 

60 LET L=3 

LET X$=M$ 

70 GOSUB 100 

75 PRINT S$;” TEM "; 

LET X$=C$S 

85 GOSUB 100 


90 PRINT S$;” DIAS.” 

95 Goro 40 

98 PRINT:PRINT "DATA INVALIDA” 
99 coTO 40 


100 LET S$=MIDS (X$, (I-1)*L+1,L) 
110 RETURN 


Para rodar o programa nos micros 
Spectrum e ZX-81, substitua a linha 100 
do programa: 


100 LET S$=XS((I-1)*L+1 TO (I-1 
J*L+L) 


Eae 





Outra aplicação bastante interessan- 
te dos conceitos aqui discutidos consis- 
te na programação rápida de menus com 
entradas por extenso. As várias opções, 
colocadas em uma única variável string, 
são depois recuperadas pelo método já 
descrito: 


aa mal io) sy 


10 LET FL$="INSEREEDITARAPAGARL 
ISTAR” 
20 PRINT 





"ENTRE UM COMANDO: ";F 









L$;" "ii 

30 INPUT OPS 

FOR I=1 TO 4 

50 LET D$=MIDS(FLS, (1-1)*6+1,6) 
60 IF D$=0P$ THEN GOTO 80 

65 NEXT I 

70 PRINT "CODIGO INVALIDO” 

75 Goto 20 

80 PRINT "COMANDO ESCOLHIDO => 
";D$ 

90 GoTO 20 


Substitua a seguinte linha do progra- 
ma para micros da linha Sinclair: 


50 LET D$=FLS((1-1)*6+1 TO (1-1 
)*6+6) 


Para os micros que dispõem da ins- 
trução INSTR, que localiza subcadeias, 
e de funções programáveis, podemos fa- 
zer um programa mais compacto: 


mamas 


5 DEF FNC(0$,CS,N)=INT((INSTR(O 
S, LEFTS(CS+STRINGS(N,” "),N))-1 
)/N)+1 

10 0$="CR CH PD DB AT ” 

20 PRINT "ENTRE O CODIGO DA TRA 
NSACAO "; 

30 PRINT ” (CODIGOS VALIDOS: 
8;9)” 

40 LINE INPUT "CODIGO : 
50 I=FNC(0$,C3,3) 

60 IF I=0 THEN PRINT 
O INVALIDO”:GOTO 30 
70 PRINT "CODIGO ";1 
80 Goto 20 


"50 
"cs 


"X** CODIG 


A função FNCS$ retorna o número da 
opção (posição sequencial na cadeia). 
Seus argumentos de entrada são: 


OS; cadeia que contém as opções; 
CS: subcadeia procurada em OS; 
N: tamanho fixo das subcadeias. 


É necessário colocar espaços em 
branco para separar os comandos arma- 
zenados em OS. Se isso não for feito, 
a função INSTR pode encontrar subca- 
deias superpostas, que não correspon- 
dem às opções possíveis. 


RECUPERA TS) 


A recuperação de palavras, códigos 
ou números de uma lista, efetuada de 
acordo com o método que acabamos de 
explicar, requer que todos eles tenham 
o mesmo comprimento, de modo a per- 
mitir a aplicação de uma fórmula. 

Isso nem sempre é desejável ou pos- 


sível. Suponhamos que, na programa- 
ção de um jogo de aventura, você peça 
ao jogador que entre a lista dos objetos 
que ele quer levar em uma incursão a um 
castelo mal-assombrado. Nesse caso, os 
comprimentos das palavras contidas na 
cadeia de entrada podem ser bastante di- 
ferentes entre si, o que exigiria a elabo- 
ração de um programa um pouco mais 
“inteligente”. 

Se determinarmos, por exemplo, que 
o caractere de separação entre palavras 
é o espaço em branco, a seguinte rotina 
realizará o trabalho: 


80 REM 
100 LET A$="" 

110 IF CS$(1)="" THEN RETURN 
120 IF CSS(1)<>" ” THEN GOTO 13 
o 
125 
127 
130 





SUBROTINA -— 


LET CS$=CS$(2 TO) 

Goro 100 

LET AS=AS+CSS(1) 

135 LET CS$=CSS(2 TO) 

140 IF C8$(1)="" OR CS$S(1)=" ” 
THEN RETURN 

150 coTo 130 


[ET [Te freitas” 


80 REM 
100 AS=" 
110 IF MID$(CS$,1,1)="" THEN RE 
TURN 

120 IF MID$(CS$S,1,1)=" " THEN € 
S5=MIDS (CS$,2) :GOTO 100 

130 AS=AS+MIDS (CS$,1,1):CSS$=MID 
s(css,2) 

140 IF MIDS(CS$,1,1)="" OR MIDS 
(C8$,1,1)=" " THEN RETURN 

150 GoTo 130 


A cadeia de entrada é CS$. A cada 
chamada da rotina, A$ retorna uma 
subcadeia contida entre dois espaços em 
branco, em CS$; extraindo-a, reduz o 
tamanho de CS$. 

Eis um programa que testa o funcio- 
namento dessa rotina: 


SS iialáio sy 





SUBROTINA - 








20 PRINT "ENTRE TRES COISAS QUE 
CARREGARA (SEPARADAS POR ESPA 
cos):” 

30 INPUT CSS 

40 LET N=0 


50 PRINT"VOCE CARREGARA:” 
55 GOSUB 100 

60 IF A$="" THEN GOTO 80 
70 LET N=N+1:PRINT N,AS 
75 GoTO 60 

B0 PRINT "E MAIS NADA...” 
90 STOP 





Para rodar nesses computadores, acres- 
cente a seguinte linha: 


10 CLEAR 1000 


A linha 100 inicializa a cadeia de sai- 
da, A$. A linha 110 começa um laço de 
repetição, testando se a cadeia de entra- 
da, CS$, é vazia — ou seja, se todas as 
palavras nela contidas já foram extrai- 
das. Em caso afirmativo, a sub-rotina 
retorna o controle ao programa que a 
chamou. A linha 120 verifica se o pri- 
meiro dos caracteres que restaram em 
CS$ é um espaço em branco. Se for, ele 
é “podado”* de CS$, e o programa re- 
torna para a linha 100, para executar um 
novo teste. Se o primeiro caractere não 
for um espaço em branco, a linha 130 
retira-o de CS$, levando-o para A$. Fi- 
nalmente, se um novo espaço em bran- 
co for encontrado (fim de subcadeia), 
ou se CS$ tiver se esgotado, a linha 140 
retorna o controle ao seu programa 
principal. 


EU Dia 


Uma das funções mais úteis de um 
programa de processamento de textos é 
a que permite substituir todas as ocor- 
rências de uma determinada palavra, ou 
sequência de caracteres, em um docu- 
mento. Essa função possibilita, entre 
outras coisas, o uso de macros para a 
redação rápida de textos muito repetiti- 
vos. Digamos que você esteja escreven- 
do um artigo sobre processamento de 
imagens, e que essa expressão (““proces- 
samento de imagens””) será citada algu- 
mas dezenas de vezes, por extenso, ao 
longo do texto. Para poupar tempo e es- 
forço, sempre que for preciso digitá-la, 
você poderá colocar um símbolo qual- 
quer em seu lugar — por exemplo, dois 
caracteres que dificilmente aparecerão 
juntos em outras partes do texto: *P, $$ 
etc. Depois, bastará acionar a função de 
busca e substituição, e o programa tro- 
cará o símbolo convencionado pela ex- 
pressão por extenso, sempre que o en- 
contrar. 

Programar essa operação em BASIC 
não chega a ser difícil, mas envolve al- 
gumas complicações, pois a segiiência 
que irá substituir o símbolo no texto po- 
de ter um número de caracteres menor, 
igual ou maior. Além disso, a maioria 
dos microcomputadores não aceita va- 
riáveis string, com mais de 255 caracte- 
res. Assim, durante o processo de subs- 
tituição, é necessário fazer com que o 
programa verifique esse número, para 


não ocorrer nenhum erro. Apresenta- 
mos, a seguir, uma sub-rotina de busca 
e substituição, que você poderá adicio- 
nar a seus programas: 


100 LET N=1 

110 IF LEN A$ -LEN B$ +LEN CS > 
255 THEN RETURN 

120 FOR I=N TO LEN AS 

130 IF AS(I TO I+LEN B$-1)=BS T 
HEN GOTO 160 

140 NEXT 1 

150 RETURN 

160 LET AS=AS(TO I-1)+CS+AS (I+L 
EN BS TO) 

170 LET N=I+LEN C$ 

180 GoTo 110 


anna dc) sy 


100 N=1 

110 IF LEN(AS)-LEN(BS)+LEN(CS)> 
255 THEN RETURN 

120 FOR I=N TO LEN(AS) 

130 IF MIDS(AS,I,LEN(B$))=BS TH 
EN GOTO 160 

140 NEXT I:RETURN 

160 AS=LEFTS(AS,I-1)+CS+MIDS (AS 
+ I+LEN(BS)) 

170 N=I+LEN(CS) 

180 Goto 110 


Os argumentos de entrada da sub- 
rotina são: 
AS - cadeia que terá substituições; 
B$ - subcadeia em AS$ a substituir; 
CS - subcadeia que substituirá BS. 
Suponhamos que a célebre frase de 
Gertrude Stein: 


UMA ROSA E" UMA ROSA E" UMA 
ROSA 


deverá ser transformada em outra (não 
menos poética): 


UMA PEDRA E" UMA PEDRA E" 
UMA PEDRA 


Neste exemplo, então: 


A$ = UMA ROSA E' UMA ROSA E" 
UMA ROSA 

B$ = ROSA 

C$ = PEDRA 


A rotina funciona da seguinte manei- 
ra: a linha 100 inicializa N em 1. Essa 
variável aponta o caractere de A$ a par- 
tir do qual B$ será procurado. Na linha 
110, checamos se o comprimento total 
da cadeia substituída não excede 255. O 
laço que vai da linha 120 à 140 verifica 
se B$ está presente em AS, a partir do 
caractere N até o fim. Se estiver, a li- 


nha 160 efetua a substituição, concate- 
nando a primeira seção de AS, até a 
ocorrência de B$, mais C$ e a parte res- 
tante de A$. N é então atualizado e 
ocorre nova busca por B$ (retorno à li- 
nha 110). 


anna 


Nos micros com função INSTR (ins- 
tring), O laço das linhas 120 a 140 pode 
ser substituído por uma só linha: 


120 I=INSTR(I,AS,BS):IF I=0 THE 
N RETURN 


Esta listagem testa a sub-rotina de 
substituição. Ela é auto-explicativa: 


SE pone lá)(o) hy 


20 PRINT 
25 INPUT 
30 PRINT 
IR”; 

35 INPUT BS 
PRINT "POR "; 
INPUT CS 

50 GOSUB 100 

60 PRINT AS 

70 corto 20 


Para rodar o programa no TRS-80 e 
no TRS-Color, adicione esta linha: 


"ENTRE UMA FRASE "; 
As 
"PALAVRA PARA SUBSTITU 


10 CLEAR 1000 


Se você quiser substituir todas as 
ocorrências de uma subcadeia, em um 
texto composto de várias linhas (arma- 
zenadas em DATA, por exemplo), uti- 
lize o próximo programa. Não se esque- 
ça de colocar uma última linha DATA 
***** para assinalar o fim do texto: 


ES nona á) (Shy 


10 INPUT "PALAVRA PARA SUBSTITU 


20 INPUT "POR "; 

30 READ AS 

40 IF A$="*" THEN GOTO 70 
50 GOSUB 70:PRINT AS 

60 goto 30 

70 STOP 


RS RA 


A programação de variáveis string 
apresenta algumas diferenças conforme 
o tipo de interpretador BASIC usado. 

Como vimos no artigo anterior des- 
ta série (página 1214), os interpretado- 
res se dividem em dois grandes grupos 


quanto às funções de tratamento de va- 
riáveis literais. No primeiro grupo, cha- 
mado Microsoft (nome da software 
house norte-americana responsável pe- 
lo desenvolvimento do BASIC padrão 
para os micros MSX, TK-2000, Apple 
II, TRS-80 e TRS-Color, entre outros), 
encontramos funções familiares como 
LEFTS, RIGHTS, MIDS, INSTR etc. 

No segundo grupo, denominado Sin- 
clair (destinado às máquinas compatí- 
veis com as linhas ZX-81 e Spectrum), 
a cadeia de caracteres é tratada como 
um conjunto dimensionado, e a partí- 
cula TO se encarrega da referência às 
subcadeias de um string. 

Os interpretadores do tipo Microsoft 
também diferem dos do tipo Sinclair 
quanto ao gerenciamento do espaço dis- 
ponível na memória RAM para variá- 
veis literais e numéricas. Ambos, porém, 
armazenam uma variável literal de for- 
ma semelhante (veja o artigo da página 
1101): uma cadeia pode ter entre 0 e 255 
caracteres, armazenados em um conjun- 
to contíguo de bytes. O primeiro byte de 
um string é usado para armazenar o seu 
comprimento, ou seja, o número de ca- 
racteres que possui. Essa informação é 
usada, por exemplo, pela função LEN, 
disponível nos dois tipos de interpreta- 
dor, que informa o comprimento da ca- 
deia. Se uma variável string for conca- 
tenada através de uma expressão como 
LET A$=A$+BS, o interpretador ma- 
nipula A$ e B$ de modo a transferi-los 
para uma área livre da memória RAM, 
colocá-los um após o outro, eliminar o 
byte de comprimento do segundo string 
(B8$) e atualizar o valor armazenado no 
byte de comprimento do primeiro string 
(AS). 

Como se pode concluir, as operações 
de concatenação são lentas, devendo ser 
evitadas quando possível. Além disso, 
exigem uma área livre de memória para 
a execução da cópia — os originais dos 
dois strings A$ e B$ continuam no mes- 
mo lugar, mas “desativados” pelo in- 
terpretador. Periodicamente, uma fun- 
ção chamada “'coleta de lixo" (garbage 
collection, em inglês) recupera essas 
áreas para uso pelo programa. 

Quanto à reserva de espaço para 
strings, na RAM, os interpretadores tam- 
bém apresentam diferenças. Os do tipo 
Sinclair operam automaticamente ou 
por meio de uma declaração DIM, que 
deve ser usada para dimensionar strings. 
Os do tipo Microsoft nem sempre pre- 
cisam de uma declaração explícita para 
dimensionar o tamanho da área de 
strings. Nos micros das linhas TRS-80 
e TRS-Color, a instrução CLEAR ser- 
ve a esse propósito. No Apple e no 
MSX, ela não é necessária. 




























No artigo Sua ligação com o mundo 
(página 561), examinamos como o dis- 
positivo especial chamado modem po- 
de conectar um micro a outros compu- 
tadores, utilizando a linha telefônica. 
Através dele, uma grande variedade de 
bancos de dados computadorizados fi- 
cará à disposição do usuário: cotações 
das Bolsas, noticiários, referências bi- 
bliográficas sobre assuntos técnicos etc. 
Existem hoje, em todo o mundo, mais 
de um milhão de pessoas que se benefi- 
ciam de redes de computadores. 

O acesso a esses sistemas, entretan- 
to, não é algo exatamente barato, prin- 
cipalmente quando é necessário pagar 
gações internacionais (DDI). Além dis- 
so, muitos usuários se ressentem da fal- 
ta de um contato mais pessoal entre 
quem fornece e quem recebe a informa- 
ção — o que talvez explique, por exem- 
plo, o sucesso e a popularidade do ra- 
dioamadorismo. Contudo, já existe um 
equivalente desse hobby dentro do cam- 
po das redes informatizadas de dados. 
Trata-se da versão “doméstica” dos 
grandes sistemas telemáticos (como 
CompusServe e Cirandão) denominada 
quadro de avisos computadorizado (do 
inglês, bulletin board). 

Um Computerized Bulletin Board 
Service (ou CBBS, como é mais conhe- 
cido entre os aficionados) é, em sua for- 
ma mais simples, o equivalente eletrô- 
nico do quadro de avisos de um clube, 
onde todos podem afixar notícias, reca- 
dos etc. Para ter acesso a um sistema 
desse tipo, o usuário precisa — além de 
um telefone e de um micro — dos se- 
guintes elementos: um modem, um soft- 
ware específico para intercomunicação 
e o número do telefone de um CBBS. 
O custo do acesso propriamente dito (ler 
e/ou escrever no quadro de avisos), ge- 
ralmente muito baixo, varia segundo a 
finalidade do serviço (comercial ou não) 
e inclui a despesa normal com a ligação 
telefônica. 

Embora os CBBS existam há algum 
tempo (sobretudo nos EUA, onde fo- 
ram criados), em nosso país eles ainda 
são uma novidade. Apenas as cidades 
maiores, como São Paulo e Rio de Ja- 
neiro, dispõem desse serviço. Tudo in- 
dica, entretanto, que os CBBS se multi- 
plicarão rapidamente e que a maioria 





DE MENSAGENS 


dos proprietários de modems tomará 
contato com eles brevemente. 


CARREGAR E DESCARREGAR 


Os CBBS não são utilizados somen- 
te como sistemas de mensagens. Na rea- 
lidade, sua rápida expansão se deve, 
principalmente, ao fato de a maioria de- 
les dispor de um serviço especial que 
possibilita a transmissão de software de 
um computador para outro. No jargão 
dos seus aficionados, uploading signi- 
fica o ato de enviar um software para 
armazenamento no CBBS, enquanto 
downloading quer dizer retirar uma có- 
pia das informações disponíveis. É im- 
portante ressaltar aqui que o micro que 
manda e o que recebe a listagem do pro- 
grama não precisam ser compatíveis en- 
tre si. Essa é, portanto, uma oportuni- 
dade rara de transportar certos tipos de 
software por meios incomuns. 

O princípio dessa idéia consiste em 
converter os programas em textos AS- 
CII (padronizados para todos os micros, 
que abordamos, menos o ZX-81) para 
realizar a transmissão via modem. 

Outro requisito para o trabalho de 
copiar os programas disponíveis no 
CBBS é ter uma unidade de discos e um 
interpretador ou compilador da lingua- 
gem original do programa. Com eles, 
poderemos carregar arquivos em forma- 
to ASCII. Os sistemas operacionais das 
linhas TRS-80, TRS-Color e MSX ofe- 
recem essa facilidade sem requerer o em- 
prego de programas conversores espe- 
ciais. Em outros micros, o próprio soft- 
ware de transmissão pode incluir uma 
pequena rotina que transforma texto em 
programas e vice-versa. Além disso, al- 
guns CBBS são específicos para uma li- 
nha de micros (os da linha Apple e IBM 
PC são os mais comuns), e permitem a 
transferência direta de programas entre 
dois computadores compatíveis, sem o 
arquivo ASCII intermediário. 





O quadro de avisos geralmente é 
“hospedado” por um microcomputador 
ligado, por um ou mais modems, a um 


Compartilhe informações profissionais 
e de lazer com outras pessoas 

através de seu micro. Basta ligá-lo por 
telefone a um dos vários serviços 
computadorizados de “quadro de avisos” 


tronco telefônico. Para baratear os cus- 
tos operacionais, a maioria dos CBBS 
atende simultaneamente a um número 
limitado de usuários — normalmente 
entre les. À primeira vista, isso pare- 
ce pouco, porém, como veremos adian- 
te, é uma impressão falsa já que o tem- 
po útil de conexão de cada usuário é ex- 
tremamente curto: o suficiente para co- 
piar (download) as notícias ou progra- 
mas de interesse para seu disco. 

O quadro de avisos central nada mais 
é que a memória do micro que o geren- 
cia. Hoje, a maioria dos CBBS dispõe 
de discos rígidos de maior capacidade, 
mas pode-se operá-los só com dois acio- 
nadores de disquetes como memória au- 
xiliar. Nesse caso, entretanto, a veloci- 
dade e a capacidade do sistema são sig- 
nificativamente diminuídas. 

Muitos dos CBBS recentemente sur- 
gidos no Brasil constituem iniciativa de 
voluntários. Seguindo a tradição dos en- 
tusiastas da microinformática, eles são 
gratuitos (embora existam alguns, como 
o Sampa CBBS, em São Paulo, que se 
tornaram tão grandes que foi necessá- 
rio fixar uma pequena taxa). Um dos sé- 
rios problemas desse sistema é impedir 
que pessoas não autorizadas tenham 
acesso a ele, Usualmente, isso é feito 
atribuindo-se uma senha a cada mem- 
bro. Contudo, essa é uma questão difí- 
cil de ser solucionada, tanto que nem 
mesmo o Pentágono norte-americano 
vem obtendo sucesso no sentido de evi- 
tar que pessoas não autorizadas pene- 
trem em seus monstruosos ““mainfra- 
mes”. Na verdade, muitos CBBS rece- 
bem de braços abertos todos os intrusos. 


Evidentemente, a distância física entre 
o usuário e o CBBS não representa ne- 
nhum obstáculo, já que um computador 
pode perfeitamente se comunicar com 
outro, em qualquer parte do mundo, des- 
de que ambos tenham modems compa- 
tíveis. Utilizando o equipamento corre- 
to, você poderá se beneficiar de mais de 
1.500 serviços de troca de mensagens es- 
palhados pelos EUA, Canadá e Europa. 
Em razão de não existirem padrões co- 
muns de comunicação entre europeus e 


norte-americanos, o usuário que desejar 
contatar CBBS dessas regiões deverá di 
por de modems diferentes. 

O padrão adotado na Europa é o 
CCITT, sigla de uma agência da ONU 
denominada Comité Consultatif Interna- 
tional Téléphonique et Téle 
Essa agência estabelece convi s 
nacionais para telecomunicações que po- 
dem também ser seguidas internamente 


QUADRO DE AVISOS 
CARREGANDO E 


DESCARREGANDO INFORMAÇÕES 
PADRÕES TÉCNICOS 
VELOCIDADE DE TRANSMISSÃO 


por um p membro. Indiretamente, is- 
so acaba facilitando a comunicação en- 
tre todos os proprietários de computado- 
res. Cada país, porém, pode ter simulta- 
neamente outras convenções internas, de- 
terminadas e aprovadas por órgãos esta- 
tais, como o Contel (Conselho de Tele- 
comunicações), no Brasil. 
Nos EUA, o chamado padrão Haye: 
comum para CBBS privados 


O MELHOR MODEM 
E ACESSO ATRAVES DE MENUS 
EXPLORANDO A REDE 
TERMINOLOGIA 

ESPECIALIZA 


(seu nome deriva da fábrica dos modems 
mais populares e baratos do país). O pa- 
drão Bell também é muito usado. 


VELOCIDADES DE TRANSMISSÃO 


As agências de norm: 
nais e internacionais, di 








outras convenções. Os modems são clas- 
sificados em função de diversos parâme- 
tros operacionais e de desempenho co- 
mo, por exemplo, a velocidade de trans- 
missão. A grande maioria dos CBBS — 
os mais baratos — opera com modems 
de 300 bauds, isto é, eles recebem e 
transmitem dados à velocidade de 300 
bits por segundo. (O nome da unidade 
de medida baud é uma homenagem ao 
engenheiro francês Baudot, considera- 
do o inventor de um código para telex.) 
Isso equivale, aproximadamente, a um 
bit enviado a cada 3.3 milissegundos. Já 
os sistemas mais avançados de telecomu- 
nicações digitais seguem o padrão 
1200/75 baud: o computador central 
transmite dados à velocidade de 1200 
bauds e o usuário os envia a apenas 75 
bauds. Sistemas como o Cirandão, da 
Embratel, e o Videotexto utilizam essa 
convenção (seu objetivo é reduzir o tem- 
po de ocupação do computador central, 
devido ao custo elevado, e impor os'gas- 
tos da interação ao usuário). 

As taxas de transmissão normalmente 
são múltiplos de 300 (300, 600, 1200, 
2400 etc.), duplicando progressivamen- 
te até atingir 9600 bauds, que é o máxi- 
mo em uso atualmente. 

Em muitos computadores, dependen- 
do dos padrões definidos pelo CCICT 
para interfaces seriais RS-232, as volta- 
gens de representação dos números bi- 
nários O e 1 são, respectivamente, + 12 
e — 12 V. Os micros que usam as volta- 
gens +5 e O V necessitam de um con- 
versor, que geralmente é barato. 


LESSA 


Cada caractere de informação trans- 
mitido por um modem compõe-se, ba- 
sicamente, de um bit de início (start bit), 
dos bits de dados (data bits) de um bit 
de paridade (parity bit), usado em tes- 
tes de erros de transmissão, e de um bit 
de término (stop bit). Como vemos, 
existem mais bits do que os oito de um 
byte; assim, para saber quantos bytes 
(caracteres de texto) são enviados por se- 
gundo, tomando como padrão uma ta- 
xa de 300 bauds, por exemplo, dividi- 
mos esse número por 11. 

Embora não haja uma segiência 
“natural” nem uma quantidade prees- 
tabelecida para os diferentes bits que 
formam o caractere de transmissão, é 
importante que tanto o emissor quanto 
o receptor reconheçam a convenção se- 
guida. Além disso, ambos devem ser ca- 
pazes de formatar, enviar ou receber os 
dados conforme a taxa padronizada. 

A velocidade adotada por um CBBS 
será escolhida levando-se em conta a ne- 


cessidade de se reduzir os custos do ser- 
viço, até porque os Computerized Bul- 
letin Board Service não dispõem dos re- 
cursos de hardware das grandes empre- 
sas de telecomunicações. O fato de se- 
rem empregados modems mais baratos 
implica o uso de uma taxa menor de 
transmissão a fim de evitar erros causa- 
dos por interferências elétricas, normal- 
mente filtradas por equipamentos sofis- 
ticados. Com um modem barato ope- 
rando a altas taxas, qualquer pulso na 
rede poderia ser interpretado como um 
bit. Em velocidades pequenas, o pulso 
que define um bit é mais longo e, por- 
tanto, mais fácil de identificar. 

De qualquer modo, o ruído será sem- 
pre um problema difícil de se resolver. 
Com a entrada em serviço das redes di- 
gitais de comunicações baseadas em fi- 
bras ópticas, espera-se que os sinais se- 
jam mais “limpos” e rápidos. 


Denominamos full-duplex ou half- 
duplex ao parâmetro que varia de mo- 
dem para modem e diz respeito à simul- 
taneidade das funções de transmissão e 
recepção. Full-duplex significa que um 
determinado modem é capaz de receber 
e transmitir informações ao mesmo tem- 
po; half-duplex indica que ele executa 
apenas uma função de cada vez. 

Evidentemente, um modem half-du- 
plex é mais barato e adequado a traba- 
lhos com micros domésticos, ou até a al- 
gumas aplicações profissionais mais 
simples. Como é preciso aguardar uma 
transmissão terminar antes de iniciar a 
recepção (ou vice-versa), os erros come- 
tidos na operação poderão trazer alguris 
inconvenientes. A possibilidade de se 
consumir um tempo excessivo pratica- 
mente desaconselha o uso deste equipa- 
mento para trabalhos profissionais. 

Os CBBS se tornaram viáveis graças 
à sofisticação do hardware e software de 
comunicações. O maior passo nesse sen- 
tido foi a introdução de modems ou re- 
cursos de autodiscagem, (auto-dialing, 
em inglês) e auto-resposta (auto-answe- 
ring). A partir dessas inovações, as con- 
sultas ao computador hospedeiro do 
CBBS passaram a ser respondidas au- 
tomaticamente com uma linha conecta- 
da entre receptor e transmissor. 


SOF 





[UA Ui 


Além do computador, do modem e 
do telefone, faz-se necessário um soft- 
ware especial que transforme o micro 
em um terminal de dados. 


Classificamos o software de comuni- 
cações em: burros e inteligentes. O in- 
teligente — essencial para quem deseja 
operar um CBBS — permite descarre- 
gar o programa (além de texto de men- 
sagens) e armazená-lo automaticamen- 
te no disco. Já o software burro possi- 
bilita apenas a comunicação simples, 
sem qualquer forma de armazenamen- 
to ou listagem. Certos softwares inteli- 
gentes oferecem recursos extremamen- 
te úteis, entre eles o reconhecimento au- 
tomático — através do programa — do 
protocolo seguido pelo computador hos- 
pedeiro e a armazenagem e discagem au- 
tomática de vários números de CBBS. 

A função básica do programa é a de 
permitir que o micro transmita e receba 
sinais (caracteres) pelo modem conecta- 
do ao sistema, mantendo o sincronismo 
entre o teclado, o vídeo e a memória. O 
software orienta o computador por in- 
termédio de comandos relativos à for- 
ma com que os sinais serão transmitidos 
e recebidos. 

Muitas pessoas não conseguem en- 
tender como dois computadores aparen- 
temente incompatíveis podem se comu- 
nicar. E são essas mesmas pessoas que 
costumam criticar os fabricantes de mi- 
cros por constantemente ignorarem os 
padrões que facilitam a interligação en- 
tre equipamentos distintos. 

Por meio do CBBS, temos a falsa im- 
pressão de que um computador está 
identificando os comandos enviados por 
outro diferente (um Apple e um MSX, 
por exemplo). Na verdade, isso só acon- 
tece porque a maioria dos CBBS imple- 
menta seu software de acesso por meio 
de menus relativamente simples. 

Com eles, o usuário seleciona uma 
opção pressionando uma tecla ou digi- 
tando uma linha de comando. Do ou- 
tro lado, um programa especial “'varre” 
o modem de recepção, de modo a cap- 
tar os sinais enviados e a interpretar cor- 
retamente o pedido. A partir daí, os co- 
mandos adequados passam a ser acio- 
nados pelo computador hospedeiro. 


EXPLORANDO OS CBBS 


O primeiro passo para explorar todos 
os recursos dos CBBS à sua disposição é 
adquirir um modem adequado. Confor- 
me abordamos, os CBBS normalmente 
adotam um tipo padrão de 300 bauds, 
com protocolo CCICT ou Hayes. Os sis- 
temas comerciais, como o Videotexto e 
o Cirandão, utilizam o padrão 1200/75. 
Assim, o ideal é que o usuário compre 
um modem que tenha uma chave de se- 
leção para cada modalidade. 

O segundo passo consiste em provi- 


denciar um software de comunicação (se 
ele já não tiver sido fornecido juntamen- 
te com o modem). 

O terceiro passo é descobrir os núme- 
ros de telefone dos CBBS e seus deta- 
lhes técnicos de acesso. Esses dados po- 
dem ser encontrados em revistas espe- 
cializadas de microcomputação. 

Superadas todas as questões, passa- 
remos à parte prática da operação. Co- 
necte o modem à linha telefônica e ao 
microcomputador e execute o software 
de comunicação. Caso a versão utiliza- 
da disponha de autodiscagem, todo esse 
trabalho será feito automaticamente, 
uma vez especificado o CBBS que se de- 
seja acessar. Do contrário, bastará ligar 
o número telefônico do mesmo e aguar- 
dar o sinal de recepção (geralmente um 
som agudo de poucos segundos denomi- 
nado portadora). Recebido o aviso, pres- 
sione o botão que conecta o modem à 
linha (se o equipamento for de conexão 
direta), ou coloque o bocal do telefone 

is “orelhas” de acoplamento (se for 
um modem acústico). 

Para termos acesso a alguns CBBS, 
é necessário chamar o número deseja- 
do, deixar tocar uma vez, e, em segui- 
da, discar novamente esse número. Só 
então o procedimento já descrito pode- 
rá ser observado. 

Muitos CBBS funcionam de manei- 
ra semelhante. No início da operação, 
o usuário recebe uma mensagem que in- 
dica seu contato com o CBBS. Depois, 
deve enviar uma senha de entrada e/ou 
o número ou nome de identificação — 
principalmente se o uso do CBBS impli- 
ca pagamento através de assinatura 
mensal ou anual. Tais sistemas, entre- 
tanto, chegam a oferecer, por um tem- 
po limitado, algumas informações para 
convidados e “intrusos”, isto é, pessoas 
ainda não registradas no serviço. 

Os CBBS gratuitos, dependendo do 
tipo, podem solicitar seu nome e cidade 
ou endereço e número telefônico, bem 
como algumas especificações do micro 
usado (modelo, tamanho da tela etc.). 
Esses detalhes são importantes para que 
o computador hospedeiro saiba como 
operar durante a comunicação. 

Na fase seguinte, você receberá infor- 
mações do CBBS: horários de funcio- 
namento, limite de tempo para cada 
chamada etc. Tais dados interessam, so- 
bretudo, aos CBBS voluntários, já que 
algumas chamadas são feitas em horá- 
rios inconvenientes (desagradando o 
operador, que geralmente utiliza o tele- 
fone de sua própria casa para isso). 

Assim como o videotexto, a maioria 
dos CBBS é operada através de menus. 
A escolha de uma opção em um menu 
poderá levar a menus secundários e ter- 





ciários etc. ou à execução da opção. 
Muitos CBBS possuem uma seção que 
permite aos novos usuários registrar seus 
dados (endereço, nome, telefone e senha 
de acesso). Outras opções oferecidas po- 
dem incluir uma seção técnica, comuni- 
cações com o gerente etc. 

O elemento fundamental do CBBS 
está no quadro que contém avisos e no- 
tas para conhecimento geral. Isso, po- 
rém, não exclui a possibilidade de exis- 
tir também uma seção de mensagens 
pessoais: “caixas postais”", com acesso 
limitado por senhas secretas. Esse siste- 
ma permite deixar informações reserva- 
das para outros usuários ou formar sub- 
quadros de avisos dentro do CBBS. 


TERMINO 





Há vários termos técnicos que, em- 
bora comuns no campo da comunicação 
entre computadores, são pouco conhe- 
cidos em outros ramos da informática. 
Devido a isso, às vezes, cria-se uma certa 
confusão sobre seu significado. 

A seguir, uma lista dos termos que 
normalmente são mal interpretados: 


Videotexto - Sistema especial de comu- 
nicação entre computadores, oferecido 
como um serviço público pelas compa- 
nhias telefônicas. Através de uma linha 
comum, o computador central envia ao 
usuário a informação (organizada em 
páginas ou telas). Esta é recebida por 
um terminal especial de videotexto ou 
um micro qualquer, que podem respon- 
der fazendo novas solicitações de dados. 
No Brasil, tem-se acesso aos sistemas de 
videotexto por meio de uma assinatura 
mensal junto à companhia telefônica de 
cada cidade. Na Europa, esse serviço, 
implantado em vários países, é denomi- 
nado Prestel. 


Teletexto - Sistema semelhante e mais 
barato que o videotexto. Aqui, en- 
tretanto, a informação é enviada apenas 
em um sentido (do computador central 
para o terminal), aproveitando o inter- 
valo disponível entre dois quadros exi- 
bidos pela TV. Este sistema não existe 
no Brasil, Exemplos no exterior são os 
CEEFAX e o ORACLE, utilizados na 
Inglaterra. Aparelhos de TV de algumas 
marcas já são fabricados com a interfa- 
ce embutida. 


Videotex - Termo geral que engloba o vi- 
deotexto, o teletexto e os CBBS. Criou-se 
uma certa confusão depois que alguns 
CBBS evoluíram e se transformaram em 
uma rede, apesar de conservarem o mes- 
mo nome, 


Rede - Em sua forma mais restrita, re- 
fere-se à ligação direta entre vários com- 
putadores com objetivos específicos 
(normalmente para fins comerciais ou 
de pesquisa, como a rede brasileira 
RENPAC). As redes dividem-se em dois 
tipos: a local (LAN, ou Local Area Net- 
work), que, geralmente, envolve apenas 
a ligação direta entre micros e seus pe- 
riféricos ou a um computador central, 
e a telemática (WAN, ou Wide Area 
Network), que inclui ligações remotas, 
via rede telefônica, microondas ou sa- 
télites. Através da LAN, os usuários po- 
dem compartilhar recursos como discos 
e impressoras. A WAN, por sua vez, 
permite a intercomunicação e a conse- 
quente troca de mensagens e transações 
(como em uma rede de automação ban- 
cária, que liga várias agências aos com- 
putadores centrais). 

Uma rede pode ser privada ou públi- 
ca. Existem vários exemplos de redes pú- 
blicas, como o Cirandão, da Embratel, 
ou o CompusServe, nos EUA, com mais 
de 250.000 usuários. 

Nos últimos anos, o termo rede vem 
perdendo sua especificidade, passando 
a significar qualquer forma de interco- 
municação realizada entre computado- 
res. Por esse conceito, todos os serviços 
do tipo videotex também poderiam ser 
considerados uma rede. 


Telex e teletex - Serviços em fase de in- 
tegração a redes de computadores e que, 
por isso, ainda são confundidos. O te- 
lex é um sistema telefônico de comuni- 
cação de textos, de baixa velocidade (15 
bauds), gerenciado por uma central es- 
pecial computadorizada. Existem inter- 
faces que permitem dar a um micro a 
função de um terminal de telex (daí se- 
rem chamadas de microtelex). 

O teletex é uma evolução técnica do 
telex e, muito provavelmente, seu subs- 
tituto direto. Utiliza o mesmo sistema 
de comunicação, porém, a uma veloci- 
dade bem maior, de modo a facilitar o 
uso de micros como terminais. Ainda 
não foi implantado no Brasil. 


Correio eletrônico - Serviço oferecido 
por diversos tipos de rede, videotexto ou 
CBBS. Consiste, basicamente, de ““cai- 
xas postais” (espaço reservado no dis- 
co central a cada assinante), capazes de 
receber mensagens individuais ou circu- 
lares, enviadas por outros usuários. A 
comunicação é feita a nível privado, e 
protegida por senhas. Em alguns países, 
o sistema é prerrogativa do serviço es- 
tatal de correios. No Brasil, como em 
outras nações, esse monopólio já foi 
rompido (Cirandão, Mensagem, Video- 
texto). 






















UM EDITOR 


Apresentamos aqui a segunda parte 
de nosso editor musical. Carregue a pri- 
meira parte da fita cassete ou disco e di- 
gite, na segiiência, a listagem dada abai- 
xo. Depois, grave as duas partes para 
juntá-las à que iremos publicar no pró- 
ximo e último artigo da série — onde vo- 
cê encontrará, também, instruções de- 
talhadas para uma eficiente utilização 
do programa. 

Como você terá oportunidade de ob- 
servar, à medida que for digitando, o 
programa é composto por várias sub-ro- 
tinas chamadas do menu principal. É 
possível ter uma idéia da função de ca- 
da uma delas lendo os itens do menu — 
que pode ser exibido na tela ainda que 
o programa esteja incompleto. 


2000 CLS 

2010 GOSUB 2500 

2140 PRINT 'ct;” Notas tecladas 
(";maxnotes;"Max.)""* 

2160 INPUT "Entre Notas - <RET> 
para acabar”;N$ 





2175 IF LEN (NS$)=0 THEN GOTO 1 
90 

2180 FOR 1=1 TO LEN (NS): IF (N 
S(1)<"0” OR NS(1)>"9”") AND (NS( 
1)<>"3") THEN GOTO 2000 

2190 LET N=VAL (NS) 


2200 IF INT (N/1000)>11 AND INT 
(N/1000)<>-4 THEN GOTO 2000 
2210 IF N<O THEN GOTO 2280 
2220 LET M=INT (N/100): LET D=N 
-M*100 

2230 LET O=M-INT (M/10)*10: IF 
O<i OR 0>7 THEN GOTO 2000 

2240 LET M=INT (M/10)+(0-1)*12- 
36 


2260 LET ct=ct+l: LET t(2*ct-1) 





=D: LET t(2%ct)=M 

2270 Goto 2000 

2280 LET M=-4: LET D=0-(N-M*100 

, 

2290 IF M<>-4 THEN GOTO 2000 

2310 GOTO 2260 

2500 PRINT "Entre a Nota na for 

ma <Numero>, <Oitava>, <Duracao 

>,» 

2520 PRINT "C - 0 E -4 4 

Brercar od F=5, As 9r'PD 

-='2  P4=6  AS- 10"*"DE- 3 

q-7 B=-º 

2560 PRINT '"PAUSA e -4"'""Semi 

colcheja=1 Minima = 8"'"Col 
gg cheia =2 Semibreve=16"'"Se 
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MUSICAL (2) 








minima Oitava =lag7” 
2600 PRINT '"Duracao DEVE ter 2 
digitos”'"ex. 3304-D$, Colchei 
a 3a. oitava”'"ex. 6408-F4, Min 
ima 4a. oitava” 

2630 RETURN 

3000 CLS 

3010 PRINT "Tocar musica” 

3020 PRINT : PRINT : PRINT 

3030 PRINT "Digite Tempo - (1- 
15) 5 

3040 INPUT S 

3050 IF S<l OR S>15 THEN GOTO 
3000 

3060 LET tempo=0.02*(16-8) 

3070 FOR 1=1 TO ct 

3080 LET D=t(2*1-1): LET M=t(2% 
1) 

3090 IF m=-4 THEN GOTO 3120 
3100 SOUND D*tempo,M 

3110 GOTO 3130 

3120 PAUSE 50*D*tempo 

3130 NEXT à 

3140 RETURN 

4000 CLS 

4010 PRINT "EDITOR MUSICAL"**** 
"D - Mostrar todas as notas”''” 
E - Editar uma nota”''"I - Inse 


rir uma nota”''"X - Apagar uma 





nota”'"''”R - Retornar ao menu 
principal” 
4090 PRINT '''"Escolha uma opca 


Gu d 
4100 LET OS=INKEYS: IF 08="" TH 
EN GOTO 4100 











4105 IF CODE (0$)<97 THEN LET 
OS=CHRS (CODE (0$)+32) 

4110 IF 0S<>"d” AND 0$<>"e” AND 
05<>"1” AND 0$<>"r” AND 08<>"x 
” THEN GOTO 4000 

4120 IF 0S$="r” THEN RETURN 
4130 IF 0$="e” THEN GOTO 4300 
4134 IF O 1” THEN GOTO 4700 
4136 IF O ” THEN GOTO 4800 
4140 CLS 

4150 FOR 171 TO ct 

4160 LET M=t(2*1): LET D=t(2*i- 
1) 

4170 LET NT ((M+36)/12)+1 
4180 LET N=(M+36)-(0-1)*12 

4190 PRINT 1;” Nota- ";N;” Oit. 
- "404º Dur.- ";D 

4195 POKE 23692,255 

4200 IF 1=20*INT (1/20) THEN G 
oTO 4220 

4210 GOTO 4250 

4220 PRINT '"Qualquer tecla par 


a continuar *; 
4230 PAUSE O 
4240 PRINT 
4250 NEXT à 





Continue digitando nosso programa 
editor de melodias. Com as listagens 
fornecidas no próximo artigo da série, 
ele ficará completo e você poderá dar 
vazão a todo o seu talento musical. 


4260 PRINT 
a retornar 
4270 PAUSE O 
4280 GOTO 4000 
4320 CLS 

4330 GOSUB 2500 


sy 


650 P=P-36 

660 IF P=1ANDCC6THEN C=C+1:0CS= 
MIDS (STR$(C),2) 

670 TF P=2ZANDC>ITHEN C=C-1:0C$= 
MIDS (STR$(C),2) 

680 IF(P=30RP=6)AND LE>1 THEN L 
E=LE-1:LES=MIDS(RIS,LE,1)+”" " 
690 IF(P=40RP=7)AND LE<7THEN LE 


*"Qualquer tecla par 
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a SEGUNDA PARTE 

DO PROGRAMA EDITOR 
Re GRAVAÇÃO E LEITURA 
= DIGITAÇÃO DAS 


SUB-ROTINAS 





=LE+1:LES=MIDS(RIS,LE,1)+" ” 
700 IF P=5 THEN 1$="p":P$="":Go 
TO 750 

710 IF P=60RP=7 THEN LES=LEFTS( 
LES,1)+".” 

720 IF P=8 THEN RETURN 

730 IF P=9 AND NN>O THEN NN=NN- 
1 

740 Goro 510 

750 US="L”:IF IS$>="a” AND IS<=" 
9” THEN PS=CHRS (ASC(I$)-32) ELS 
E IF I5<>"p"THEN P$=1S+"4"ELSE 
PS="":Ug="R” 

760 PL$="VIST"+STRS(TE)+"O"+oCs 
+US+L25 (INSTR(RIS, LEFTS(LES,1)) 
) 

770 IF MIDS(LE$,2,1)=" 
=ps+".º 


"THEN P$ 


780 PLS=PLS+PS:PLAY PLS 

790 NN=NN+1:NS (NN)=IS+0CS+LES 
800 GoTo 580 

810 CLS:COLOR 4,15 

820 LOCATE 3,2:PRINT"ENTRADA MA 
NUAL DE NOTAS 
830 LOCATE 3,18:PRINT"'m" 
RNAR-MENU PRINCIPAL” 

840 LOCATE 3,19:PRINT"USE FORMA 
TO:alh.('.'opcional) 

850 GOSUB 360:LOCATE 3,21:PRINT 
"ENTRE STRING NOTA:”; 

860 IF NN=MX THEN LOCATE 1,23:P 
RINT"MAXIMO NUMERO DE NOTAS COL 
OCADO!”:FOR S=1TO1000:NEXT:RETU 
RN 

870 LINE INPUT AS 

880 IF AS="" THEN 870 





RETO 














































890 IF AS="m"OR AS="M” 
URN 
900 IF LEN(AS)>40RLEN(AS)<3 THE 
N 970 
910 IF (INSTR(R3$,LEFTS(AS,1))) 
=0 THEN970 
920 IF LEFTS(AS,1)="p” THEN AS= 
"p"+” "+MIDS(AS,3) :GOTO 940 
930 IF (INSTR(R2S,MIDS(A$,2,1)) 
)=0 THEN 970 
940 IF (INSTR(RIS,MIDS(AS,3,1)) 
)=0 THEN 970 
950 IF MIDS(AS,4,1)<>".” THEN A 
S=LEFTS(AS,3)+" 
960 GOTO 990 
970 LOCATE 21,21:PRINT"ENTRADA 
ILEGAL!” ;CHR$(7) 
980 LOCATE 21,21:PRINT” 

”:GoTO 850 
990 NN=NN+1:NS (NN) =AS 
1000 Goto 850 
1010 IF NN=0 THEN RETURN 
1020 COLOR 1,15:LOCATE 0,0:PRIN 
T "MODO EDIÇÃO- 1/2/3/4 


THEN RET 


1030 LOCATE 0,1:PRINT STRINGS (4 


0,32) 

1040 LOCATE 0,2:PRINT STRINGS (4 
0,32) 

1050 LOCATE 0,18:PRINT STRINGS( 
40,32) 

1060 LOCATE 0,3:PRINT STRINGS (4 
0,32) 

1070 LOCATE 2,20:PRINT"1:APAGAR 
NOTAS”; 

1080 LOCATE 2,21:PRINT"2:INSERI 
R NOTAS”; 

1090 LOCATE 2,22:PRINT"3:ALTERA 
R NOTAS”; 

1100 LOCATE 2,23:PRINT"4:CONTIN 
UA 





1110 AS=INKEYS:IF AS<"1"ORAS>"4 
"THEN 1110 

1120 OP=VAL(AS) 

1130 ON OP GOTO 1150,1250,1410, 
1140 

1140 RETURN 

1150 LOCATE 12,0:PRINT"1:APAGAR 
NOTAS” 

1160 LOCATE 0,2:INPUT"INICIA NA 
NOTA” ;ST 

1170 IF ST=0 THEN 1010 

1180 IF ST>NN THEN 1150 

1190 LOCATE 0,3:INPUT"QUANTAS A 
PAGA (ENTER=1)";ND 

1200 IF ND<=0 THEN ND=1 

1210 IF ST+ND-1>NN THEN ND=NN-S 
T+ 
1220 
1230 

13+1) 

1240 





FOR K=1TOND 

FOR J=ST TO NN-1:NS(J)=N$( 
:NEXT 

NN=NN-1:NEXT K:I=SL-1:GOTO 











1010 
1250 LOCATE 12,0:PRINT"2: INSERT 
R NOTAS” 

1260 LOCATE 0,2: INPUT"INICIA IN 
SERÇÃO APÓS QUE NOTA” ;ST 

1270 IF ST<0 THEN 1010 

1280 IF ST>NN THEN ST=NN 

1290 LOCATE 0,3:PRINT"TECLE'M'P 
ARA ENCERRAR:"; 

1300 IF NN=MX THEN LOCATE 2,18: 
PRINT"MAXIMO NUMERO DE NOTAS CO 
LOCADAS!”:FOR D=1TO 2000:NEXT:T 
=SL-1:GOTO 1010 

1310 LINE INPUT N$:IF N$="M"OR 
N$="m”THEN I=SL-1:GOTO 1010 
1320 IF LEN(N$)<3 THEN LOCATE 2 
2,3:PRINT" ILEGAL” :GOTO 1290 
1330 IF INSTR(R3S,LEFTS(N$,1))= 
ODORINSTR (R25,MIDS (N$,2,1))=00RI 
NSTR (R1S,MIDS (N$,3,1))=0 THEN L 
OCATE 22,3:PRINT"ILEGAL”":GOTO 1 
290 NOTAS 

1340 IF MIDS(N$,4,1)="."THEN NS 
=LEFTS (N$,4) ELSE NS=LEFTS(NS,3) 
4... 

1350 
1360 
1370 
1380 
1390 


IF ST=NN THEN 1380 
FOR K=NN+1 TO ST+2 STE 
NS(K)=NS(K-1) :NEXT 

NS (ST+1) =N$ 
ST=ST+1:NN=NN+1 

1400 GoTo 1290 

1410 LOCATE 13,0:INPUT"3:ALTERA 
R NOTA" ;ST 

1420 IF ST=0 THEN 1010 

1430 IF ST>NN THEN ST=NN 

1440 LOCATE 11,2:PRINT NS(ST) 
1450 RT=255:LP=-2:1=ST:GOSUB 16 
20 


p=] 


LOCATE 0,2:PRINT"NOVO VALO 

:LINE INPUT N$ 

IF LEN(N$)<3 THEN 1460 
1480 TF INSTR(R3S,LEFTS(NS,1))= 
OORINSTR (R2$,MIDS (N$,2,1))=DORI 
NSTR(R15,MIDS(N$,3,1))=0 THEN 1 
460 

1490 TF MIDS(N$,4,1)="."THEN N$ 
=LEFTS (NS, 4) ELSE NS=LEFTS (NS,3) 
2» 

1500 NS (ST) =N$:GOSUB 1620 :FOR 
K=1702000:NEXT:RT=0:I=SL-L:LP=0 
:GoTO 1010 

1510 IF NN=0 THEN RETURN ELSE C 
LS:COLOR1,15:LOCATE 11,1:PRINT” 
LISTAR NOTAS” 

1520 C=1:SL=1:EL=NN:P$="N":RT=0 
1530 LOCATE 4,3: INPUT"LISTAR NA 
IMPRESSORA (S/N) "; PS 

1540 IF P$="S” THEN C=2 

1550 LOCATE 4,5:INPUT"INICIO EM 
(ENTER= 1)";SL 

1560 IF SL<=0 THEN SL=NN:EL=NN 
1570 LOCATE 4,6:TNPUT"FINAL EM 
(ENTER=FTM) ";EL 

1580 IF EL=0 OR EL>NN THEN EL=N 





N 
1590 IF SL>EL THEN SL=EL 
1600 CLS:LP=0 





600 P=P-36 
610 IF P=1ANDC<3THEN C=C+1:0CS= 


MIDS (STR$S(C) ,2) 

620 IF P=2ANDC>ITHEN C=C-1:0C$3= 
MIDS (STR$S(C),2) 

1630 IF (P=30RP=6)AND LE>I THEN 
LE=LE-1:LE$=MIDS (R1IS,LE,1)+" " 
640 IF (P=40RP=7)AND LE<5 THEN 
LE=LE+1:LES=MIDS (R1$,LE,1)+”" " 
650 IF P=5 THEN I$="p”:P$="":GO 
TO 700 

660 IF P=60RP=7 THEN LES=LEFTS( 
LES,1)+".” 

670 IF P=8 THEN RETURN 

680 IF P=9 AND NN>O THEN NN=NN- 


3 

690 GOTO 490 

700 IF 1$>="a” AND I8<="9” THEN 
P$=CHRS (ASC(1$)-32) ELSEIF IS< 
>"p” THEN PS=1S+"f"ELSE P$="" 
710 PL$="V31;T"+STR$ (TE) +"L"+L2 
S (INSTR(R1$,LEFTS(LES,1))) 

720 IF MIDS(LES,2,1)="." THEN P 
LS=PLS+".” 

730 PL$=PLS+"0"+0CS+PS: PLAY PLS 
740 NN=NN+1:N$ (NN)=IS+0CS+LES 
750 GOTO 530 

760 CLS 

770 PRINTE4, "ENTRADA MANUAL DE 
NNTAS” : PRINTE33, "ENTRE 'm' PARA R 
ETORNAR AO MENU” 

780 PRINT"USE FORMATO: 'alh.'(". 
*OPCIONAL)” 

790 GOSUB 280:PRINTE416, "ENTRE 
STRING NOTA: ” 

800 IF NN=MX THEN PRINTE44B, "MA 
XIMO NUMERO DE NOTAS COLOCADO!” 
: FORD=1701000:NEXT: RETURN 

810 POKE 282,0:PRINTE44B: PRINTE 
462,;:LINE INPUT AS 

820 LE AS="" THEN 810 

830 IF A$="m"OR AS="M"THEN RETU 
RN 
840 IF 
EN 910 
850 IF (INSTR(R3S,LEFTS(A$,1))) 
=0 THEN 910 

860 IF LEFTS(A$,1)="p” THEN AS= 
"pr+" "+MIDS (AS,3):GOTO 880 

870 IF (INSTR(R2$,MIDS (A$,2,1)) 
)=0 THEN 910 

B80 IF (INSTR(RIS,MIDS(A$,3,1)) 
)=0 THEN 910 

B90 IF MIDS(AS,4,1)<>".” THEN A 
S=LEFTS(AS,3)+" " 

900 GoTo 920 

910 PRINTE44B, LEFTS(A$,4);” -EN 
TRADA ILEGAL!":SOUND 1,5:GOTO & 
10 

920 NN=NN+1:NS (NN) =AS 

930 GoTO 790 

940 IF NN=0 THEN RETURN ELSE PO 
KE 282,0 

950 PRINTE448,"1:APAGAR NOTA ”, 
"2:INSERIR NOTAS” ,”3:ALTERAR NO 
TA ”,"4:CONTINUAR”; 
960 AS=INKEY$:IF AS<"1"OR AS>"4 
"THEN 960 

970 OP=VAL (AS) 

980 ON OP GOTO 1000,1100,1260,9 
90 

990 RETURN 

1000 IF NN=0 THEN 940 ELSE CLS: 
INPUT"INICIA NA NOTA” ;ST 

1010 IF ST=0 THEN 940 


LEN(AS)>40R LEN(A$S)<3 TH 





1020 IF ST>NN THEN 1000 

1030 PRINTE64, "QUANTAS APAGA (EN 
TER=1)";: INPUT ND 

1040 IF ND<=0 THEN ND=1 

1050 IF ST+ND-1>NN THEN ND=NN-S 
T+ 

1060 FOR I=1 TO ND 

1070 FOR J=ST TO NN-1:NS(J)=NS( 
J+1) : NEXT 

1080 NN=NN-1 

1090 NEXT I:RETURN 

1100 CLS:PRINTE7,"MODO INSERCAO 
DE NOTAS” 

1110 PRINTE64, "INICIA INSERCAO 
APOS QUE NOTA”: INPUT ST 

1120 IF ST<0 THEN 940 

1130 IF ST>NN THEN ST=NN 

1140 PRINTE64,"TECLE'm' QUANDO V 
OCE TERMINAR”: PRINT 

1150 IF NN=MX THEN PRINT"MAXIMO 
NUMERO DE NOTAS COLOCADO!” : FOR 
D=1 TO 1000:NEXT:RETURN 

1160 INPUT N$:IF N$="M"OR N$="m 
"THEN RETURN 

1170 IF LEN(N$)<3 THEN PRINT"IL 
EGAL":GOTO 1160 

1180 IF INSTR(R3$,LEFTS(N$S,1))= 
OORINSTR (R2$,MIDS (N$,2,1))=00RI 
NSTR(RIS,MIDS (N$,3,1))=OTHEN PR 
INT”ILEGAL”:GOTO 1160 

1190 IF MIDS(NS,4,1)="."THEN NS 
=LEFTS(NS,4) ELSE NS=LEFTS(N$S,3 
ver 

1200 
1210 
1220 
1230 


IF ST=NN THEN 1230 

FOR I=NN+1 TO ST+2 STEP-1 
NS (I)=N$S (1-1) :NEXT 
NS(ST+1) =N$ 

1240 ST=ST+1;NN=NN+1 

1250 Goro 1150 

1260 CLS:PRINT"MUDAR QUE NOTA”; 
: INPUT ST 

1270 IF ST=0 THEN 940 

1280 IF ST>NN THEN ST=NN 

1290 PRINT:PRINT"VALOR ATUAL:": 
AS=N$ (ST) :RT=255:GOSUB 350 

1300 PRINT NS(ST) 

1310 PRINTE320:PRINTE320,"";:IN 
PUT"NOVO VALOR:";N$ 

1320 IF LEN(N$)<3 THEN 1310 
1330 IF INSTR(R3S,LEFTS(NS,1))= 
OORINSTR (R2$,MIDS (N$,2,1))=00R 
INSTR (R1$,MIDS (N$,3,1))=OTHEN 1 
310 

1340 IF MIDS(N$S,4,1)="." THEN N 
S=LEFTS (NS, 4) ELSE NS=LEFTS(NS,3 
er» 

1350 N$(ST) =N$: FORK=1TO2000:NEX 
T:GOTO940 

1360 IF NN=OTHEN RETURN ELSE CL 
S: PRINTEZ, "OPCAO LISTAR NOTAS”: 
c=0 

1370 IF(PEEK(65314)ANDI)=1 
1400 

1380 POKE 282,255:PRINTE64,"";: 
INPUT"LISTAR NA IMPRESSORA (S/N) 


THEN 





";P$ 

1390 IF P$="S” THEN C=-2:POKE 1 
50,1 

1400 PRINTE128,"INICIO NA NOTA” 
; INPUT ST 

1410 IF ST<=0 THEN ST=NN 

1420 IF ST>NN THEN ST=NN 

1430 CLS:LP=0 






















Nos artigos anteriores desta série, 
examinamos os recursos “*secretos" do 
micro TRS-80 para a saída de vídeo. En- 
tre outras coisas, vimos como gerar 
pseudo-sprites e como levar cópias de te- 
las para a memória e vice-versa. 

O teclado do TRS-80 também tem vá- 
rias características interessantes, que não 
estão bem documentadas nos manuais de 
operação ou mesmo nos livros mais ele- 
mentares sobre o assunto. Neste artigo, 
você aprenderá alguns truques que po- 
dem ser executados com facilidade, co- 
mo o bloqueio da tecla <BREAK>, a 
implementação de um cursor piscante, a 
programação da repetição automática de 
teclas e a entrada direta de símbolos grá- 
ficos pelo teclado. 

Esses recursos são possíveis porque 
a memória do TRS-80 contém o mapa 
do teclado, assim como o do vídeo. O 
teclado desse micro é do tipo matricial, 
ou seja, ao se pressionar uma tecla, ela 
aciona o cruzamento entre dois condu- 
tores: um colocado nas colunas, e ou- 
tro, nas linhas. Isso gera um código bi- 
nário, que é recuperado pelo software 
processador do teclado. Este efetua uma 
varredura a intervalos de alguns milis- 
segundos, passando por todos os fios 
horizontais e verticais. O número obti- 
do é depositado em uma locação espe- 
cífica da memória de teclado. 

Diversas outras locações da memória 
RAM reservada para a área de trabalho 
do interpretador BASIC são dedicadas 
ao teclado. Através de comandos PEEK 
e POKE, é possível verificar, e mesmo 
alterar, seu conteúdo, produzindo curio- 
sos e variados efeitos. 


[Rojo apo Do A PAR TS 


Como você já sabe, a tecla 
<BREAK> do TRS-80 interrompe um 
programa BASIC em execução, indepen- 
dentemente do que ele estiver fazendo, 
e retorna o controle ao interpretador. 

A facilidade de interromper o progra- 
ma pode ser um inconveniente quando 
se deseja torná-lo imune a erros de ope- 
ração ou se quer impedir que alguém o 
liste. Imagine a seguinte situação: vo- 
cê colocou um programa educativo nas 
mãos de uma criança; ao aparecer a 
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mensagem “PRESSIONE QUALQUER 
TECLA PARA CONTINUAR”, ela 
aciona justamente a tecla <BREAK >! 
A culpa, com certeza, é sua... 

Para evitar ocorrências desse tipo, 
convém bloquear o efeito da tecla 
<BREAK > através de comandos POKE 
nas locações de memória 16396 e 16397: 


POKE 16396,175:POKE 16397,201 


Para ativar novamente a tecla, basta 
utilizar o comando: 


POKE 16396,201 


Esse truque funciona em qualquer 
micro compatível com os modelos 1 e III 
da linha TRS-80, e pode ser empregado 
tanto como comando direto quanto den- 
tro de um programa. 

Há um problema, entretanto. Se vo- 
cê estiver usando o BASIC de disco, e 


“tentar acessá-lo durante a desativação da 


tecla <BREAK>, o computador pode- 
rá “congelar”. Para evitar que isso 
aconteça, aconselha-se recorrer a outra 
locação de memória para dar o coman- 
do POKE. Não se esqueça, porém, de 
que esta varia de acordo com o sistema 
operacional de disco (DOS) empregado: 


DOS DESATIVA ATIVA 

TRSDOS 2.3 POKE 23886,0 POKE 23886,1 
NEWDOS 2.1 POKE 23461,0 POKE 23461,1 
NEWDOS 80 POKE 19408,0 POKE 19408,1 


A maioria dos micros nacionais da li- 
nha TRS-80 utiliza sistemas compatíveis 
com o TRSDOS (pronuncia-se trisdós). 
Se seu micro usa a versão CP/M, você 
não poderá desativar a tecla < BREAK > 
por meio da operação sugerida. 

Um aviso final: se seu programa ain- 
da não foi gravado, tenha muito cuida- 
do ao usar esse truque, assegurando que 
a tecla <BREAK> possa ser reativa- 
da. Caso contrário, você poderá ficar na 
desagradável situação de nunca mais po- 
der listar seu próprio programa! 


UTO-REPETIÇÃO 


Os modelos da linha TRS-80 1 e III 
(como o Prológica CP-500) não têm a 
capacidade de repetição automática das 
teclas — ou seja, as teclas não se auto- 








Aprenda a explorar todas as 
possibilidades do teclado do TRS-80 
e a utilizá-lo de forma criativa. 

Comandos PEEK e POKE garantirão 
o sucesso de suas experiências. 






repetem durante o período em que es- 
tão sendo pressionadas. 

Este é um recurso útil para uma sé- 
rie de aplicações: por exemplo, jogos em 
que o movimento de um cursor ou o dis- 
paro de uma metralhadora são contro- 
lados por teclas auto-repetitivas. 

Há uma maneira, porém, de saber se 
uma tecla continua sendo pressionada 
ou não, o que nos permite implementar 
uma rotina de repetição. Se o valor da- 
do por um PEEK(14591) for igual a 0, 
nenhuma tecla está sendo pressionada; 
se esse valor for maior que 0, uma tecla 
está sendo pressionada. 

Para entender como funcionaria um 
laço simples de repetição, digite: 


10 PRINT PEEK(14591);:GOTO 10 


Ao ser executado, o programa impri- 
me uma seqgiiência de zeros na tela. 
Quando uma tecla é pressionada, esse 
valor muda. Note que cada tecla ou 
combinação de teclas (pressionadas jun- 
to) tem um valor diferente, que não cor- 
responde ao valor ASCII da tecla. 

Para aplicar esse expediente, identi- 
fique os números das teclas que deseja 
usar para direcionar a lógica de deter- 
minado programa e introduza vários IF 
dentro do mesmo. Se você quiser utili- 
zar os valores ASCII gerados por cada 
tecla pressionada, precisará de um IF 
para testar se a tecla continua pressio- 
nada, e outro para localizar essa tecla. 

Como exemplo, execute este progra- 
ma. Ele desloca um cursor pela tela, sob 
o controle de quatro teclas (flechas). 


10 CLS:X=64:Y=24 

15 SET(X,Y) 

20 IF T%>0 AND PEEK(14591)>0 
THEN 50 

25 TS=INKEYS:IF T$="" THEN 25 
30 TI=ASC(TS) 

50 IF Tt=8 THEN X=X-1:GOTO 15 
60 IF T$=9 THEN X=X+1:GOTO 15 
70 IF Tt=91 THEN Y=Y-1:GOTO 15 
80 IF Tt=10 THEN Y=Y+1:GOTO 15 
90 coTo 25 


A linha 10 do programa define a po- 
sição inicial do cursor (um pequeno pon- 
to na tela), “aceso” pelo comando SET, 
com as coordenadas X e Y na tela. 

A linha 20 verifica se alguma tecla es- 
tá sendo pressionada — ou seja, se O va- 
lor T% (código ASCII da tecla, deter- 










minado na linha 30) e o conteúdo da me- 
mória 14591 são, simultaneamente, 
maiores que O. Em caso afirmativo, o 
programa pula para a linha 50, que ini- 
cia vários testes para identificar qual das 
teclas com flecha foi pressionada. As 
coordenadas X e Y são alteradas para 
mais ou para menos, e um outro ponto 
é aceso na tela na nova posição. A li- 
nha 20 testa mais uma vez se essa tecla 
continua pressionada, executa um des- 
locamento e assim por diante. 

Se nenhuma tecla estiver sendo pres- 
sionada, o programa vai para a linha 25, 
que cria um laço de varredura do tecla- 
do com a função INKEYS. Essa linha 
se repete até que se pressione alguma te- 
cla. Então, o valor ASCII da tecla é 
identificado e armazenado em T%, pe- 
la linha 30, A partir daí, o micro se com- 
porta como se tivesse a capacidade de 
repetição automática das teclas. 

Observe que, se nenhuma das quatro 
teclas com flecha tiver sido pressiona- 
da, o programa retorna ao laço de es- 
pera situado na linha 25. 

Ao executar esse programa, tenha o 
cuidado de não ultrapassar os limites da 
tela com o cursor, para que não ocorra 
um erro na linha 15, Se quiser melho- 
rar o programa, introduza testes para as 
alterações de X e Y, de modo a impedir 
que eles ultrapassem os valores mínimo 
e máximo da tela. 


o Rio AS 


Normalmente, o cursor de texto do 
TRS-80 é um traço de sublinhar, não 
piscante. Não é fácil localizá-lo com a 
tela cheia de texto. A dificuldade au- 
menta em aplicações de deslocamento 
bidimensional do cursor, sobretudo se 
ele se sobrepõe a um trecho gráfico. 

Um bom recurso consiste em fazer o 
cursor piscar repetidamente, distinguin- 
do-se dos caracteres de fundo. No 
TRS-80, porém, só se obtém esse efeito 
por meio de software, já que nenhum de 
seus comandos permite alterar a função 
do cursor. Portanto, a rotina precisa ser 
suficientemente rápida para não ““segu- 
rar” o usuário que está digitando o tex- 
to a uma certa velocidade. 

Um problema adicional é fazer o cur- 





























E TRUQUES COM O TECLADO DAS TECLAS 
COMO DESATIVAR E CURSOR DE TEXTO 

À TECLA <BREAK> PISCANTE 

ROTINA PARA À ENTRADA DIRETA 

REPETIÇÃO AUTOMÁTICA DE SÍMBOLOS GRÁFICOS 


sor piscar quando está sobre um carac- 
tere já impresso. Nesse caso, devemos 
copiar o valor do caractere em uma va- 
riável, antes de piscar, e recolocá-lo na 
tela. Os comandos PEEK e POKE des- 
ta rotina encarregam-se disso: 


100 TS=INKEYS: 
120 

110 POKE X2,95:POKE Xt,Ct:GoTO 
100 

120 RETURN 


IF TS<>"” THEN 


Antes de chamar a rotina, coloque a 
posição atual do cursor em X%. Este é 
um valor entre 15360 e 16383, números 
que correspondem às locações da me- 
mória de vídeo na RAM. Para obtê-lo, 
examina-se o conteúdo das memórias 
16416 e 16417. O valor ASCII do carac- 
tere nessa posição deve ser colocado em 
C%. Assim, a rotina poderá fazer o cur- 
sor piscar, após verificar o código arma- 
zenado na locação X% de vídeo: 


lo X3=PEEK(16417)*256+PEEK 
(16416) 

20 C&=PEEK(X$) 

30 GOSUB 100:PRINT TS;:GOTO 10 


A linha 30 chama a rotina e imprime 
O caractere que se pressionou, retorna- 
do pela sub-rotina em TS. A volta à li- 
nha 10 tem o efeito de deslocar o cur- 
sor uma posição à direita no vídeo, rei- 
niciando a rotina de piscar o cursor. 

Essa rotina permite ainda que se mo- 
difique a forma do cursor. Note que 
usamos o código ASCII 95, que corres- 
ponde ao traço de sublinhar. Para co- 
locar na tela um retângulo sólido, subs- 
titua 95 por 191, na linha 110, 


Ce ata 


Como vimos em artigo anterior (pági- 
na 1259), o emprego da rotina INKEY$ 
no lugar do comando INPUT possibili- 
ta a entrada dos caracteres gráficos do 
TRS-80 diretamente pelo teclado. Assim, 
se usarmos uma combinação das teclas 
<SHIFT > e <LINEFEED > (tecla pa- 
ra baixo), teremos o mesmo efeito da te- 
cla <CONTROL > de outros computa- 
dores, e poderemos gerar códigos ASCII 
diferentes, pelo teclado. Se pressionar- 
mos, por exemplo, a tecla A, juntamente 








VARREDURA DO TECLADO 

A função INKEYS é bastante útil pa- 
ra se detectar, dentro de um programa, 
se alguma tecla foi pressionada. Mas, 
às vezes, ela não é suficiente para sa- 
tisfazer certas necessidades do progra- 
mador — como indicar se duas ou mais 
teclas foram pressionadas simultanea- 
mente, ou detectar o acionamento de 
uma tecla que não gera um código atra- 
vés do INKEYS, como <SHIFT>. 

Conhecendo a organização do tecla- 
do, porém, esse tipo de verificação não 
oferece dificuldade. O teclado é disposto 
na forma de uma matriz. Quando uma 
tecla é pressionada, um determinado va- 
lor numérico entre 1 e 128 (potências 
de 2) é depositado na memória RAM 
correspondente a uma fileira (um dos se- 
guintes endereços: 14337, 14338, 
14340, 14344, 14352, 14368, 14400 
ou 14464). A correspondência entre te- 
cla e endereço nos permite identificar a 
tecla ou teclas pressionadas. Por exem- 
plo, a tecla < SHIFT >, quando pressio- 
nada, gera o código 1 na locação de me- 
mória 14464. 

Quando duas ou mais teclas são 
pressionadas simultaneamente, geran- 
do códigos no mesmo endereço, o nú- 
mero resultante é a soma dos códigos 
individuais. Assim, se J, K e L forem 
pressionadas, o número 4+8+16 = 
28 será colocado no endereço 14338. 

Para montar sua própria tabela de 
correspondência entre teclas e valores, 
faça um programa de uma linha, usan- 
do um PEEK para examinar o conteú- 
do de cada uma das memórias dentro 


de um laço infinito. 


com as anteriores, geramos o código AS- 
CII 1. Detectando esse código na rotina 
INKEYS, bastará somá-lo ao valor 128 
para obtermos em TS (variável de saída) 
o gráfico correspondente, que também 
será impresso na tela. 

Substitua a linha 130 por: 








130 IF ASC(T$)<32 THEN T$=CHRS( 
Tt+128) 
140 RETURN 







A Neste artigo, examinaremos novas 
COMPRESSÃO técnicas de compressão de textos. 


Com as várias alternativas dadas, não 
será difícil reduzir o espaço 
de memória ocupado por seu jogo. 


Como vimos no artigo da página 
1332, podemos conseguir um alto índi- 
ce de compress 
utilização de um conju 

letras maiúsculas e alguns 
sinais de pontuação) e da compactação 
dos códigos resultantes em um número 
menor de bits. Examinamos também o 
uso da estatística de ocorrência de letras 
e outros símbolos em um texto, para ob- 
ter um código progressivo de quatro 
bits. O procedimento garante uma gran- 
de eficiência de compressão (cerca de 
45%), envolvendo um programa relati- 
vamente simples em BASIC, para codi- 
ficação e decodificação. 

Neste artigo, apresentaremos outros 
métodos de compressão de textos. Um 
deles, conhecido como método chinês, 
mostra-se particularmente útil para a 
compressão de textos muito longos e 
com repetições fregientes de um con- 
junto reduzido de palavras — o que, cer- 
tamente, não é próprio de programas de 
aventuras. De qualquer maneira, esse 
método completa o leque de alternati- 
vas de compressão de textos e, dada a 
sua eficácia, poderá ser aproveitado em 
outros tipos de programa. 


DR EU 


O algoritmo estatístico de compres: 
são de textos, que estudamos no artigo 
anterior, toma como base a diferença de 
frequência das letras em um texto para 
construir um sistema de códigos em que 
os caracteres de maior uso têm um nú- 
mero menor de bits. Para facilitar a pro- 
gramação em BASIC desse algoritmo, 
limitamos a quatro o número mínimo de 
bits por caractere. Poderíamos, entre- 
tanto, utilizar um número ainda menor 
de bits para as letras mais frequentes: 
dois ou três, por exemplo. Com o esque- 
ma adotado anteriormente — em que se 
usa um nibble O para assinalar a mudan- 
ça de “dicionários” de códigos —, os 
ganhos da compactação seriam míni- 
mos, pois, com a mudança constante de 
dicionários, q número de zeros acaba- 
ria se tornando muito elevado. Portan- 
to, para a codificação com um número 
menor de bits, aquele esquema não ser- 
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UM SUPERCOMPRESSOR 
ESQUEMA DUPLO DE 

5 CODIFICAÇÃO 
CÁLCULO DA FREQUÊNCIA 
DE PARES 


ES CODIFICAÇÃO 


É possível empregar, porém, um mé- 
todo mais elaborado, que adota um es- 
quema duplo de codificação: 

- quanto mais frequente a letra no 
texto a ser codificado, menor é o núme- 
ro de bits usado para seu código. Por 
exemplo: o espaço (caractere mais fre- 
quente em qualquer texto) tem um có- 
digo binário de três bits (011); a letra E, 
de cinco bits (10111). Já a letra P, não 
tão fregiiente, tem um código de seis bits 
(110110), e a letra Z, de oito bits 
(11111100); 

- certos pares de letras muito comuns 
em um texto também recebem um códi- 
go binário reduzido. O esquema de co- 
dificação é o mesmo das letras, mas o 
efeito de compressão é bem mais pode- 
roso, já que estamos substituindo dois 
bytes (dezesseis bits) por um número 
muito menor de bits no novo código. 


RU US 


Apresentamos, a seguir, um progra- 
ma destinado a computar e exibir os pa- 
res de letras mais frequentes em um tex- 
to. Ele usa a mesma técnica do progra- 
ma que determina a fregiência simples 
dos caracteres, fornecido no artigo an- 
terior. 

Em primeiro lugar, o programa ini- 
cializa os conjuntos L — que conterá a 
fregiiência de pares que começa com ca- 
da caractere ASCII, de 32 a 90 — e F 
— que conterá em cada casela F(I,J) a 
freguência acumulada pelo par de carac- 
teres com códigos 1 e J. 

Em todas as versões, exceto a do 
Spectrum, o sinal % depois de L e F ser- 
ve para definir como inteiro o tipo do 
conjunto. Isso economiza memória e au- 
menta a velocidade de processamento. 
As linhas 20 a 40 não são necessárias nos 
computadores que inicializam em O to- 
das as variáveis numéricas, quando 
RUN é digitado. 


10 DIM L?(60),F%(60,60),C%(60) 


DESCOMPRESSÃO 

O MÉTODO CHINÊS 
CODIFICAÇÃO POR DICIONÁRIOS 
Ee DECODIFICAÇÃO 
VANTAGENS E DESVANTAGENS 


20 NT=0:NP=0 

30 FOR I=1 TO 60:Lº(1)=0 
35 FOR J=1 TO 60 

40 F2(1,))=0:NEXT J:NEXT I 


Coloque um comando CLEAR 3000 
na linha 10, antes da declaração DIM, 
para o TRS-80 e TRS-Color. 


10 DIM 
20 LET 
30 FOR 
35 FOR 
40 LET 


L(60),£(60,60),c(60) 
nt=0:LET np=0 

i=1 TO 60:LET L(i)=0 
3=1 TO 60 
£(1,5)=0:NEXT 5:NEXT à 


A parte seguinte do programa prin- 
cipal lê as linhas DATA que contêm o 
texto a ser codificado. Para fins de tes- 
te, você poderá recorrer ao texto de ins- 
truções de uma aventura, dado no arti- 
go anterior, acrescentando-o ao final 
deste programa. 


PRINT "ANALISANDO... 
READ LS:IF L$="*" THEN 100 
PRINT LS:LT=LÊN(LS) 
NT=NT+LT 
IF INT(LT/2)<>LT/2 THEN L$= 
Ls+" * 
90 GOSUB 520:GOTO 70 


60 PRINT "ANALISANDO. ..” 

70 READ LS:IF L$="*" THEN GOTO 
100 

75 PRINT LS:LET LE=LEN LS 

80 LET nt=nt+Lt 
85 IF INT Lt/2 
L$=L$+" 
90 GOSUB 


PLt/2 THEN LET 


520:GOTO 70 


Um asterisco na linha de texto (L$) 
indica o fim do mesmo. Caso o texto 
não tenha terminado, calcula-se o com- 
primento LT de L$. Se LT for ímpar, 
é preciso acrescentar um espaço em 
branco ao final de L$, para que a roti- 
na de contagem efetue corretamente o 
cálculo e a extração de pares de carac- 
teres. Isso é feito pela linha 85, que ve- 
rifica se o resto da divisão de LT por 2 








O 





é maior que O (se for, é ímpar). Final- 
mente, a linha 90 chama a rotina de con- 
tagem, que começa em 520: 


asa éito) 


500 REM - ROTINA DE CONTAGEM 
520 FOR I=1 TO LEN(LS)-1 

525 NP=NP+1 

530 C1=ASC(MIDS(LS,1,1))-31 
540 C2=ASC(MIDS(L$,1+1,1))-31 
545 LE(CI)=LE(CI)+ 

550 F2(C1,C2)=FR(C1,C2)+1 
560 NEXT 1 

570 RETURN 

500 REM - ROTINA DE CONTAGEM 
520 FOR 1=1 TO LEN LS-1 

525 LET np=np+l 

530 LET cl=ASC(L$S,1 TO 1)-31 
540 LET c2=ASC(LS,i to 1+1)-31 
545 LET L(cl)=L(cl)+1 

550 LET E(cl,c2)=f(cl,c2)+1 
560 NEXT 1 

570 RETURN 


A rotina de contagem é muito sim- 
ples: o laço que vai da linha 520 à 560 
percorre L$ tomando um caractere por 
vez. As variáveis Cl e C2 conterão os 
códigos ASCII do primeiro e do segun- 
do caracteres de um par. Subtraindo o 
valor 31 desse código, obteremos um nú- 
mero compreendido entre 1 (espaço) e 
58 (letra Z). Cl e C2 servirão assim co- 
mo índices para acumular a casela cor- 
reta de F e de L. 

O programa principal termina quan- 
do se atinge o final do texto e a rotina 
dos resultados é chamada. 


asas by ld itSIESs 


";NT;"CARACTE 





100 PRINT "TOTAL: 
RES E ";NP;"PARES” 
120 GOSUB 780 

140 STOP 


A rotina de exibição, que começa em 
780, utiliza uma rotina de ordenação pa- 
ra mostrar os resultados em ordem de- 
crescente, ou seja, os pares mais fre- 
quentes em primeiro lugar. 


anna ilé io!) 


680 REM - ROTINA DE ORDENACAO 


690 N=60 

695 FOR J=1 TO 60:C&(J)=J:NEXT 
700 FL=0 

710 N=N-1:FOR J=1 TO N 


720 IF FR(I,C8(J))>=FR(I,CE(J+ 
)) THEN GOTO 740 





730 X=Ct(J) :Ct(J)=Ct(J+) :Cr(J 
+1)=X:FL=1 


740 NEXT J 

750 IF FL=0 OR N=2 THEN RETURN 
760 GoTO 700 

770 REM - ROTINA DE IMPRESSAO 
780 NL=0:PRINT 

790 PRINT "FREQUENCIA DE PARES 


NO TEXTO”: PRINT 

800 FOR I=1 TO 60:IF L$(1)=0 TH 
EN 850 

BO5 GOSUB 690 

810 FOR J=1 TO 60 

815 X=Ct(J):IF F&(I,X)=0 THEN 
Goro 825 

820 PRINT CHRS(1+31)+CHRS (X+31) 
FFR(I,X):” *; 

825 NEXT J:PRINT 

830 NL=NL+1:IF NL<15 THEN GOTO 
850 

840 NL=0: INPUT "PRESSIONE <ENTE 
R> ";xs 

850 NEXT I:PRINT 

860 RETURN 


680 
690 
695 
700 


REM - ROTINA DE ORDENACAO 
LET n=60 

FOR 3=1 TO 60:LET c(3)=3 
NEXT J:LET fL=0 

710 LET n=n-1:FOR 3=1 TO n 
720 IF f(i,c()))>=f(1,c(3+1)) 
THEN GOTO 740 





730 LET x=c(3):LET c(3)=c(3+1): 
LET c(5+1)=x:fL=1 

740 NEXT 3 

750 IF fL=0 OR n=2 THEN RETURN 
760 coTo 700 

770 REM - ROTINA DE IMPRESSAO 
780 LET nL=0:PRINT 

790 PRINT "FREQUENCIA DE PARES 
NO TEXTO” :PRINT 

800 FOR 1=1 TO 60:IF L(1)=0 THE 
N Goto 850 


805 GOSUB 690 

810 FOR 3=1 TO 60 

815 LET x=c(5):IF f(1,x)=0 THEN 
Goro 825 

820 PRINT CHRS 
sÊ (1x) my 
825 NEXT 3:PRINT 

830 LET nL=nL+1:IF nL<15 
oTO 850 

840 LET nL=0: INPUT 
ENTER> ";x$ 
850 NEXT 1 
860 RETURN 


1+31 +4CHRS x+31 


THEN ( 
"PRESSIONE 


PRINT 


Para não alterar a matriz F, a rotina 
de ordenação utiliza um conjunto C, 
que funciona como índice — para isso, 
ele é inicializado no começo da rotina 
(linha 695), de modo a conter os núme- 
ros 1, 2, 3 etc. A ordenação (do tipo bo- 
lha) coloca esses números em uma or- 
dem diferente. 

A sub-rotina de impressão examina 
cada uma das linhas da matriz F. Se o 
total L(I) da linha I for 0, não se regis- 
trou a ocorrência de nenhum caractere 

























































com código +31 no texto. Do contrá- 
rio, O programa chama a rotina de or- 
denação. O laço que vai da linha 810 à 
825 imprime todos os pares cuja fre- 
qiuiência é maior que 0. A variável-índice 
X, extraída de C, é usada para mostrá- 
los em ordem decrescente. 

Se você quiser ver apenas os dois pa- 
res mais frequentes para cada caracte- 
re, modifique a linha 810 para: 


810 FOR J=1 TO 2 


O MÉTODO CHI 


A técnica de compressão explicada a 
seguir apresenta um alto nível de eficiên- 
cia, dependendo do texto a codificar e 
de sua extensão. Trata-se, na realidade, 
de uma generalização do algoritmo de 
codificação por pares de letras: se po- 
demos empregar códigos numéricos pa- 
ra representar os pares de caracteres 
mais frequentes em um texto, a fim de 
comprimi-lo, é possível também usar 
tríades dos caracteres mais comuns. Na- 
turalmente, essa abordagem se torna- 
ria cada vez mais inviável, à medida que 
aumentássemos as dimensões da matriz 

















de 3.600 elementos, para contagem 
de pares, para 216.000 elementos, para 
contagem de tríades etc 

E por que não montar um dicioná- 
rio com palavras completas? Cada pa 
lavra receberia um código numérico de 
oito ou de dezesseis bits, e o texto seria 
composto por uma segjiiência desses có- 
digos. Para reconstituí-lo, bastaria bus- 
car no dicionário a palavra correspon- 
dente a cada número 

Esse sistema é chamado método chi. 
nês, pois as palavras em chinês não são 
formadas a partir de um pequeno con- 
junto de fonemas ou sílabas, como nos 
idiomas ocidentais, mas de figuras úni- 
cas, os ideogramas, que correspondem 
a códigos 

A idéia pode ser muito boa para uma 
linguagem natural, mas não devemos 
nos esquecer de que, no computador, o 
dicionário também precisa ser armaze- 
nado. Assim, para se conseguir o efeito 
de compressão, é necessário que o resul- 
tado da soma do número de bytes obti- 
do no processo com o número de bytes 
gasto com a armazenagem do dicioná- 
rio na memória seja menor do que o nú- 
mero de bytes do texto não comprimi- 
do (original). A taxa ou eficiência de 


compressão é dada pela divisão de um 
valor pelo outro. 

Para entender como funciona esse al- 
goritmo e verificar se é capaz de com- 
primir o texto-exemplo usado antes, di- 
gite e execute este programa 


asaa by dito) 


10 DIM F(200 





(200), PS (200) 





(50) 
20 NT=0:NP=0:NR=0:L 
ET NL=0:NF=0 





30 FOR I=1 TO 200 
40 F(I)=0:C(I)=I 


50 NEXT I 
60 PRINT "ANALISANDO 
70 REAL IF L THEN GOT) 





100 
75 NL=NL+1 
80 NT=NT+LEN(LS) 

























85 GOSUB 510 
90 NF=NF+LEN(FS (NL 

100 PRINT L "CARACTE 
RES E NP 

110 PR NR; 
"CARA 

115 P JMPRIMIDO 
";NF; "CARACTERES 

120 PRINT "ORDENANDO...” 

130 GOSUB 690:GOSUB 780 


















250 STOP 

500 REM - ROTINA DE CO 

510 LS=LS+" ":1=1: 

520 C=ASC(MIDS(LS,1,1)) 

525 IF C<>32 THEN GOTO 560 
540 I=I+1:IF IXLEN(LS) THEN 
Goro 520 

550 RETURN 

560 L=I 

570 € » 

575 IF GoTOo 610 
590 I=1+1 LEN(LS) THEN 
Goro 570 


600 RETURN 

610 XS=MIDS(LS,L,I-L) 

620 FOR N=1 TO NP 

630 IF XS<>PS(N) THEN GOTO 640 
635 F(N)=F(N)+1:FS(NL)=FS(NL)+ 
CHRS (N) :GOTO 520 

640 NEXT N 

650 NP=NP+1:F(NP)=1:PS(NP)=XS 
660 NR=NR+LEN(XS) :FS(NL)=FS (NL) 
+CHRS (NP) 


670 GoTo 520 

680 REM - ROTINA DE ORDENACAO 
690 N=NP 

700 FL=0 

710 N=N-1:FOR I=1 TO N 

720 IF F(C(I))=>F(C(I+1)) THEN 


Goto 740 

730 X=C(I):C(I)=C(I+1) 
735 C(I+1)=X:FL=1 

740 NEXT 1 

















750 IF FL=0 OR N=2 THEN RETURN 
760 Goto 700 

770 REM - ROTINA DE IMPRESSAO 
780 NXx=0 

790 PRINT "FREQUENCIA DE PALAVR 
AS NO TEXTO” :PRINT 

800 FOR I=1 TO NP 

820 PRINT I;PS(C(I)),F(C(I)) 
830 NX=NX+1:IF NX<15 THEN GOTO 
8s0 

840 NX=0: INPUT 
R> ";xs 

850 NEXT I:PRINT 
860 RETURN 


Os usuários do TRS-80 e do TRS- 
Color devem colocar um comando 
CLEAR 3000 antes do DIM, na linha 10. 


10 DIM £(200) ,c(200) ,p$(200,15) 
+ES(50) 

20 LET nt=0:LET np=0:LET nt=0:L 
ET nl=0:LET n£f=0 

30 FOR 1=1 TO 200 

40 LET f(1)=0:LET c(i)=1 

50 NEXT à 

60 PRINT "ANALISANDO..." 

70 READ L$:IF L$="*" THEN GOTO 
100 

75 LET nl=nl+1 

80 LET nt=nt+LEN LS 

85 GOSUB 510 

90 LET nf=nf+LEN £S(nl):GOTO 70 
100 PRINT "TOTAL: ";nt;"CARACTE 
RES E ";np;"PALAVRAS” 

110 PRINT "DICIONARIO COM ";nr; 
“CARACTERES.” 

115 PRINT "TEXTO COMPRIMIDO COM 
";nf;"CARACTERES” 


"PRESSIONE <ENTE 


120 PRINT "ORDENANDO...” 

130 GOSUB 690:GOSUB 780 

250 sTOP 

500 REM - ROTINA DE CONTAGEM 
510 LET L$=LS+" ":LET i=1:;LET L 
“1 

520 LET c=ASC L$S(i TO à) 

525 IF c<>32 THEN GOTO 560 

540 LET i=1+1:IF 1<LEN L$ THEN 
GoTo 520 

550 RETURN 

560 LET L=i 


570 LET c=ASC L$(i TO à) 

575 IF c=32 THEN GOTO 610 

590 LET 1=1+1:IF i=<LEN L$ THEN 
Goto 570 

600 RETURN 

610 LET x$=LS(L to I-1) 


620 FOR n=1 TO NP 

630 IF xS<>pS(n) THEN GOTO 640 

635 LET f(n)=f(n)+1:LET f$(nl)= 
£S (nl) +CHRS (n) :GOTO 520 

640 NEXT n 

650 LET np=np+1:LET f(np)=1:LET 
pS(np)=x5 

660 LET nr=nr+LEN x$:LET f$(nl 

)=£S (nl) +CHRS (np) 


670 goTo 520 
680 REM - ROTINA DE ORDENACAO 


690 LET n=np 

700 LET £1=0 

710 LET n=n-1:FOR i=1 TO n 

720 IF f(c(i))=>f(c(1+1)) THEN 
Goro 740 


730 LET x=c(i):LET c(i)=c(i+1): 
LET c(i+1)=x:LET fl=1 

740 NEXT à 

750 IF £1=0 OR n=2 THEN RETURN 
760 GoTO 700 

770 REM - ROTINA DE IMPRESSAO 
780 LET nx=0 

790 PRINT "FREQUENCIA DE PALAVR 


AS NO TEXTO":PRINT 

800 FOR i=1 TO np 

820 PRINT i;pS(c(1)),f(c(1)) 
830 LET nx=nx+1:1IF nx<15 THEN G 
oTo 850 

840 LET nx=0:PRINT "PRESSIONE < 
ENTER> ": INPUT x$ 

850 NEXT 1:PRINT 

860 RETURN 


A parte principal do programa é a ro- 
tina de extração de palavras, que vai da 
linha 500 à 670. 

Para identificar e separar as palavras 
contidas em uma linha de texto, essa ro- 
tina procura o primeiro caractere não- 
branco (que não é um espaço) a partir 
do caractere I da linha L$. A posição 
inicial da palavra é armazenada na va- 
riável L (linha 560). 

Em seguida, a rotina procura o fim 
da palavra: continua a percorrer o tex- 
to até encontrar o primeiro caractere de 
espaço. Isso é feito pelas linhas 570 a 
600. Note que, para evitar que a última 
palavra de um texto se perca, a linha 510 


-da rotina sempre acrescenta um espaço 


em branco após L$. 

Achado o final da palavra, o sub- 
string compreendido entre L e 1-1 (a no- 
va posição) é copiado em X$ (linha 610). 
As linhas 620 a 660 verificam então se 
a palavra X$ existe no dicionário P$, 
com NP palavras. Se não existe, a nova 
palavra é acrescentada. Antes de voltar 
para a linha 520, para buscar nova pa- 
lavra no texto, a rotina incrementa em 
Fa fregiiência de ocorrência da palavra. 
A linha de saída, que contém o texto 
comprimido (armazenada em F$), rece- 
be um novo caractere, que corresponde 
ao código da palavra no dicionário. Por- 
tanto, uma palavra inteira é substituída 
por um byte. 

Concluindo o programa, as rotinas 
das linhas 690 e 780 colocam as palavras 
do dicionário em ordem alfabética, exi- 
bindo-as na tela em grupos de quinze, 
como mostramos a seguir: 


FREQUENCIA DAS PALAVRAS 


DE 15 
o 10 
A 8 
E 8 


UM 6 
DO 5 


SUA 5 

Observamos no texto-exemplo que: 
- as palavras curtas aparecem mais; 

- há um grande número de palavras com 
uma única ocorrência; 

- vírgulas e outros sinais são tratados co- 
mo parte da palavra junto à qual se en- 
contram. 

Com isso, a eficiência de compressão 
do algoritmo é muito baixa: de 1228 ca- 
racteres do texto original, conseguimos 
comprimir apenas 215 caracteres (uma 
taxa de 82,5%); porém, o dicionário 
ocupa outros 870 bytes, dando um to- 
tal de 1085. A eficiência se reduz, assim, 
a apenas 11,6%. 

O algoritmo é mais eficaz quando se 
combinam textos bem longos e uso de 
um vocabulário reduzido. 


“CODIFICAÇÃO 


Para ver como o texto comprimido 
é reconstituído, acrescente a sub-rotina 
de decodificação: 


anna) (Ss) 


140 GOSUB 900 

890 REM - ROTINA DECODIFICACAO 
900 NX=0:FOR I=1 TO NL 

910 FOR J=1 TO LEN(FS(I)) 

920 PRINT ” ";PS(ASC(MIDS(FS(I) 
+3,1))) 5 

930 NEXT J: PRINT 

940 NX=NX+1:IF NX<15 THEN GOTO 
950 

945 NX=0: INPUT 
R> ";R$ 

950 NEXT I:RETURN 


140 GOSUB 900 
890 REM - ROTINA DECODIFICACAO 
900 LET nx=0:FOR i=1 TO nL 

910 FOR 3=1 TO LEN £S(1) 

920 PRINT ” ";pS(ASC(FS(i,5 TO 
592) 

930 NEXT 53:PRINT 

940 LET nx=nx+1:IF ax<15 THEN G 
oTO 950 

945 LET nx=0:PRINT 


"PRESSIONE <ENTE 


"PRESSIONE < 


Essa rotina funciona de modo opos- 
to ao da de codificação, mas é bem mais 
simples. Os códigos armazenados em F$ 
são recuperados pela função ASC da li- 
nha 920, e servem como índice do dicio- 
nário P$ para reconstruir o texto origi- 
nal. Os espaços entre palavras são inse- 
ridos automaticamente. 


ROTINAS EM CÓDIGO 
DE MÁQUINA (2) 


A linha DATA é um excelente lugar 
para se colocar programas em linguagem 
de máquina embutidos em um programa 
em BASIC. Aprenda aqui os truques 
que facilitam essa tarefa no MSX. 


“5 Ergo 


Com fregiiência, armazenamos, em 
algum lugar da memória, uma rotina em 
código de máquina, um arquivo de pa- 
drões de um desenho ou até mesmo uma 
composição musical acompanhada de 
instruções. Muitas vezes é útil incorpo- 
rar esse arquivo de rotinas a um progra- 
ma em linguagem BASIC. Se colocar- 
mos seus códigos nas linhas DATA do 
programa que os acessa, tornaremos 
bem mais fácil o manuseio do sistema, 
viabilizando a obtenção de uma listagem 
completa e evitando repetidas buscas no 
gravador ou no drive, para uma poste- 
rior junção. Com essas linhas DATA, 
precisaremos apenas acrescentar um la- 
ço que, por intermédio do comando PO- 
KE, carregue uma determinada região 
da memória com os dados nela contidos. 


RR 


Para apresentar os códigos do arqui- 
vo, o mais conveniente é utilizar núme- 
ros hexadecimais, que ocupam menos 
espaço e reduzem a possibilidade de se 
cometer erros na digitação. Além disso, 
o modo como dispomos os números na 
linha pode facilitar correções ou consul- 
tas posteriores — ou seja, a quantidade 
de números por linha indica que ali se 
encontra um determinado padrão grá- 
fico ou que aqueles códigos representam 
uma pequena sub-rotina dentro da ro- 
tina principal. 

O programa a seguir irá auxiliá-lo 
nessa tarefa. Inicialmente, você irá com- 
plementá-lo com linhas DATA seguidas 
de caracteres que depois serão superpos- 
tos pelo arquivo. É importante ressal- 
tar que a quantidade de caracteres por 
linha determinará o número de código 
nela armazenados. Assim, você pode 


“moldar” as linhas DATA, dando-lhes 
a aparência que julgar melhor. Por 
exemplo, uma linha do tipo: 


330 DATA XXXXXXXX 


seria transformada em: 
330 DATA A3,F2,01 


Convém, portanto, que você gaste al- 
gum tempo na criação dessas linhas, se 
quiser uma listagem bem organizada. 


[Lo o Ro Rato 


Após o acréscimo das linhas DATA, 
passamos à execução do programa. Em 
primeiro lugar, ele solicita o endereço 
inicial do arquivo, pedindo, em segui- 
da, seu comprimento. Depois de termos 
digitado essas informações, o computa- 
dor pergunta se as linhas DATA já fo- 
ram introduzidas. Caso isso ainda não 
tenha sido feito, o programa será inter- 
rompido. Finalmente, ele pede o núme- 
ro da primeira linha a ser preenchida. 
Se não encontrar essa linha, o compu- 
tador interromperá a execução do pro- 
grama e imprimirá uma mensagem de 
erro. O mesmo irá ocorrer se a linha in- 
dicada não contiver o comando DATA. 

É importante que todas as linhas re- 
servadas'para os códigos estejam em se- 
quiência na listagem — durante a execu- 
ção, uma mensagem de erro pára o pro- 
grama quando o computador encontra 
uma linha que não seja DATA. 


10 cLs 

20 INPUT"Qual o endereço do arq 
uivo “;EN:PRINT 

30 INPUT"Qual o comprimento ";C 
O: PRINT 

40 PRINT"Você já introduziu as 
linhas DATA? S/N ":PRINT 

50 GS=INKEYS:IF G$="" THEN GOTO 
so 

60 IF GS="N”º OR G$="n” THEN PRI 
NT "Eu vou parar o programa par 
a você fazerisso”:STOP 

70 INPUT"Qual a primeira linha 
DATA ";LD:PRINT 

80 X=32769! 

90 IF PEEK(X+2)+256*PEEK (X+3) =L 
D THEN 130 

100 IF PEEK(X)+256*PEEK (X+1)=0 
THEN PRINT"Não achei esta linha 
":STOP 

















m ROTINAS NAS LINHAS DATA 
n A ESTRUTURA DE 

UMA LINHA 
m PEEK E POKE 





E ENTENDA COMO FUNCIONA 





110 X=PEEK (X) +256*PEEK (X+1) 

120 GoTo 90 

130 IF PEEK(X+4)<>132 THEN PRIN 
T"Esta não é uma linha DATA”:PR 
INT:GOoTO 70 


140 X=X+3 

150 FOR I=0 TO co-1 

160 X=x+3 

170 IF PEEK(X)=0 THEN X=X+5:Gos 
UB 310 


180 IF PEEK(X+1)=0 THEN POKE X, 
32:X=X+6:GOSUB 310 

190 LET AS=HEXS (PEEK (E+I)) 

200 IF LEN(AS)=1 THEN A$S="0"+AS 
210 POKE X,ASC(MIDS(AS,1,1)) 
220 POKE X+1,ASC(MIDS(AS,2,1)) 
230 IF PEEK(X+2)=0 THEN X=X-1:G 
oTo 270 

240 IF PEEK(X+3)=0 THEN POKE (X 
+2),32:GoTO 270 

250 IF PEEK(X+4)=0 THEN POKE (X 
+2),32:POKE (X+3),32:X=X+1:GoTo 
270 

260 IF I<>CO-1 THEN POKE(X+2),4 


4 

270 NEXT 1 

280 IF PEEK(X+2)<>0 THEN POKE(X 
+2),32:X=X+1:GOTO 280 

290 LIST 

300 STOP 

310 IF PEEK(X)<>132 THEN PRINT” 
Faltam linhas DATA”:STOP ELSE X 
=X+2 

320 RETURN 


[Ran 


Para entender o funcionamento do 
programa, é m io conhecer a estru- 
tura de uma linha DATA, ou seja, sa- 
ber como ela é armazenada na RAM. 

Ao ligar o computador, digite: 


10 DATA A,B,C 


Agora, para “ler” o que está escrito 
na memória, usaremos o comando 
PEEK, que mostra o conteúdo de um 
determinado endereço. Começaremos 
pelo exame do byte de número 32769, 
que contém a primeira informação da 
linha inicial de um programa em BA- 
SIC. Para isso, digite o comando direto: 


FOR 1=32769 TO 32782:PRINT PEEK 
(1);” ";:NEXT I 


Você deve ter obtido a seguinte se- 
qiência de números: 


13 128 10 O 132 32 65 44 66 44 
672000 








[O a 


Os dois primeiros números referem-se 
ao endereço inicial da próxima linha. Esse 
endereço é armazenado na forma LH (do 
inglês Low, parte baixa, e High, parte al- 
ta). Pode ser decodificado do seguinte 
modo: 128*256+13 = 32781. O par se- 
guinte equivale ao número da linha, que 
é armazenado da mesma forma: 
0*256+10 = 10. O próximo número, 132, 
é o código da palavra DATA. 

O MSX atribui um número — ou to- 
ken (símbolo, indicação) — a cada pa- 
lavra e caractere reservados. Assim, o 
computador economiza bastante memó- 
ria: em vez de armazenar todos os ca- 
racteres da palavra, guarda apenas o seu 
token. É importante não confundir os 
tokens com os códigos ASCII, que re- 
presentam os caracteres comuns. 

O número 32, que vem a seguir, é o 
código ASCII do espaço em branco, que 
separa os dados do comando DATA. Os 
próximos cinco bytes contêm esses da- 
dos, que vêm separados por uma virgu- 
la (44). O primeiro 0, na sequência, in- 
dica o fim de uma linha, e os dois ou- 
tros, o fim do programa. Quando todas 
as linhas tiverem sido examinadas, os 
dois bytes iniciais apontam para o pri- 
meiro destes dois zeros. 
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Após conseguir as informações soli- 
citadas no início do programa, o com- 
putador passa às verificações. 

A linha 80 inicializa a variável prin- 
cipal, X, que contém o endereço do byte 
em estudo. Primeiro, ela assume o va- 
lor 32769, que, conforme vimos, é o en- 
dereço do byte inicial da primeira linha. 
A linha 90 verifica o terceiro e quarto 
bytes, obtendo o número da linha. Se es- 
ta for a linha procurada (a primeira li- 
nha DATA), o programa é desviado pa- 
ra a linha 130. 

A linha 100 pesquisa o primeiro e o 
segundo bytes, que contêm o endereço 
da próxima linha. Se houver um núme- 
ro O no lugar do endereço, estamos no 
fim do programa — o que significa que 
a linha não foi encontrada. O compu- 
tador imprime então uma mensagem de 
erro. Caso contrário, é necessário pes- 
quisar a próxima linha. Assim, depois 
de atribuir à variável X o valor encon- 
trado no primeiro e no segundo bytes (li- 
nha 110), o programa retorna para a li- 
nha 90. Esse laço só será interrompido 
quando a próxima linha do programa 
foi localizada ou quando chegarmos ao 
final da listagem. 


Ao encontrar a linha indicada pelo 
usuário, o microcomputador verifica se 
se trata de uma linha DATA. Para is- 
so, pesquisa seu quinto byte. Se ele não 
contiver o token correspondente à ins- 
trução DATA, será impressa uma men- 
sagem de erro. 
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Feitas todas essas verificações, O pro- 
grama inicia o laço principal, controla- 
do pela variável I, que coloca os códi- 
gos de máquina no programa em BA- 
SIC. Antes, porém, a linha 140 acres- 
centa três unidades a X, para que, den- 
tro do laço, essa variável seja incremen- 
tada em mais três e alcance o endereço 
do primeiro caractere da linha que de- 
verá ser preenchida. 

Primeiro, o laço principal busca o có- 
digo na região da memória determina- 
da pelo usuário, transforma-o na nota- 
ção hexadecimal (linha 190) e o coloca 
sobre os caracteres para os quais reser- 
vamos espaço nas linhas DATA (linhas 
210 e 220). Se esse código for inferior 
a 15, sua notação em hexadecimal terá 
apenas um caractere. Para dar uma me- 
lhor apresentação ao programa, a linha 
200 acrescentará um O à direita desse ca- 
ractere. 

As linhas 170 e 180 são responsáveis 
pela mudança de linha. Se o byte em 
questão contiver o valor 0, um salto se- 
rá necessário, pois esse valor indica o 
fim da linha. Incrementa-se então a va- 
riável X, de modo que ela alcance o 
endereço do próximo caractere a ser 
superposto por um código, na linha 
seguinte. Porém, se o byte posterior a 
este contiver um 0, não será possível 
colocar um código na linha, por falta 
de espaço. Nesse caso, além do incre- 
mento, é preciso imprimir um espaço 
em branco sobre o caractere que se en- 
contra no endereço anterior ao 0. Am- 
bas as linhas, antes do salto, utilizam 
uma sub-rotina (linha 310) para verifi- 
car se a próxima linha é realmente uma 
linha DATA. 

Convém estar atento para que nada 
seja impresso após o último código, pois 
ele deve finalizar a linha DATA. Assim, 
quando o código já foi introduzido nas 
posições X e X+1, não haverá vírgula 
se o primeiro, o segundo ou o terceiro 
bytes após ele contiverem o número O. 
Nesse caso, alguns espaços em branco 
serão colocados sobre os caracteres an- 
teriores àqueles bytes. O valor de X tam- 
bém sofrerá uma pequena mudança pa- 
ra que, na próxima volta do laço, o en- 
dereço X, incrementado em três, corres- 
ponda ao endereço de 0, e a linha 170 





se encarregue de promover o salto para 
a próxima linha DATA. 

Se o primeiro, o segundo e o terceiro 
bytes após o código não contiverem 0, 
a linha 260 se encarregará de imprimir 
uma vírgula. 

Quando o programa sai do laço, a li- 
nha 280 limpa a última linha DATA, 
imprimindo espaços em branco sobre os 
caracteres que ali se encontravam. 

Finalmente, o computador exibe na 
tela a listagem completa, mostrando ao 
usuário os códigos já incorporados ao 
programa. 

Como estamos fazendo modificações 
dentro do programa, convém gravá-lo 
antes da execução. Um pequeno erro de 
digitação pode provocar um POKE e 
inutilizar o programa. 
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Com os novos conhecimentos sobre 
a armazenagem das linhas em BASIC, 
você pode fazer uma série de experiên- 
cias com o comando POKE. Tente, por 
exemplo, digitar uma linha e mudar o 
seu número com um POKE no primei- 
ro e no segundo bytes. Lembre-se de que 
o primeiro byte do BASIC é o de núme- 
ro 32769. Você pode também “olhar” 
as linhas armazenadas no BASIC recor- 
rendo a alguns comandos diretos, como 
fizemos em nosso exemplo. 

Provavelmente, será útil dispor de 
uma lista dos comandos com seus res- 
pectivos tokens. Para obtê-la, digite e 
execute este programa: 


10 E=14962 

20 c=65 

30 PRINT CHRS(C); 

40 A=PEEK(E) 

50 B=PEEK (E+]) 

60 AS=CHRS (A) 

70 IF A<128 THEN PRINT AS: :GOTO 


110 

80 PRINT CHRS(A-128); TAB(8);B 
90 E=E+1 

100 IF PEEK(E+1)<>0 THEN PRINTC 
HR$(C); . 

110 IF PEEK(E+1)<>0 THEN 150 
120 C=C+1:IF C=89 THEN 170 

125 BS=CHR$(C): PRINT 

130 IF B$="J” OR B$="Q” THEN 15 
o 

140 PRINT BS; 

150 E=E+1 

160 IF E<X=15649 THEN 40 

170 E=15654:PRINT 


180 A=PEEK (E) :B=PEEK (E+1) 

190 IF A>127 THEN PRINT CHR$S(A- 
128); 

200 IF A<128 THEN PRINT CHRS(A) 


210 PRINT TAB(8);B 
220 E=E+2:PRINT 
230 IF E<15673 THEN GOTO 180 
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MUSICAL (3) 


Complete a listagem do seu editor 
musical e entregue-se ao prazer 

de compor e executar melodias. 

As instruções dadas a seguir mostram 
como utilizar cada função do programa. 


Apresentamos aqui a última parte do 
editor musical. Uma vez adicionada ao 
restante do programa, você poderá se 
dedicar à composição e execução de pe- 
ças musicais. 

O programa foi feito de modo a ob- 
ter o máximo de cada máquina, em ter- 
mos de efeitos sonoros. Como os recur- 
sos das diferentes linhas de micros va- 
riam muito entre si, as versões são bem 
distintas, merecendo, cada qual, uma 
explicação. Em alguns casos, as instru- 
ções parecerão bem complicadas. Mas, 
seja como for, não há melhor maneira 
de aprender a usar o editor do que 
sentar-se diante do micro, carregar o 
programa completo e tentar entender 
um comando de cada vez. 


O menu do programa do computador 
Spectrum oferece sete opções. Selecio- 
ne a opção 1, que transforma o teclado 
do micro num piano. 

A disposição das notas é igual à que 
vimos no artigo da página 721..0 dó 
mais grave corresponde à tecla Q; o dó 
médio, à tecla 1, e o dó mais agudo, à 
tecla B. O usuário deve determinar se i 





acrescentar notas à melodia anterior, ou 
iniciar uma nova. Como nada foi com- 
posto ainda, escolha 'S" para começar. 
Defina também a duração de cada no- 
ta, usando <SYMBOL> <SHIFT > 


INSTRUÇÕES 

E MENU 
EXECUÇÃO DA MELODIA 
Me CSe  SEIÇÃO 
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seguido de um número de 1 a 5 (semi- 
colcheia, colcheia, semínima, minima, 
semibreve, respectivamente — quanto 
maior o número, mais demorada é a no- 
ta). Pode-se estabelecer a duração de ca- 
da nota antes de digitá-la e, também, 
corrigi-la após digitar a melodia comple- 
ta, selecionando a opção 4. 

o programa emite os sons à medida 
que as teclas são pressionadas, armaze- 
nando as notas musicais corresponden- 
tes na memória. Depois, pode-se execu- 
tar a melodia completa sempre que se 
desejar através da opção 3. Para modi- 
ficar o andamento da melodia, usa-se 
um número entre 1 e 15 — quanto maior 























o número, mais rápido o andamento. A 
opção 2 possibilita a digitação das no- 
tas por meio de um código simples. As 
doze notas possíveis — C (dó), C * (dó 
sustenido), D (ré), até o B (si) — são nu- 
meradas de 0 a 11, e a pausa recebe o 
código —4. A oitava da melodia é es- 
pecificada por um valor compreendido 
entre 1 e 7, € o número que indica a du- 
ração de cada nota corresponde à sua 
duração teórica. Assim, uma semicol- 
cheia vale 1; uma colcheia, 2; uma s 
mínima, 4; uma mínima, 8 e uma semi- 
breve, 16. Essas durações valem, igual- 
mente, para a pausa. 

O código é muito fácil de usar. Por 
exemplo, a nota dó, segunda oitava, se- 
micolcheia, tem o código 1024; a nota 
si, quarta oitava, semibreve, é 11416. 
Para pausas, — 404 é o intervalo de uma 
semínima. Não se esqueça de que cada 
código tem dois dígitos; assim, uma col- 
cheia vale 02, e não 2. 

Após digitar algumas notas, pressio- 
ne <RETURN> para voltar ao menu; 
selecione a opção 3 para tocar a melo- 
dia introduzida até o momento. 

Se você quiser alterar, apagar ou 
acrescentar algumas notas, selecione a 
opção 4 do menu. Inicialmente, pressio- 
ne D, para selecionar as notas que se- 
rão modificadas. Depois, entre o núme- 
ro das notas e tecle E para editá-las. Pa- 
ra mudar uma nota, digite seu número, 
<RETURN> e seu código. Para inse- 
rir uma nota, aperte X e entre seu nú- 
mero. Caso queira apagar tudo e reini- 
ciar o trabalho, selecione a opção 5. 

Quando estiver satisfeito com a me- 
lodia, grave-a através da opção 6. 

A opção 7 permite recuperar uma 
música da fita cassete. 


Ao executar O programa, um menu 
com nove opções será exibido na tela. 
Comece com a opção 3, para tocar mú- 
sica diretamente no teclado. 

As notas estão dispostas em duas fi- 
leiras, como vimos no artigo da página 
721. O dó menor corresponde à tecla Q; 
o dó médio, à I, e o dó maior, à V. A 
barra de espaço indica uma pausa com 
a duração desejada. O computador re- 
gistrará cada nota que você tocar, mas 
não em tempo real — assim, não impor- 
ta que você demore mais ou menos pa- 
ra teclar uma nota. Também não have- 
rá problema se algum erro for cometi- 
do: é fácil corrigir as notas depois. 

Se você quiser mudar uma oitava an- 
tes de executar uma determinada nota, 
recorra às teclas com setas pará cima e 
para baixo. Para alterar a duração da 
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nota, pressione as teclas com setas para 
a esquerda e a direita. A oitava e a du- 
ração correntes estarão impressas no to- 
po da tela. Enquanto você toca, as no- 
tas vão sendo exibidas com a duração 
e oitava respectivas. 

Depois de experimentar essa manei- 
ra de entrar com as notas, selecione a 
opção 4 (as notas que você tocou per- 
manecem na memória). Ela permite a 
entrada das notas por um processo que 
em certos casos pode ser bem útil. Pri- 
meiro, digite o nome da nota, de “a” 
até ““f”*, para as notas naturais; A, €, 
D, F,G, para acidentes (bemóis são co- 
locados como sustenidos; logo, Bb= 
A etc.),e “p”, para uma pausa. Em 
seguida, entre a oitava — um número 
dela6— ea duração da nota — letras 
w, h,q, e, s, correspondentes a semibre- 
ve, mínima, semínima, colcheia e semi- 
colcheia. Para uma nota pontuada, sim- 
plesmente adicione um ponto no final. 
Por exemplo: AZe. significa nota A (lá 
sustenido), oitava 2, colcheia pontuada; 
c3w significa nota C (dó), oitava 3, se- 
mibreve. 

Entre as notas na ordem que quiser 
e ouça a música quando desejar, selecio- 
nando a opção 7 do menu principal. 

Outras opções do menu são a mudan- 
ça no tempo de execução e a mudança 
geral de oitava (com efeito retroativo) 
— para executá-las, basta que teclemos 
um novo valor. O tempo de execução 
varia de O a 255 e indica a velocidade 
com que as notas são tocadas. Utilizan- 
do as opções Superior e Inferior, você 
pode subir ou descer a oitava de qual- 
quer grupo de notas. 

Para editar a melodia, selecione a op- 
ção 6. Com ela, você lista as notas e 
identifica as que quer alterar. É possi- 
vel escolher entre apagar, inserir, alte- 
rar ou continuar. Experimente cada uma 
dessas opções. Para apagar notas, en- 
tre o número inicial e o número de no- 
tas que deseja eliminar. Para inserir, di- 
gite o número da nota que está antes do 
ponto onde se iniciará a inserção e en- 
tre uma nota por vez. Para alterar uma 
nota, tecle seu número e entre o novo 
conteúdo. 

Finalmente, quando estiver satisfei 
to com a melodia, armazene-a em fita 
com a opção 2 e recupere-a quando qui- 
ser com a opção 1. 
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Ao iniciar a execução do programa, 
um menu com nove opções será exibi- 
do na tela. Comece com a opção 3 para 
tocar música diretamente no teclado. 
Teremos três oitavas disponíveis. 


























As notas estão dispostas -no teclado 
em duas fileiras: Q corresponde ao dó 
da oitava mais baixa; I, ao dó da oitava 
média, e V, ao dó da oitava mais alta. 
A nota A & (A ou lá sustenido) não po- 
de ser obtida com a tecla “* ”, já que es- 
ta não gera nenhum código ASCII que 
identifique o seu pressionamento. As- 
sim, A foi atribuída à tecla '*[””, dei- 
xando uma pequena descontinuidade no 
teclado. A barra de espaço indica uma 
pausa com a duração especificada. 

O computador registrará a nota que 
você tocar, mas não imediatamente, de- 
vido ao tempo necessário para o proce: 
samento das instruções. Portanto, não 
tem nenhuma importância que você de- 
more mais ou menos para teclar uma 
nota. Também não haverá problema se 
algum erro for cometido: será fácil cor- 
rigir as notas mais tarde. 

Caso você queira mudar a oitava an- 
tes de executar uma nota, use as teclas 
com setas para cima e para baixo. Para 
alterar a duração da nota, pressione as 
teclas com setas para a esquerda e a di- 
reita. A oitava mais baixa disponível no 
teclado estará impressa no topo da te- 
la, bem como a duração das notas, que 
vão sendo exibidas à medida que você 
as toca. Para obter uma duração pon- 
tuada, selecione as teclas <INS> e 
<DEL>; para apagar a última nota 
executada, a tecla <CLS>. 

Tendo experimentado essa forma de 
composição, use a tecla <ENTER> e 
volte ao menu principal. Selecione a op- 
ção 4 (as notas que você tocou perma- 
necem na memória). Ela permite a en- 
trada das notas por um processo que, 
em certos casos, pode ser muito útil. 
Primeiro, digite o nome da nota, de 







































































































“a””até “Fº”, para as notas naturais; A, 
C,D,F,G, para acidentes (bemóis são 
colocados como sustenidos; logo, Bb = 
A etc.) e “p”, para uma pausa. Em 
seguida, entre a oitava — um núme- 
rode la8 —e a duração da nota — 
letras w, h, q, €, 8, t, u, corresponden- 
tes à semibreve, mínima, semínima, col- 
cheia, semicolcheia, fusa e semifusa. Pa- 
ra uma nota pontuada, adicione um 
ponto no final, Por exemplo: c8t. sig- 
nifica C (dó), oitava 8, fusa pontua- 
da; Adu significa A (lá sustenido), oita- 
va 4, semifusa. 

Entre as notas na ordem que quiser 
e ouça a música quando desejar, selecio- 
nando a opção 7 do menu principal. 

Outras opções que temos são a mu- 
dança no tempo de execução das notas 
e a mudança geral da oitava. Esta últi- 
ma tem efeito retroativo, alterando a oi- 
tava de notas na memória. Para ambas 
as opções, basta teclar o novo valor. O 
tempo de execução varia de 32 a 255 e 
indica a velocidade com que as notas são 
tocadas, Com as opções Superior e In- 
ferior você pode subir ou descer a oita- 
va de um grupo de notas. 

Para editar a melodia, selecione a 
opção 6, Com ela, você lista as notas 
e verifica o que deseja alterar. E possi- 
vel escolher entre apagar, inserir, alte- 
rar ou continuar. Experimente cada 
uma dessas opções. Para apagar algu- 
mas notas, entre o número da primeira 











































nota e o número de notas que deseja eli- 
minar. Para inserir, digite o número da 
nota imediatamente anterior ao ponto 
onde pretende iniciar a inserção e entre 
uma nota de cada. Para alterar uma no- 
ta, tecle seu número e entre o novo 
conteúdo. 

Finalmente, quando estiver satisfei- 
to com a melodia, armazene-a em fita 
com a opção 2 e recupere-a quando qui- 
ser com a opção 1. 


4452 INPUT "Entre com numero da 
nota - ";NN 
4454 IF (NN<1) 
oTo 4000 
4460 PRINT 
nota ";NN 
4470 PRINT 
4480 INPUT 
a ";Ns 
4490 IF N$="” THEN 
1500 FOR 1=1 TO LEN (NS): TF (N 
S(1)<"0” OR N$(1)>"9”") AND (NS( 
1)<>"-") THEN GOTO 4000 

4510 LET N=VAL (NS) 
4520 TF INT (N/1000)>11 
oTO 4000 

4530 IF N<O THEN GOTO 4590 
4540 LET M=INT (N/100): LET 
M*100 

4550 LET O=M-INT 
O<1 OR 0>7 THEN 
4560 LET M=TNT 
J6 
4570 
N)=M 
1580 GOTO 4000 
4590 LET M=INT 
=0-(N-M4100) 
4600 IF M<>-4 
4610 Goro 4570 
4/00 CLS 

4705 PRINT "Entre com numero da 
nota ANTES”'*"da nova nota a se 
r inserida.”"""(0 para sair)” 


OR NN>ct THEN G 


PRINT "Re-entrando 
PRINT 
"Entre com nova nota 


GoTo 4300 


THEN G 


D=N 


MORADA RR 
GoTo 4000 

(M/10)+(0-1)*12- 
LET E(Z*NN-1)=D 


LET t(22N 


(N/100)+1: LET D 


THEN GOTO 4000 











A7Ã0 INPUT 19 

4735 TF 18-0 THEN GOTO 4000 

4740 IF is>ct+] THEN GOTO 4700 

4745 CLS 

4750 UB 2500 

4755 PRINT 

4760 INPUT "Entre com nova Nota 
“Ns 

4765 IF LEN (N$)=0 THEN GOTO 4 

700 

4770 FOR 1=1 TO LEN (NS): 1F (N 































TRANSCRIÇÃO DE PARTITURAS 
Nem todos conseguem executar 
música simplesmente sentando-se 
diante do micro e usando o editor mu- 
sical como um processador de textos, 
Embora a opção de playback (execução 
da melodia entrada com o auxílio do 
editor) ajude bastante, nosso programa 
não permite representar na tela uma 
partitura com os detalhes de uma apli 
cação mais profissional 
Assim, a solução é recorrer a parti 
turas de músicas de fácil execução pa- 
ra violão, flauta; em órgão eletrônico ou 
piano, e transcrevê-las usando o nos. 
so editor musical 









st)eror 
WS") 
4/72 LET 


OR N$(1)>"9") AND 
THEN GOTO 4700 
N=VAL (NS) 
4774 IE INT (N/1000)>11 
oTo 4700 

4776 TF N<0 THEN 
4778 LET M=INT (N/100): 
-M*100 

4782 LET O=M-INT (M/10)*10: IF 
O<I OR 0>7 THEN GOTO 4700 
4784 LET M=INT (M/10)+(0-1)*12- 
36 

4786 FOR i=ct TO is STEP 
T t(2N(1+1))=t(241): LET 
+1)-1)=t(2%1-1): NEXT à 
4788 LET t(2%18-1)=D: LET 
s)=M 

4790 LET ct=ct+1: Goro 
4792 LET M=INT (N/100)+1 
=0-(N-M*100) 

4794 IF M<>-4 THEN 
4796 GOTO 4786 


(NS 


THEN G 


Goro 4792 
LET D=N 


“1 ER 
t(z*r( 


t(2*5 


4000 
LET D 


Goro 4700 


4800 CLS 

4805 PRINT "Entre com numero da 
nota a ser apagada.”''”"(Q par 
a sair”" 


4830 INPUT de 
4835 TF de=0 THEN 
4840 TF de>ct THEN GOTO 4800 
4845 FOR i=de TO ct: LET t(2%1) 
=t(2*(1+1)): LET t(2%1-1)=E(2%( 
1+1)-1): NEXT à 

4850 LET ct=ct-] 

4855 GOTO 4000 

4900 DATA 3,0,-11,-9,0,-6, 


Goto 4000 








10,1 
4910 DATA 12,9,8,-8,10,0,13,0,1 
5.0 
4920 DATA 0,16,14,2,4,-12,-7,6, 


=S,=1 

4930 DATA 11,-10,7,-3,5 

5000 CLS 

5010 INPUT "DIGITE NOME DO ARQU 
IVO ";F$: LET T(maxnotest+l)=ct: 
SAVE FS DATA T(): RETURN 

6000 INPUT "DIGITE NOME DO ARQU 

“IVO ";FS: LOAD ES DATA T(): LET 


Ct=T(MAXNOTES+1): RETURN 





1440 FOR I=ST TO NN 

1450 PRINT&C, USING" AHH "il; 
1460 AS=N$(I) :BS=LEFTS(AS,1) 
1470 IF B$>="a"AND B$<="q"THEN 
CS=CHRS (ASC(BS)-32)+” "ELSE C$= 
BS+"4” 

1480 IF B$="p” THEN CS="- " 
1490 PRINTHC, CS; 

1500 IF B$<>"p"THEN PRINTE 
ITAVAS”;MIDS (A$S,2,1) ELSE 
+C, STRINGS (11,32); 

1510 PRINTAC,”  ";LES(INSTR(RIS 
+MIDS(A$S,3,1))); 

1520 IF MIDS(AS,4,1)=" 
INT&C,”.” ELSE PRINTAC 
1530 LP=LP+):IF LP=13AND 
ENLP=0:GOSUB940:CLS 

1540 NEXT:GOSUB940 

1550 PRINTO44B, STRINGS (63,32): 
PRINTE480, "PRESSIONE QUALQUER T 
ECLA/MENU" ; :EXEC 36038: RETURN 
1560 cLS 

1570 PRINTEB,"MODO TOCAR NOT 
1580 IF NN=0 THEN RETURN 





"THEN PR 


C=0 7H 





35 APLICAÇÕES 35 


1590 PRINT: INPUT”"INICIO NA NOTA 
(ENTER=1)";ST 

1600 IF ST<=0 THEN ST=1 ELSE IF 
ST>NN THEN ST=NN 

1610 PRINT"TEMPO=";TE 

1620 PLAY"V31;T"+STRS(TE) 

1630 EXEC 46481:FOR I=ST TO NN 
1640 PRINTE256,"TOCANDO NOTA NU 

MERO"; 1 

1650 AS=NS(I) 

1660 BS=LEFTS(AS,1): [E B5="p"TH 

EN 1690 ELSE IF B$>="a” AND BS< 

"THEN P$=CHRS (ASC (B$)-32)+"; 
” ELSE PS=B$+"4" 

1670 PLAY”"O"+MIDS(A$S,2,1)+"L"+L 
28 (INSTR(R1S,MIDS (A$,3,1)))+MID 
S(AS,4,1)+PS 

1680 GoTO 1700 

1690 PLAY"P"+L2S (INSTR(R1I$,MIDS 
(A8,3,1))) 

1700 NEXTI 

1710 RETURN 

1720 CLS 

1730 IF NN=0 THEN RETURN 

1740 PRINTES,"MUDANCA GERAL DE 
OITAVA” 

1750 PRINTE64, "OITAVA SUPERIOR 

OU INFERIOR(S/1)” 

1760 POKE 282,245: INPUT AS 

1770 IF A$="" THEN RETURN 

1780 IF AS<>"S” AND AS<>"I"THEN 
1750 

1790 PRINT"INICIO EM(ENTER=TUDO 
)";: INPUT ST 

1800 IF ST<=0THEN ST=1:EN=NN:GO 

TO1840 

1810 INPUT "FINAL 
)";EN 

1820 IF EN=0 OR ENDNN THEN EN=N 











EM (ENTER=FIM 


N 
1830 IF STT>EN THEN ST=EN 
1840 FOR I=1TO NN 


1850 BS=MIDS(NS(I),2,1) 

1860 IF A$="I"THEN CS$=CHRS (ASC( 
B$)-1):IF C$="0"THEN CS="5" 
1870 IF A$="S”THEN CS=CHRS (ASC( 
B$)+1):IF C$="6"THEN CS="1" 
1880 MIDS(NS(I),2,1)=CS 

1890 NEXT:RETURN 

1900 cLS 

1910 PRINTE4,"CARREGAR MUSICA D 
A FITA” 

1920 PRINT:PRINT"ESTA OPCAO IRA 
APAGAR QUALQUER MUSI 
CA NA MEMORIA -VOCE QUER €C 
ONTINUAR (S/N)”; 

1930 POKE 282,255: INPUT AS 
1940 IF AS<>"S” THEN RETURN 
1950 PRINT:LINE INPUT"NOMEAROQ:” 
:AS 

1960 OPEN "I”",4-1,AS 

1970 INPUT&-1,TS.NS 

1980 NN=VAL (N$) : TE=VAL (TS) 

1990 FOR I=1 TO NN 

2000 INPUTA-1,NS(I) 

2010 NEXT:CLOSE4-1: RETURN 

2020 cLS 

2030 IF NN=0 THEN RETURN 

2040 PRINTES,"SALVAR MUSICA EM 
FITA” 

2050 PRINT:LINE INPUT"NOMEARO: " 
:AS 
2060 
2070 
2080 
2090 
2100 


hay 


1610 
1620 


OPEN "O" ,4-1,AS 

PRINT$-1, STRS (NN) , STRS(TE) 
FOR I=1TO NN 
PRINT&-1,NS(I) 
NEXT:CLOSE4-1: RETURN 


FOR I=SL TO EL 
AS=NS (1) :BS=LEFTS(AS,1) 








1950 INPUT AS:IF A$="" THEN RET 
URN 


1960 IF AS<>"S” AND AS<>"I"THEN 


1940 
1970 LOCATE 4,9: INPUT"INICIO EM 
(ENTER= 1 )";ST 


1980 IF ST<=0 THEN ST=1:EN=NN 
1990 LOCATE 4,10: INPUT"FINAL E 
M (ENTER=FIM )”;EN 


2000 IF EN=0 OR ENDNN THEN EN=N 
N 

2010 IF ST>EN THEN ST=EN 

2020 FOR I=ST TO EN 

2030 B$=MIDS(NS(I),2,1) 

2040 IF AS="I”" THEN CS=CHRS (ASC 
1630 IF B$>="a"AND B$<="9"THEN 
CS=CHRS (ASC (B$)-32)+" "ELSE € 
S=BS+"4 " 

1640 IF B$="p” THEN CS="- E 
1650 C$=" "+cs 


1660 IF B$<>"p"THEN C$=CS+"OITA 
VA 4" +MIDS(AS,2, 1)ELSE CS=CS+ST 
RINGS (9,32) 
1670 cs=c8+" 
DS(A$,3,1))) 
1680 IF MIDS(AS,4,1)="."THEN CS 
=C$+" . "ELSE CS=CS+" * 

1690 IF C=1 THEN LOCATE 5,LP+5: 
PRINT USING" 444" ;I;: PRINT CSELS 
E LPRINT USING" ;I;:LPRINT C 
s 

1700 IF RT<>0 THEN RETURN 

1710 LP=LP+1:TF LP=13ANDC=1 THE 
N LP=0 :GOSUB 1010:CLS 

1720 NEXT:GOSUB 1010 

1730 LOCATE 2,18:PRINT"APERTE Q 
UALQUER TECLA-MENU PRINCIPAL” 
1740 QS=INKEYS:IF QS="" THEN 17 
40 

1750 RETURN 

1760 CLS:COLOR 1,10:LOCATE 8,1: 
PRINT"MODO -TOCAR NOTAS” 

1770 ST=1:IF NN=0 THEN RETURN 
1780 LOCATE 4,5: INPUT"INICIO NA 
NOTA (ENTE! )J";ST 

1790 IF ST<=0 THEN ST=1 ELSE IF 
ST>NN THEN ST=NN 

1800 LOCATE 4,7:PRINT"TEMPO DE 
EXECUÇÃO=" ; TE 

1810 PLAY"VIST"+STRS(TE) 

1820 FOR I=ST TO NN 

1830 LOCATE 6,12:PRINT"TOCANDO 
NOTA:";1 

1840 AS=NS(I) 

1850 BS=LEFTS(AS,1):IF B$="p"TH 
EN 1880 ELSE IF B$>="a"ANDBS<=" 
9" THEN PS=CHRS (ASC(BS)-32)+" "E 
LSE PS=BS+"4" 

1860 PLAY"O"+MIDS(AS,2,1)+"L"+L 
25 (INSTR(RIS,MIDS (AS,3,1)))+PS+ 
MIDS (AS,4,1) 

1870 GoTO 1890 

1880 PLAY"R"+L2S(INSTR(RIS,MIDS 
(A$,3,1))) +MIDS (AS,4,1) 

1890 NEXT I 

1900 RETURN 

1910 CLS:COLOR 1,3:ST=1:EN=NN 
1920 IF NN=0 THEN RETURN 

1930 LOCATE 7,1:PRINT"MUDANÇA G 
ERAL DE OITAVA” 

1940 LOCATE 0,6:PRINT"OITAVA SU 
PERIOR OU INFERIOR(S/1)"; 


"+LES (INSTR(R1$S,MI 








(B$)-1):IF CS="0" THEN CS="1" 
2050 IF A$="S” THEN CS=CHRS(ASC 
(B$)+1):IF C$="9" THEN CS="8" 
2060 MIDS(NS(I),2,1)=CS 

2070 NEXT:RETURN 

2080 CLS:COLOR 15,6 

2090 LOCATE 5,1:PRINT"CARREGAR 
MUSICA DO GRAVADOR” ; 

2100 LOCATEI2,3:PRINT"ATENÇÃO! ! 


2110 LOCATE 4,4:PRINT” ESTA OP 
ÇÃO IRA APAGAR 2 
UALQUER MUSICA NA MEMÓRIA” 

2120 LOCATE 4,7:INPUT"VOCE QUER 
CONTINUAR? (S/N) ";AS 

2130 IF AS<>"S" THEN RETURN 
2140 LOCATE 4,10:PRINT"aperte L 
OAD no gravador” 

2150 LOCATE 4,12:LINE INPUT"NOM 
EARQ:";AS 

2160 OPEN "CAS:AS” FOR INPUT AS 
+ 


2170 
2180 
2190 
2200 
2210 
2220 


INPUT 41,NN,TE 

FOR I= 1 TO NN 

INPUT 41,NS(I) 
NEXT:CLOSE41: RETURN 
CLS:COLOR 15,6 

LOCATE 8,1:PRINT"SALVAR MU 
SICA EM FITA” 

2230 LOCATE 4,6:PRINT"aperte SA 
VE no gravador” 

2240 LOCATE 4,8:LINE INPUT"NOME 


ARQ:";AS 

2250 OPEN "CAS:AS” FOR OUTPUT A 
se 

2260 PRINT 41,NN, TE 

2270 FOR I= 1 TO NN 

2280 PRINT 41,NS(I) 

2290 NEXT:CLOSE 41:RETURN 































































PARA O MSX 





O 
SPRITES EM LOGO 


Algumas versões mais poderosas do 
LOGO permitem a programação de 
sprites. Seguindo as instruções deste 
artigo, os usuários do MSX poderão gerar 
e controlar quarenta figuras diferentes. 











Em artigos anteriores sobre a lingua- 
gem LOGO, vimos como desenhar na 
tela com a tartaruga, um cursor gráfico 
que pode ser ativado ou desativado por 
meio de comandos primitivos. 

Como você deve ter notado, a elabo- 
ração de uma figura mais complexa de- 
mora um tempo razoavelmente longo, 
o que torna impossível, por exemplo, 
desenvolvermos um videogame com ani- 
mação gráfica — tarefa simples em BA- 
SIC ou outra linguagem imperativa. Al- 
gumas versões do LOGO, porém, per- 
mitem a geração e utilização de sprites. 

Nos artigos das páginas 188 e 808, vi- 
mos como trabalhar com sprites no 
MSX, única máquina nacional que pos- 
sui esse recurso implementado em hard- 
ware. O Spectrum, o TRS-Color, o Ap- 
ple e o TK-2000 têm comandos especiais 
para definir blocos gráficos (UDG) e 
usá-los em animações rápidas. Mas es- 
ses micros não dispõem de sprites “*ver- 
dadeiros”” — ou seja, não contam com 
controle de hardware (pelo Video Dis- 
play Processor) que garanta a movimen- 





tação dos sprites na tela em diferentes 
planos, destacando-os ou ocultando-os 
conforme os critérios que determinam 
a prioridade de uns sobre os outros. 
Aproveitando os recursos do MSX, 
o HotLOGO, versão lançada no Brasil 
pela Sharp para computadores dessa Ii- 
nha, inclui entre suas propriedades a 
programação de sprites verdadeiros. 
Algumas versões de LOGO para o 
Apple e o TRS-Color também fazem 
uso de sprites. No exterior, a linha Com- 
modore 64 tem poderosos instrumentos 
para a programação de sprites multico- 
loridos. Mas, em todas essas máquinas, 
os sprites não são controlados por hard- 
ware, como nos micros da linha MSX. 


ASA 


Existem doistipos de sprites em Hot- 
LOGO: os pré-programados e os pro- 
gramáveis pelo usuário. Cada um deles 
recebe um número inteiro, entre O e 59. 

Os sprites pré-programados, numera- 





dos de O a 9 e de 36 a 59, são matrizes 
de 16 x 16 pixels contendo figuras que 
o usuário não pode mudar. O acesso a 
eles é dado pelo comando MUDEFIG, 
seguido do número do sprite. 


As figuras de O a 9 são: 


O circulo 5 foguete 

1 coração 6 tijolo 

2 gato 7 helicóptero 
3 cachorro 8 locomotiva 
4 caminhão 9 vagão 


Os sprites numerados de 36 a 59 re- 
presentam tartarugas em diversos ângu- 
los e posições. Todos aceitam os mes- 
mos comandos e podem ser movimen- 
tados simultaneamente na tela. Os spri- 





























tes fixos (0 a 9), porém, não mudam de 
orientação, como ocorre com as tarta- 





SPRITES PROGRAMÁVEIS 


Os sprites numerados de 10 a 35 po- 
dem ser programados pelo usuário, 

O primitivo utilizado para desenhar 
um sprite novo na tela é muito simples: 
chama-se EDFIG (edita figura), e deve 
indicar o número do sprite a ser criado 
ou modificado. Quando digitamos esse 
comando, a tela fica em branco e apa- 
rece um cursor piscando no canto supe- 
rior esquerdo. Podemos movimentá-lo 
em qualquer direção, por meio das te- 
clas de controle. Para acender um pixel 
(bit correspondente, na matriz do spri- 
te), pressiona-se a tecla de espaço no 
ponto onde estiver o cursor. Para apa- 
gá-lo, pressiona-se a mesma tecla sobre 
esse ponto. 

Se você quiser sobrepor uma grade à 
tela gm branco, a fim de visualizar me- 
lhor o padrão do desenho, pressione as 
teclas <CTRL> e <K>. 

Depois de criar ou modificar a figu- 
ra a seu gosto, tecle <ESC>: ela será 
armazenada na memória, sob o núme- 
ro indicado no comando EDFIG. Se não 
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SPRITES FALSOS 
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quiser guardar a figura que está editan- 
do, tecle <CTRL> e <STOP>. 


ANIMAÇ, Tal 


Na produção de animações gráficas 
com sprites, usam-se os comandos PARA- 
FRENTE, PARATRÁS, PARADIREITA 
e PARAESQUERDA para mover a figu- 
ra de um lado a outro. Por exemplo: 





RG 
MUDEFIG 7 

USENADA p 

PARAFRENTE 20 

ESPERE 300 

PARADIREITA 90 

PARAFRENTE 90 

ESPERE 300 

PARATRAS 30 

PARADIREITA 90 PARAFRENTE 50 


O helicóptero (sprite pré-programado 
7) parecerá levantar vôo, esperar um 
momento, voar para a direita, subir 
mais um pouco e, por fim 

Para simular certas ações — como 
um homem correndo —, podemos usar 
dois ou mais sprites parecidos, mostran- 
do a figura em diferentes estágios do 
movimento. O comando MUDEFIG se 
encarregará de alterná-los, enquanto se 
provoca um deslocamento na tela. 





UM NOVO SPRITE 








Como funciona um sprite? 

A característica fundamental de um 
sprite é a sua velocidade. Aliás, é exa 
tamente esta a origem do nome: spri- 
te, em inglês, designa um pequeno 
duende que, segundo a lenda, corre co 
mo o vento 

Outra característica do sprite é a sua 
capacidade de interpenetração, ou se 
ja, se duas figuras estiverem ocupan- 
do a mesma área de vídeo, aquela que 
for de menor prioridade dará a impres- 
são de estar passando "por trás” da 
outra. 

Teoricamente, pode-se reproduzir 
uma “família” de sprites através de 
software, mas eles não serão suficien- 
temente velozes. Um sprite baseado 
em hardware, no entanto, consegue ter 
velocidade, pois, como é o caso dos 
micros da linha MSX, o vídeo dispõe de 
um rapidíssimo processador, que cui- 
da de todos os detalhes do funciona- 
mento das figuras, sem onerar o pro 
cessador central. 














COMPRESSÃO 
DE TEXTOS (3) | 
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Agora que você já sabe como comprimir 
e descomprimir textos, ponha o 
programa para funcionar e observe 

seu desempenho no desenvolvimento 
de um jogo de aventura. 


Nos artigos das páginas 1332 e 1404, 
analisamos diversos algoritmos destina- 
dos à compressão de textos. Não expli- 
camos, porém, como utilizar esses pro- 
gramas no contexto de um jogo de aven- 
tura. Como você deve se lembrar, nos- 
so objetivo inicial era reduzir o espa- 
ço de memória ocupado por uma aven- 
tura desse tipo, permitindo a progra- 
mação de um jogo mais complexo e 
extenso. 

Neste artigo, examinaremos as técni- 
cas de compressão e descompressão de 
textos aplicadas ao desenvolvimento de 
um jogo de aventura. Usaremos o algo- 
ritmo que demonstrou a maior eficiên- 
cia de compressão, com a máxima sim- 
plicidade de programação: a técnica de 
compressão de dois códigos por byte, 
baseada na frequência dos caracteres no 
texto. Como vimos, esse algoritmo po- 
de ser programado em BASIC sem difi- 
culdades, e é razoavelmente rápido. 


[Ja] o A a o 


Em uma série de artigos de Progra- 
mação de Jogos (páginas 208, 226, 270, 
306 e 394), tratamos das principais téc- 
nicas de desenvolvimento de aventuras 
em BASIC. Com um número mínimo de 
alterações no programa então forneci- 
do, você poderá empregar as rotinas de 
compressão e descompressão de textos, 
economizando uma quantidade razoá- 
vel de memória. 

Se você não armazenou o programa 
mencionado, digite-o agora, acompa- 
nhando as listagens dadas nos sucessi- 
vos artigos. Entretanto, cada vez que en- 
contrar uma mensagem tal como: 

345 PRINT "TIJOLOS SAO MUITO 


PESADOS, SEU BRAÇO DEVE ESTAR 
DOENDO.” 

















substitua-a por outra mais curta, ape- 
nas para lembrar-se do que deve ser de- 
finido ou impresso ali. Por exemplo: 


345 PRINT "TIJOLO PESADO” 


Procedendo assim, você poderá tes- 
tar se o programa completo de aventu- 
ras está funcionando bem, sem gastar 
muito tempo digitando mensagens ex- 
tensas, que depois serão retiradas do 
programa principal. 

Quais são as mensagens e frases que 
admitem compressão? Em um jogo de 
aventuras, utilizam-se doze tipos prin- 
cipais de texto alfanumérico: 


- nomes de lugares (por exemplo: 
HALL DE ENTRADA); 

- mensagens de localização (VOCE ES- 
TA NO HALL DE ENTRADA); 

- verbos (NADAR); 

- nomes de objetos (REVOLVER); 

- mensagens de identificação de objeto 
(VOCÊ PEGOU UM REVOLVER); 

- mensagens de advertência (ESTÁ 
MUITO ESCURO PARA VER AS 
SAÍDAS); Ê 

- mensagens de erro (ISTO NÃO PODE 
SER ESVAZIADO); 

- consequências de ações do jogador ou 
do programa (exemplo: AS BOLI- 
NHAS SE ESPALHARAM PELO 
CHÃO); 

- perguntas ao jogador (QUER JOGAR 
NOVAMENTE?); 

- frases comuns, em conjunto com 




















m TIPOS DE MENSAGEM PROGRAMA DE 
E TEXTO DECODIFICAÇÃO 

m COMO ADAPTAR SEU E DE QUATRO EM 
JOGO DE AVENTURA QUATRO NIBBLES 

n ALISTA-MESTRE O PROGRAMA EM AÇÃO 





outras mensagens (VOCE PEGOU); 
mensagens de ajuda (VERIFIQUE SE 
ALGUMA PORTA ESTÁ ABERTA); 
instruções do jogo. 


Os jogos de aventuras dificilmente 
contêm todos esses tipos de texto. De- 
pois de verificar quais deles estão pre- 
sentes, você deverá decidir se vale a pe- 
na comprimi-los. Listas de nomes cur- 
tos (objetos e locais, por exemplo) não 
devem ser comprimidas: o número de 
bytes economizado possivelmente não 
compensará os bytes de código de pro- 
grama gastos para acessar o texto com- 
primido. Todos os outros tipos de tex- 
to (sobretudo as instruções) podem e de- 
vem ser comprimidos, desde que tenham 
duas ou mais palavras: isso levará a um 
ganho real de espaço. 

Para localizar as mensagens que se- 
rão comprimidas, o melhor é tirar uma 
listagem em impressora e marcar todos 
os pontos em que elas ocorrem. Em se- 
guida, faça uma lista das mensagens, in- 
dicando os números das linhas do pro- 













grama onde elas ocorrem. Agrupe as 
mensagens segundo o seu tipo: primei- 
ro as mensagens de localização, depois 
as de identificação de objetos encontra- 
dos etc. Deixe as instruções para o fim. 
Isso facilitará a reprogramação do jo- 
go de aventura e tornará menos cansa- 
tiva a “'caçada”” aos erros cometidos. 





Tendo todos esses dados, digite no 
computador um programa em BASIC 
constituído apenas de linhas DATA, 
com as mensagens que serão comprimi- 
das. Cada mensagem deve ficar em uma 
linha DATA separada. 

Preparamos essa listagem para o jo- 
go de aventura publicado em INPUT. 
Ela serve para todos os micros, e come- 
ça na linha 5000. Em algumas máqui- 
nas é possível digitar o texto em letras 
minúsculas e a acentuação correta, mas 
não o faça. Isso é importante, pois, co- 
mo vimos nos artigos anteriores, empre- 
garemos um código reduzido de repre- 
sentação de caracteres, baseado em sua 





a a 
















É possível comprimir sons e melodias 
em jogos de aventuras? 

Existem técnicas bastante eficientes 
para a compressão de melodias, mas 
os algoritmos usados são extremamen- 
te especializados. Uma técnica muito 
simples pode ser empregada, entretan- 
to, pelos usuários dos computadores 
TRS-Color e MSX: ela consiste em 
comprimir a sequência de comandos 
usados para programar uma melodia 
como se fosse um texto (variável 
string), e depois descomprimi-la no mo- 
mento de tocar a melodia. 















fregiiência no texto — diferente, portan- 
to, do ASCII. Como a eficiência de 
compressão só é obtida se usarmos um 
máximo de 30-35 caracteres nesse códi- 
go, trabalharemos apenas com as letras 
maiúsculas e poucos caracteres de pon- 
tuação. 


ES asaalá Shy 


5000 DATA "VOCE ESTA DO LADO DE 
FORA DE UM GRANDE PREDIO” 

5010 DATA "VOCE ESTA A BEIRA DE 
UM GRANDE RIO” 

5020 DATA "VOCE ESTA 
STA PETRIFICADA” 
5030 DATA "VOCE ESTA 
EMPOEIRADA” 

5040 DATA "VOCE ESTA 
ESCURA” 

5050 DATA "VOCE ESTA EM 
HO ENLAMEADO” 

5060 DATA "VOCE ESTA 
DA CIDADE OCULTA” 
5070 DATA "VOCE ESTA NO 
ENTRADA” 
5080 DATA 
5090 DATA 
5100 DATA 
LOUCAS” 
5110 DATA 
TRONO” 
5120 DATA 
RA VER AS SAIDAS” 

5130 DATA "COMO VOCE NAO TEM NA 
DA QUE POSSA SER CONFISCADO, EL 


NUMA FLORE 
NUMA SALA 
NUMA SALA 
UM ATAL 
NA ENTRADA 
HALL DE 
"VOCE 


"VOCE 
"VOCE 


ESTA NO 
ESTA NO 
ESTA NO 


PATIO” 

JARDIM” 
GUARDA- 
"VOCE 


ESTA NA SALA DO 


"ESTA MUITO ESCURO PA 


E O PRENDE NUMA MASMORRA IMUNDA 


5140 DATA "DESCULPE, VOCE NAO P 
ODE SEGUIR NESSA DIRECAO” 

5150 DATA "VOCE NAO PODE LARGAR 
O QUE NAO TEM” 
5160 DATA "DESCULPE, 
AJUDAR AGORA” 

5170 DATA "TIJOLOS SAO MUITO PE 
SADOS, SEU BRACO DEVE ESTAR DOE 
NDO” 

5180 DATA "JA ESTA ACESA” 

5190 DATA "ISTO NAO PODE SER ES 
VAZIADO” 

5200 DATA "AS BOLINHAS SE ESPAL 
HARAM PELO CHAO” 

5210 DATA "NADAR AONDE ?7* 
5220 DATA "QUE VERGONHA, 
E AFOGOU !” 

5230 DATA "VOCE SE MOLHOU TODO” 
5240 DATA "VOCE ACHOU UM REVOLV 
ER” 

5250 DATA 


NAO POSSO 


VOCE S 


"NADA ACONTECE” 


5260 DATA "VOCE NAO PODE PUXAR 
ISTO” 
5270 DATA "VOCE CAIU DENTRO DO 
VASO E FOI EMBORA COM A DESCARG 
A! 
5280 DATA "PARABENS ! VOCE COMP 


LETOU A TAREFA !” 

5290 DATA "FIM DO PROGRAMA DE A 

VENTURAS” 

5300 DATA "QUER JOGAR NOVAMENTE 
(S/N) ?” 

5310 DATA "HA UM SACO DE BOLAS 

DE GUDE AQUI” 

5320 DATA "TEM UM TIJOLO NO CHA 

o” 

5330 DATA "HA UMA CORRENTE PEND 

URADA SOBRE O TRONO” 

5340 DATA "TEM UM REVOLVER NO €C 

HAo” 

5350 DATA "UM OLHO CRAVEJADO DE 
BRILHANTES ESTA NO CHAO” 

5360 DATA "VOCE ESTA DIANTE DE 

UMA LAMPADA” 

5370 DATA "DE REPENTE SURGE UM 

COLETOR DE IMPOSTOS” 

5380 DATA "EU NAO SEI COMO” 

5390 DATA "VOCE PEGOU” 

5400 DATA "NAO ESTA AQUI” 

5405 DATA "PRESSIONE QUALQUER T 

ECLA PARA CONTINUAR...” 

5410 DATA "INSTRUCOES” 

5420 DATA "DEVIDO A UM COLAPSO 

FINANCEIRO, VOCE TEVE QUE DEIXA 

R O PAIS. SEUS PROBLEMAS VAO TE 

RMINAR QUANDO VOCE ENCONTRAR O 

LEGENDARIO OLHO CRAVEJADO DE BR 

ILHANTES DE UM TOTEM INCA.” 

5430 DATA "DEPOIS DE TRAZE-LO, 

VOCE TERA QUE ENCONTRAR A SAIDA 
CUIDADO COM O COLETOR DE IMPO 

sTOS 1!” 


5440 DATA "x" 


Nesse programa, foram codificados 
estes tipos de texto (com suas linhas): 


5000 a 5110: mensagens de localização; 
5120 a 5260: mensagens de advertência e 
erro; 

5270 a 5370: consegiiências de ações; 

5380 a 5405; frases comuns e comandos; 
5410 a 5440: instruções do jogo. 





Observe que só excluimos as listas de 
objetos, verbos e locais. As linhas com 
instruções são as mais longas (cuidado 
para não ultrapassar 255 caracteres), 
pois isso facilita seu posterior uso. 

Depois de digitar o programa, arma- 
zene-o em fita ou disco. 


[ego jiid ie 


A técnica de compressão estatística 
utiliza um código baseado na lista dos 
caracteres mais frequentes no texto. Ca- 
da código ocupa um nibble (ou seja, 
quatro bits), e dois nibbles são compri- 
midos em um byte. Os quinze caracte- 
res mais comuns têm códigos de um nib- 
ble (um número de 1 a 15). Os quinze 
caracteres seguintes, na ordem de fre- 
qiiência, têm códigos de dois nibbles 
(um 0, seguido do código de 1 a 15); os 
próximos quinze têm códigos de três 
nibbles (dois 0, seguidos de um código 
dela 15) e assim por diante. Em geral, 
os quinze caracteres mais frequentes 
correspondem a 80% ou mais de todo 
o texto, e é por isso que se obtém uma 
compressão em torno dos 50%. 

Se usarmos uma lista dos caracteres 
mais frequentes em textos em português, 
conseguiremos uma boa eficiência de 
compressão, mas não a ideal. Para al- 
cançar o nível máximo de eficiência, de- 
vemos usar a ordenação de caracteres 
encontrada no próprio texto. Se você 
quiscr determiná-la, siga estas etapas: 








- carregue no computador as linhas DA- 
TA com todas as mensagens; 

- acrescente as linhas do programa de 
contagem de letras fornecido no pri- 
meiro artigo da série (página 1332); 

- rode o programa e anote o resultado. 


Para poupar trabalho ao leitor, pre- 
paramos a lista de fregiência de carac- 
teres no texto da aventura de INPUT 
(artigo da página 208 e seguintes). 









branco 248 
176 
173 
163 
83 
79 
73 
68 
67 
64 
57 
47 
47 
42 
38 
33 


O primeiro conjunto de quinze carac- 
teres (K$(1)) é formado por: branco, 
A,E,O,S,R,D,C,N,T,U,L,M,V e L. Os 
demais caracteres fazem parte, portan- 
to, dos conjuntos seguintes. 

De posse dessa lista, podemos escre- 
ver um pequeno programa para testar 
se a compressão e a descompressão es- 
tão funcionando com os textos de exem- 
plo. Carregue novamente na memória 
somente as linhas DATA anteriores, e 
adicione este programa: 


numa é] ny 


10 DIM FS(100),K$(3) 

20 K$(1)=" AEOSRDCNTUIMVL” :K$(2Z 
)="PHGQBFJ,.!-?XZ(":K$(3)-")/" 
180 PRINT "CODIFICANDO...” 

190 1=0:K=1 

200 READ L$:IF L$="a" 
230 

210 GOSUB 710:1= 
215 PRINT I;LS 
220 GOTO 200 


- Emuoam 
mm 
vorty 
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PRENDA 
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THEN GOTO 


I+1:FS(I)=X$ 


230 NL=I 

240 PRINT:INPUT "NUMERO DA MENS 
AGEM ";I 

242 IF 1=0 THEN GOTO 300 


245 IF I<l OR I>NL THEN PRINT * 
*** NAO EXISTE” :GOTO 240 

250 LS=FS(I):GOSUB 870 

290 GOTO 240 


300 END 


Para os computadores das linhas 
TRS-80 e TRS-Color, adicione a linha: 


5 CLEAR 2000 


10 DIM £$(100),k$(3,15) 
20 LET k$(1)=" AEOSRDCNTUIMVL” : 


LET kS(2)="PHGQBFJ, .!-?XZ(":LET 
k$(3)=")7" 
180 PRINT 


”"CODIFICANDO... 





200 READ LS:IF L$="*" THEN GOTO 
230 

210 GOSUB 710:LET i=1+1:LET £S( 
1)=x$5 

215 PRINT isLS 

220 GoTO 200 

230 LET nL=I 


240 PRINT: INPUT "NUMERO DA MENS 


AGEM ";i 

242 IF 1=0 THEN GOTO 300 

245 IF i<l OR i>nL THEN PRINT * 
*** NAO EXISTE” :GOTO 240 

250 LET L$=f$(i):GOSUB 870 

290 GoTo 240 

300 STOP 


As sub-rotinas que começam nas li- 
nhas 710 (codificação) e 870 (decodifi- 
cação) podem ser copiadas integralmen- 
te do programa listado no primeiro ar- 
tigo, para os computadores respectivos. 

A linha 20 do programa define os três 
conjuntos de códigos de caracteres. O 
laço formado pelas linhas k80 a 220 
comprime o texto, lendo-o linha por li- 
nha em DATA e colocando o resultado 
no conjunto F$ (uma mensagem por li- 
nha). A sub-rotina de codificação é cha- 
mada em 210. 

Finalmente, as linhas 240 a 290 soli- 
citam ao usuário o número da mensa- 
gem que deseja imprimir. Digite O, se 
quiser interromper o programa. 





mana (é) CS) ry 


Vamos agora desenvolver dois pro- 
gramas separadamente. O primeiro fun- 
ciona como o programa anterior, servin- 
do para comprimir todas as mensagens 
e instruções. O resultado, gravado em 
fita ou disco, em um arquivo sequencial, 
será depois carregado pelo programa de 
jogo propriamente dito. Assim, a r 
na que executa a compressão não pri 
sa ser incluída no programa do jogo. 
Neste se introduzem apenas as rotinas 
responsáveis pelo carregamento, des- 
compressão e impressão. 

O segundo programa compõe-se de 
duas rotinas que podem ser acrescenta- 
das ao jogo de aventura. Uma delas lê 
o arquivo seqiencial com o texto com- 













































ACENTUANDO TEXTOS 
COMPRIMIDOS 

Para os perfeccionistas da progra- 
mação, é frustrante não poder usar ca- 
racteres acentuados em um texto que 
será comprimido pelo algoritmo esta- 
tístico discutido neste artigo. Mas, em 
geral, a falta de acentos não dificulta 
a leitura do texto. 

Entre as poucas exceções destaca- 
se a palavra é, que, sem acento, pode 
impedir a compreensão do texto. Para 
evitar esse problema sem aumentar o 
número de caracteres do conjunto uti- 
lizado, recorra ao apóstrofo: coloque- 
o logo após a letra que deve ter acen- 
to agudo, sem deixar espaço — o re- 
sultado será satisfatório. 


primido; a outra efetua a descompres- 
são quando solicitado. Explicaremos 
mais adiante como usá-las. 

No programa-exemplo, o texto com- 
primido foi armazenado em um conjun- 
to F$. Portanto, bastaria escrever uma 
sub-rotina de gravação desse conjunto 
(com texto comprimido) e, depois, uma 
sub-rotina para lê-lo, de volta à memó- 
ria, no programa de jogo. 

Parece tudo muito simples, mas há 
um senão: trabalhando com conjuntos 
alfanuméricos, como o FS$, no progra- 
ma que utilizará o texto comprimido, 
ocuparemos um espaço de memória, 
que ultrapassará, em tamanho, o exigi- 
do pelo texto original, descomprimido. 

Devido ao modo como o BASIC tra- 
ta cadeias de caracteres (string), é difi- 
cil evitar esse problema. Usaremos, as- 
sim, um conjunto numérico T% para 
armazenar os bytes comprimidos. Os 
dois bytes gerados pela compressão de 
cada quatro nibbles serão armazenados 
em um conjunto de To, pois uma va- 
riável inteira (em todos os computado- 
res, exceto o Spectrum) ocupa dois 
bytes, e pode armazenar um número en- 
tre — 32768 e 32767. O tamanho de T% 
será igual ao número de caracteres com- 
primidos (no exemplo anterior, 447 bytes). 

Para localizar o início de cada men- 
sagem nessa segiiência continua de có- 
digos, temos que criar um segundo con- 






junto AJ, que conterá os apontadores, 
ou índices de T%. O comprimento de 
AY será igual ao número de mensagens 
mais 1 (no nosso exemplo, 46). 

Se dimensionamos To e Ao em seu 
limite, obteremos o máximo de econo- 
mia de espaço de memória. 

A rotina de codificação é a seguinte 
(o programa de teste vem depois): 





700 
710 
720 
730 
740 
750 
755 


REM - ROTINA DE CODIFICACAO 
N=0:LN=0 

FOR J=1 TO LEN(L$) 
CS=MIDS(LS,J,1) 
P=INSTR(KS(K) CS) 
N=N+1:C$(N)=P:LN=N 

IF N<4 THEN GOTO 775 


aa 


aÃ 


49 PROGRAMAÇÃO DEJOGOS 49 


760 T2(NC)=(CE(1) OR (16*C%(2) 
))+256*(C2(3) OR (16*C8(4)))- 


32768 

765 NC=NC+1:N=0 

775 IF P=0 THEN K=K+1:GOTO 740 
776 K=1 

780 NEXT J 

785 IF LN=4 THEN RETURN 

790 FOR J=LN+1 TO 4:Ct(J)=1 
792 NEXT J 

795 T$&(NC)=(C$(1) OR (16*C%(2) 


))+256*(C2(3) OR (16*C8(4)))- 
32768 
796 NC=NC+1: RETURN 


Para executar a rotina nos micros 
compatíveis com o Apple, acrescente: 


A RE. 


A 







tó 





740 FOR P=1 TO 15:IF CS=MIDS(KS 
(K),P,1) THEN GOTO 750 
745 NEXT P:P=0 


A sub-rotina é igual à apresentada no 
artigo anterior, com uma diferença: os 
nibbles são armazenados de quatro em 
quatro, no conjunto C%, e comprimi- 
dos pelas linhas 760 e 795. O valor 32768 
é diminuído do byte assim comprimi- 
do, para que seu conteúdo fique entre 
— 32768 e 32767. 

Segue-se o programa principal: 


10 DIM K$(3),T3(450),A%(46) 

15 DIM N$(2),Ct(4) 

20 K$(1)=" AEOSRDCNTUIMVL” :K$(2 
2)="PHGQBEJ, .!-?7XZ2(":K$(3)=")/" 
180 PRINT "CODIFICANDO...” 

190 1=0:K=1:NC=1 

200 READ L$:IF L$="*” THEN GOTO 
230 
205 
210 
215 
220 
230 
300 
310 
320 





I=I+1:At(I)=NC 

GOSUB 710 

PRINT I;AS(I);LS 

Goro 200 
NL=1:A$(1+1) =NC 

INPUT "GRAVAR (S/N) ";RS 
IF R$="S” THEN GOSUB 400 
END 


Para os computadores das linhas 





TRS-80 e TRS-Color, acrescente a linha: 


5 CLEAR 2000 


A sub-rotina para o armazenamento 
em arquivo sequencial começa na linha 
400, e grava os conjuntos T (com os có- 
digos comprimidos) e A (apontadores): 





400 REM - ROTINA DE GRAVACAO 
410 INPUT "NOME DO ARQUIVO” ;NS 
420 OPEN "0”,4-1,NS 

430 PRINT4-1,NL,NC 

440 FOR I=1 TO NL+1:PRINT4-1,A8 
(I):NEXT 1 

450 FOR I=1 TO NC:PRINT4-1,TI(I 
J:NEXT I 

460 CLOSE4-1:RETURN 





400 REM - ROTINA DE GRAVACAO 


410 INPUT "GRAVADOR PRONTO ";NS 
430 PRINT&-1,NL,NC 

440 FOR I=1 TO NL+1:PRINT4-1,A? 
(1) :NEXT 1 

450 FOR I=1 TO NC:PRINT4-1, TI 
J:NEXT I 

460 RETURN 


Psy 


400 REM - ROTINA DE GRAVACAO 
410 INPUT "NOME DO ARQUIVO” ;NS 
420 OPEN 
As 4 
430 PRINT4L,NL,NC 


"CAS:"+NS FOR OUTPUT 


440 FOR I=1 TO NL+1:PRINT&1,A? 
(1) :NEXT T 

450 FOR 1=1 TO NC:PRINT$1,TE(I 
J:NEXT I 

460 CLOSE41:RETURN 


[eé] [5] 


400 REM - ROTINA DE GRAVACAO 
410 Nº(1)=NL:N$(2)=NC 

420 INPUT "GRAVADOR PRONTO ";N$S 
430 STORE N?:STORE At:STORE Tt 
460 RETURN 


Para executar o programa completo 
de compressão, acrescente ao final as li- 
nhas DATA. O computador executará 
toda a tarefa automaticamente. À me- 
dida que codifica as linhas, o programa 
as exibe na tela, perguntando se o usuá- 
rio deseja gravar o resultado. Se a res- 
posta for S, os conjuntos A e T serão 
armazenados para uso posterior pela ro- 
tina de decodificação. 


No Spectrum não há tratamento se- 
parado para arquivos sequenciais em fi- 
ta, a não ser que se disponha de um Mi- 
crodrive (não existente no Brasil). Por 
isso, O programa para essa máquina 
apresenta uma abordagem diferente dos 
demais micros. 





Inicialmente, carregue o jogo de 
aventura completo e acrescente as linhas 
abaixo (renumere-as para compatibilizar 
com o programa do jogo, se isto se fi- 
zer necessário): 


10 DIM k$(3,15),t (450) ,a(46) 
15 DIM c(4) 

20 LET kS(1)=" 
LET kS(2)="PHGQBEJ, . 
k$(3)=")7" 

190 LET 1=0:LET k=1:LET nc=1 
200 PRINT "ENTRE A MENSAGEM ";: 
LINE INPUT L$:IF L$="*" THEN GO 
TO 230 

205 LET 1=1+1:LET a(1)=nc 

210 GOSUB 710 

215 PRINT ija(i)i;LS 

220 GoTO 200 

230 LET nl=1:LET a(1+1)=nc 

240 STOP 


O programa principal pedirá ao usuá- 
rio para entrar as mensagens pelo tecla- 
do, uma de cada vez. Quando chegar à 
última, responda com um asterisco, pa- 
ra assinalar o fim. 

Usaremos um conjunto numérico T 
para armazenar os bytes comprimidos. 
Os dois bytes gerados pela compressão 
de cada quatro nibbles serão armazena- 
dos em um elemento de T. O tamanho 
desse conjunto será igual ao número de 
caracteres comprimidos (no nosso exem- 
plo, 447 bytes). Para localizar o início 
de cada mensagem nessa sequência con- 
tínua de códigos, temos que criar um se- 
gundo conjunto, A, que conterá os 
apontadores, ou índices de T. O com- 
primento de A será igual ao número de 
mensagens mais 1 (no exemplo, 46). 

Se dimensionarmos T e A no limite, 
obteremos o máximo de economia de 
memória. Acrescente a rotina de codi- 
ficação: 


AEOSRDCNTUIMVL" : 
1-2KZ(":LET 


700 REM - ROTINA DE CODIFICACAO 
710 LET n=0:LET Ln=0 


























720 FOR 3=1 TO LEN LS 

730 LET cS=L$(5) 

740 FOR p=1 TO 15:IF cS=kS(k,p) 
THEN GOTO 750 

745 NEXT p:LET p=0 

750 LET n=n+1:LET c(n)=P:LET L 
nen 

755 IF n<4 THEN GOTO 775 

760 LET t(nc)=(c(1l) OR (16%*c 
12)))+256*(c(3) OR (16%c(4))) 
-32768 

v65 LET nc=nct1:LET n=0 

775 IF p=0 THEN LET k=k+1:GOTO 
740 
776 
780 
785 
790 


LET k=1 

NEXT 3 

IF Ln=4 THEN RETURN 

FOR )=Lntl TO 4:c())=1:NEX 


f 


Ta 

795 LET t(nc)=(c(1) OR (16*c 
(2)))+256*(c(3) OR (16*c(4))) 
-32768 

796 LET nc=nct+1:RETURN 


A sub-rotina é igual à apresentada no 
artigo anterior, com uma diferença: os 
nibbles são armazenados de quatro em 
quatro, no conjunto C%, e comprimi- 
dos pelas linhas 760 ou 795. O valor 
32768 é diminuído do byte assim com- 
primido, para que seu conteúdo fique 
entre 2768 e 32767. 

Depois de acrescentar o programa 
principal e a rotina de decodificação ao 
jogo da aventura, execute-o. Após en- 
trar todas as mensagens, grave O progra- 
ma e os dados juntos, em fita. 


A descompressão do texto é feita por 
nma segunda rotina, que deve ser acres- 
centada ao programa de aventura: 
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860 REM - DECODIFICACAO 

870 N=0:K=1 

875 FOR J=At(I) TO At(I+1)-1 
880 C2=INT((T3(J)+32768!)/256: 
Cl=(T%(J)+32768) -C2*256 

890 Ct(1)=Cl AND 15:C8(2)=(C1 
AND 240)/16 


895 Ct(3)=C2 AND 15:Ct(4)=(C2 
AND 240)/16 

900 FOR L=1 TO 4 

910 IF C$(L)=0 THEN K=K+1:GOTO 
930 

920 PRINT MIDS(K$S(K) ,C&(L),1):: 
K-l 

930 NEXT L:NEXT J 

950 PRINT:RETURN 


Complete o programa com a rotina 
de carregamento dos conjuntos A e T, 
com os dados no arquivo sequencial: 


500 REM - ROTINA DE LEITURA 

510 INPUT "NOME DO ARQUIVO” ;NS 

520 OPEN "I”,4-1,NS 

530 INPUT4-1,NL,NC 

540 FOR I=1 TO NL+1: INPUT4-1,A? 
(1) :NEXT 1 | 
550 FOR I=1 TO NC: INPUT&-1,T$(T 
J:NEXT I 

560 CLOSE4-1: RETURN 





500 
510 


REM - ROTINA DE LEITURA 
INPUT "GRAVADOR PRONTO ";NS 


530 INPUT4-1,NL,NC 

540 FOR I=1 TO NL+1: INPUT&-1,A% 
(I):NEXT 1 

550 FOR I=1 TO NC: INPUT4&-1,T$(T 
J:NEXT 1 

560 RETURN 






sy 





| 
500 REM - ROTINA DE LEITURA 
510 INPUT "NOME DO ARQUIVO” ;N$S 

| 520 OPEN "CAS:"+NS FOR INPUT AS 
H 

| 530 INPUT41,NL,NC 

| 540 FOR I=1 TO NL+1:INPUT41,A? 
(I):NEXT 1 

| 550 FOR I=1 TO NC: INPUT4I, TE(I 
J:NEXT I 

i 560 CLOSE41:RETURN 


[É] (Si) 


500 REM - ROTINA DE LEITURA 
510 INPUT "GRAVADOR PRONTO ";N$ 
530 RECALL N$:RECALL At:RECALL 
T$:NL=N$ (1) ;NC=N$(2) 

560 RETURN 


Apresentamos a seguir um pequeno 
programa de teste. Com ele, você terá 
oportunidade de verificar o funciona- 
mento conjunto das rotinas de leitura e 
de descompressão: 
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10 DIM K$(3),T%(450),At(46) 

20 K$(1)=" AEOSRDCNTUIMVL” :KS(2 
)="PHGQBEJ, .!-2XZ(" :K$(3)=")/" 
30 GOSUB 510 
240 PRINT: INPUT 
AGEM ";I 

242 IF I=0 THEN GOTO 300 

245 IF I<l OR I>NL THEN PRINT ” 
*** NAO EXISTE” :GOTO 240 

250 GOSUB 870 

290 GOTO 240 

300 END 


"NUMERO DA MENS 


As linhas 10, 20 e 30 desse programa 
devem ser colocadas no início do pro- 
grama do jogo. Elas dimensionam os 
conjuntos de trabalho do descompres- 
sor de textos e chamam a rotina 510. Es- 
ta.carrega os conjuntos Te A, a partir 
do texto comprimido que está armaze- 
nado na memória auxiliar. 























As linhas 240 a 300 simplesmente im- 
primem a mensagem solicitada pelo 
usuário e mostram como a sub-rotina 
870 (de decodificação) deve ser usada 
dentro do programa de aventura. 





Carregue de novo o programa de 
aventura e localize as linhas que contêm 
mensagens incluídas na lista de compres- 
são. Suponhamos que você encontre a 
seguinte linha (abreviada, como reco- 
mendamos no começo deste artigo): 


345 PRINT 
Substitua-a por: 
345 LET 1=17:GOSUB 870 


Essa linha iguala o apontador I ao 
número da mensagem na lista compri- 
mida, e passa o controle para a sub- 
rotina de descompressão. Esta localiza 
o início e o fim da mensagem, no con- 
junto de apontadores A, e imprime na 
tela o texto descomprimido. 

Repita esse procedimento com todas 
as linhas onde ocorrem mensagens, e 
grave o resultado final. Não se esqueça 
de adicionar as linhas 10, 20 e 30 do nos- 
so exemplo (renumeradas, se for o caso). 


Para o Spectrum, o esquema é um 
pouco diferente. Carregue o programa 
de aventura que gravou em fita, junta- 
mente com o programa de compressão 
eo texto comprimido. Apague as linhas 
190 a 796 e modifique cada uma das li- 
nhas com mensagens, como foi explica- 
do antes. Em seguida, acrescente: 


"TIJOLO PESADO” 

































860 REM - DECODIFICACAO 

870 LET n=0:LET k=1 

875 FOR 3=a(i) TO a(i+1)-1 

880 LET c2=INT((t(3)+32768)/256 
:LET cl=(t())+32768) -c2*256 
890 LET c(1)=cl AND 15:LET c(2) 
=(cl AND 240)/16 

895 LET c/3)=c2 AND 15:LET c(4) 
=(c2 AND 240)/16 

















900 FOR L=1 TO 4 

910 IF c(L)=0 THEN LET k=k+1:G 
oTO 930 

920 PRINT KS(K,C(L));:LET k=1 
930 NEXT L:NEXT 3 












950 PRINT:RETURN 


Armazene a nova versão em fita. Pa- 
ra rodar o programa completo, use um 
GOTO para a primeira linha do progra- 
ma de aventura (não a linha 10 do pro- 
grama de codificação). Nunca empregue 
o comando RUN, pois você perderá to- 
do o texto das mensagens. 





















6 LINGUAGENS 6 


PROGRAMAÇÃO 


EM PASCAL 


Para quem está familiarizado com 
apenas uma linguagem de programação, 
o aprendizado de outra pode apresen- 
tar maior ou menor dificuldade — o que 
depende, sobretudo, do grau de seme- 
lhança entre as duas linguagens. 

Se a estrutura e sintaxe de ambas fo- 
rem parecidas, basta fazer uma tradu- 
ção: o novo “'vocabulário” é aprendi- 
do, e as regras de formação de instru- 
cões são aplicadas da mesma maneira. 
As vezes, porém, a diferença entre as 
linguagens étão grande, que o aprendiz 
se vê forçado a abrir mão das regras que 
conhece e adotar um outro raciocínio. 

A linguagem LOGO, por exemplo, 
examinada em artigos anteriores, foi 
projetada para facilitar ao máximo a in- 
trodução de iniciantes ao mundo da pro- 
gramação. Entretanto, para quem foi 
“criado” em BASIC — como a maio- 
ria dos usuários de micros pessoais —, 
a adaptação pode apresentar problemas 
Algumas vezes, chega a ser difícil a 
tar as afirmativas de que LOGO foi fei- 
to para principiantes! 

Isso ocorre, fundamentalmente, por- 
que o LOGO tem uma estrutura inter- 
na bastante diferente da do BASIC, em- 
bora seu vocabulário seja mais simples. 
LOGO é uma linguagem mais bem es- 
truturada, e trabalha com listas hierár- 
quicas, como o LISP, Essas caracteris- 
ticas estimulam o programador inician- 
te a adotar padrões estruturados de ra- 
ciocínio e de resolução de problemas. 

















A programação estruturada também 
é um aspecto importante de uma lingua- 
gem imperativa, o Pascal. Como vimos 
no artigo da página 1288, ele faz parte 
da família de linguagens algorítmicas e 
declarativas iniciadas com o ALGOL. 
Sua filosofia pode parecer totalmente 
estranha ao programador BASIC, Ain- 
da que experiente, este está acostuma- 
do a elaborar programas no teclado, tes- 
tando e alterando seções à medida que 
progride, até chegar a um resultado que, 
muitas vezes, evidencia um objetivo não 
muito claro no começo do trabalho. O 
Pascal só lhe parecerá menos complica- 
do se ele tiver desenvolvido hábitos de 
programação estruturada — em BASIC 
ou outra linguagem. 

Por que então dar-se ao trabalho de 
aprender Pascal? Além de permitir a ela- 
boração de programas mais bem estru- 
turados e de simplificar a documenta- 
ção e a execução de testes, essa lingua- 
gem apresenta certas vantagens sobre o 
BASIC. Em programas muito comple- 
xos, o Pascal produz um código mais 
claro e curto, A facilidade em definir 
procedimentos possibilita a programa- 
ção modular e a formação de bibliote- 
cas de procedimentos, que podem ser 
aproveitados integralmente em outros 
programas. Finalmente, as versões mo- 
dernas do Pascal são adequadas tanto 
para programação científica (cálculos 
matemáticos) quanto para o desenvol- 
vimento de aplicações comerciai: 










































Muitos consideram o Pascal como a 
melhor alternativa para o BASIC. 

Com seus poderosos recursos, podem-se 
elaborar programas bem estruturados 

e fáceis de documentar e testar. 


[PI RT 


O Pascal foi criado em 1970 pelo pro- 
fessor Niklaus Wirth, do Instituto Fe- 
deral de Tecnologia em Zurique, Suíça. 
Seu nome é uma homenagem a Blaise 
Pascal, filósofo e matemático do sécu- 
lo XVII, responsável por importantes 
descobertas cientificas e inventor de uma 
das primeiras máquinas de calcular me- 
cânicas, a Pascalina. 

O objetivo de Wirth era desenvolver 
uma linguagem destinada a ensinar os 
conceitos fundamentais de estruturas de 
programação, Essa linguagem deveria 
estimular o estudante a elaborar a estru- 
tura do programa antes de começar a 
escrevê-lo. Nela Wirth introduziu uma 
série de recursos a fim de permitir que 
a solução programada contenha a pró- 
pria informação a ser processada. 

Em outras palavras, para se escrever 
um programa em Pascal é necessário 
planejar como resolver o problema. A 
solução escolhida é refinada sucessiva- 
mente, cobrindo detalhes cada vez me- 
nores, até se alcançar o nível de um pro- 
cedimento (unidade algorítmica). Só se 
trabalha no programa principal depois 
que todos os procedimentos necessários 
estiverem programados. 

Para desenvolver o Pascal, Wirth uti- 
lizou muitas das idéias em que se baseia 
o ALGOL 606. Originalmente orienta- 
do para o ensino de linguagens estrutu- 
radas em computadores de grande por- 
te, o PASCAL foi adaptado para uso em 
microcomputadores. Hoje, é extensa- 
mente empregado tanto no ensino quan- 
to em aplicações comerciais em micros. 
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Existem versões do Pascal para diver- 
sas linhas de micros pessoais e profis sio- 
nais. As versões reduzidas (que não têm 
todos os comandos do Pascal padroni- 
zado), chamadas Tiny-Pascal, podem 
ser carregadas de cassete. Porém, o. 
Pascal é mais eficiente quando usado 
com sistemas baseados em disco, como 
o UCSD Pascal, para o Apple. 

Como são muitas as versões comer- 
ciais dessa linguagem, não forneceremos 



































listagens específicas para cada linha de 
microcomputador — como fizemos pa- 
ra o BASIC e o LOGO, Mas, mesmo 
que não tenha um compilador Pascal, 
não se preocupe: você poderá entender 
os elementos básicos da linguagem, sem 
precisar rodar o programa em um com- 
putador. Afinal, o desenvolvimento de 
programas longe da máquina é uma das 
principais características do Pascal. 

Existe outra diferença fundamental 
entre o BASIC usado em microcompu- 
tadores pessoais e o Pascal: ele é uma 
linguagem compilada. 

O BASIC adotado na maioria dos 
micros é uma linguagem interpretada — 
cada vez que o interpretador encontra 
uma instrução em BASIC, converte-a 
para códigos de máquina e a executa, 
Assim, para um laço simples como; 


10 FOR N=1 TO 100 
20 PRINT N 
30 NEXT, N 


cada declaração nas linhas 10 a 30 será 
traduzida cem vezes para código de má- 
quina! Não surpreende, portanto, que 
o BASIC seja considerado uma lingua- 
gem lenta. Outra desvantagem é que o 
interpretador precisa permanecer na me- 
mória o tempo todo, ocupando um es- 
paço valioso, que poderia ser utilizado 
pelo programa ou dados do usu 

Uma linguagem compilada funciona 
de maneira diferente. Uma vez que se te- 
nha entrado o programa na máquina, na 
forma de um texto (o programa-fonte), 
ele é traduzido de uma vez só para có- 
digo de máquina (o programa-objeto), 
e é este que o computador executa. De- 
pois de feita a tradução, o programa 
compilador não é mais necessário, fican- 
do armazenado em fita ou disco. Em 
consequência, mais espaço na memória 
é liberado para uso do programa apli- 
cativo desenvolvido pelo usuário. 

As linguagens compiladas são muito 
mais rápidas que as interpretadas, pois 
o demorado processo de tradução para 
código de máquina é executado apenas 
uma vez. Embora existam compiladores 
para o BASIC, essa linguagem não foi 
projetada para ser compilada; assim, 
seus programas-objeto são longos e, fre- 
quentemente, tão lentos quanto o 
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programa-fonte, O Pascal, ao contrário, 
foi projetado especificamente para ser 
compilado, permitindo a obtenção de 
programas tão compactos e rápidos 
quanto os escritos diretamente em As- 
sembler. E há uma vantagem adicional: 
é mais simples desenvolver um progra- 
ma em Pascal do que em Assembler. 

O Pascal apresenta, portanto, um 
equilíbrio bem satisfatório entre veloci- 
dade de desenvolvimento e de execução. 
Somente o C, uma linguagem semelhan- 
te a ele em estrutura e filosofia, apre- 
senta maior eficiência. 
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Como vimos, a programação em 
Pascal requer uma fase inicial de proje- 
to, antes de se chegar à máquina. Nessa 
fase, utilizam-se certas ferramentas de 
planejamento que ainda não discutimos 
em INPUT, entre as quais o fluxogra- 
ma. Este deve ser usado com cautela, 
pois, em si, não é estruturado. Uma fer- 
ramenta mais conveniente para o pro- 
jeto de programas é o algoritmo: um de- 
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Um exemplo familiar de um algorit- 
mo é a receita culinária: ela contém to- 
da a informação necessária para repro- 
duzir um certo prato. Um programa fi- 
nalizado tem, igualmente, toda a infor- 
mação de que o computador precisa pa- 
ra resolver um problema ou realizar uma 
tarefa de um determinado modo. 

Entretanto, o programador (ou o co- 
zinheiro), quando começa a escrever um 
programa (ou a receita), não tem uma 
idéia bem definida sobre o procedimen- 
to a seguir para chegar ao objetivo de- 
sejado. Como exemplo, vamos analisar 
o processo de elaboração de uma receita 
de torta. Em uma primeira tentativa, 
poderíamos dividir a tarefa (ou algorit- 
mo inicial) em quatro passos: 


1. Preparar a massa 

2. Preparar o recheio 

3. Colocar tudo numa fôrma 
4. Assar a torta 


Ao fazer uma torta, talvez você não 
precise cumprir todos os passos (é pos- 



















sível comprar a massa pronta, por exem- 
plo!). Suponhamos, porém, que o com- 
putador é um “*cozinheiro amador”, 
que deve conhecer cada detalhe. 

A próxima etapa consiste em fazer a 
subdivisão dos passos em operações me- 
nores — processo denominado refina- 
mento gradativo. Você encontrará esse 
conceito na metodologia de desenvolvi- 
mento de programas muito extensos, 
que não podem ser projetados de uma 
só vez. No nosso exemplo, refinando o 
passo 1, teríamos: 


1.1 - Pesar a farinha 

1.2- Pesar a manteiga 

1.3 - Misturar a manteiga com a farinha 
1,4- Adicionar água 

1.5 - Mexer 


Poderíamos refinar ainda mais cada 
passo, até chegarmos a um nível de sim- 
plicidade tal que fosse possível a qual- 
quer um fazer uma torta. 

O principal, nesse processo, foi ter- 
mos considerado previamente todos os 
passos da solução do problema, em vez 
de iniciarmos a tarefa em um ponto 
qualquer, ao acaso. Para a programa- 
ção em Pascal, o método a ser seguido 
é muito similar. No estágio inicial, es- 
creve-se cada passo em português mes- 
mo. Refinando-os sucessivamente, che- 
ga-se à formalização proporcionada por 
uma declaração ou instrução em Pascal. 
Separados do algoritmo inicial, os pas- 
sos podem ser representados por proce- 
dimentos ou funções. Estes são poste- 
riormente reunidos em um programa 
só. Mas como escrever um programa 
em Pascal sem conhecer os comandos 
dessa linguagem? Examinemos alguns 
exemplos. 


UM PROGRAMA EM PASC. 


Os programas em Pascal costumam 
parecer complicados demais em relação 
à simplicidade da tarefa a cumprir. Ve- 
ja, por exemplo, este programa, que so- 
ma dois números e exibe o resultado: 











































program exemplo (input, output); 


var nl,n2,resultado: integer; 
begin 
read (nl,n2); 


resultado:=nl+n2; 
writeln (resultado) 
end. 


Como se pode notar, o programa é 
mais longo que um equivalente em BA- 
SIC, embora de execução mais rápida. 
Quanto maior a complexidade da tarefa, 
porém, maiores a economia e concisão 
oferecidas por um programa em Pascal. 





O programa anterior poderia resul- 
tar de um algoritmo inicial como: 


. Estabeleça as condições iniciais 
. Inicie o procedimento 

. Entre os números 

. Acrescente os números 

« Imprima o resultado 

. Termine o procedimento 
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O programa segue rigorosamente o 
algoritmo. Observe que é necessário de- 
clarar explicitamente os passos 1, 2e 6 
— ou seja, precisamos especificar o que 
é trabalhado pelo programa, quando 
iniciá-lo e quando encerrá-lo. 

Este é um dos fatores que explicam 


a maior extensão de um programa escri-. 


to em Pascal em relação a um equiva- 
lente em BASIC. Vamos agora analisar 
o programa linha por linha: 


program exemplo (input, output); 


significa que o programa terá entradas 
(input) e saídas (output) e se chamará 
exemplo. Se ele não precisasse ler dados 
externos, bastaria escrever: 


program exemplo (output); 


O ponto e virgula no final de uma li- 
nha indica o fim de uma declaração. 

As características de todas as variá- 
veis usadas por um programa em Pas- 
cal devem ser especificadas. A linha: 


var ni,n2,resultado: integer; 


informa que usaremos três variáveis in- 
teiras (integer): nl, n2 e resultado. 
eitas as declarações, assinalamos o 
início do procedimento propriamente di- 
to, com a palavra begin. Note agora que 
o texto do programa é recuado em rela- 
ção à linha anterior. Este é um recurso 
muito usado em programas estrutura- 
dos, pois indica para quem lê quais são 
as declarações dentro de um procedi- 
mento ou laço de repetição. 

A leitura dos dados pelo teclado é 
muito semelhante à do BASIC: read 
(n1,n2). Só podemos usar aqui esses no- 
mes de variáveis porque elas foram de- 
claradas antes, em var. 

A declaração aritmética também é se- 
melhante a uma instrução em BASIC: 


resultado:=nl+n2; 








O símbolo de atribuição := foi as- 
sim definido para evitar a confusão cau- 
sada pelo = do FORTRAN e do BA- 
SIC, que dá a impressão errônea de se 
tratar de uma fórmula matemática. 

Finalmente, escrevemos o resultado: 


writeln (resultado) 





que tem um efeito semelhante ao 


PRINT RESULTADO de um programa 
em BASIC. Não há ponto e vírgula no 
final da linha, pois a declaração seguinte 
é um end. Alguns compiladores permi- 
tem o uso desse sinal desde que se colo- 
que uma linha em branco depois. 

O Pascal conta, naturalmente, com 
vários outros comandos e funções, ad- 
mitindo também a introdução de notas 
e comentários no programa, entre cha- 
ves: je/. Com os microcomputadores que 
não têm essas teclas, pode-se utilizar 
uma combinação de parênteses com as- 
teriscos (* e *). 
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O processo de edição e teste de pro- 
gramas em linguagem compilada, como 
o Pascal, não é tão direto como com um 
interpretador. Normalmente, edita-se 








apenas o programa-fonte, com o auxi- 
lio de um editor de linhas (quase sem- 
pre disponível como um utilitário do sis- 
tema operacional) ou de um processa- 
dor de textos. Depois, compila-se o pro- 
grama e testa-se o resultado, executan- 
do-o. Caso se verifique algum erro, to- 
do o processo deve ser repetido, a par- 
tir do programa-fonte. 

Alguns compiladores Pascal, como o 
UCSD e o Turbo-Pascal, dispõem de 
um editor próprio, o que evita esse vai- 
vém entre editor, sistema operacional e 
compilador. Nesse caso, tanto o progra- 
ma-fonte quanto o programa-objeto po- 
dem residir na RAM enquanto durar o 
processo, agilizando-o muito — se o 
programa não for muito longo, e se 
houver boa capacidade de memória. 

Como está em linguagem de máqui- 
na pura, sem comentários, rótulos, ou 
similares, o programa compilado ofere- 
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ce a vantagem final de inviabilizar a 
ação de “espiões”. Assim, depois de 
editar um programa em Pascal, você po- 
derá ter a certeza de que ninguém copia- 
rá os algoritmos de sua criação. 
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Existem compiladores Pascal para a 
maioria das linhas de microcomputado- 
res. Entretanto, como já mencionamos, 
eles variam muito entre si, quanto ao 
funcionamento e desempenho, e nem to- 
dos podem ser encontrados com facili- 
dade no Brasil. Antes de adquirir um 
programa desse tipo, convém fazer uma 
pesquisa em diferentes “software hou- 
ses” — de preferência nas especializa- 
das em uma determinada linha de com- 
putadores ou nas dedicadas exclusiva- 
mente à programação Pascal. 





O uso mais sério do Pascal requer 
componentes mais caros, exigindo, no 
mínimo, um acionador de disquetes. Por 
isso, máquinas como o Apple e a IBM- 
PC contam com as melhores versões. 


O compilador Pascal para o Spec- 
trum é exclusivo para microdrives e dis- 
quetes (não disponíveis no Brasil). In- 
clui um editor de linhas, um gerador de 
números aleatórios e suporte gráfico em 
alta resolução. 


Existem diversas versões do Pascal 
para o TRS-Color. Suas características 
variam conforme o sistema operacional 
utilizado: Flex, RS-DOS (original) ou 
OS-9 (semelhante ao Unix). Todas fun- 
cionam somente em micros dotados de 
acionadores de disquetes. 





Esse micro dispõe de duas versões do 
Pascal: um compilador que roda sob o 
sistema operacional TRSDOS e compa- 
tíveis, e outro, semelhante ao Turbo 
Pascal, que roda sob o sistema opera- 
cional CP/M. Ambas são bastante com- 
pletas, mas não incluem suporte gráfico. 


As duas versões mais utilizadas de 
Pascal para as máquinas compatíveis 
com a linha Apple são o UCSD e o 
Turbo-Pascal. O UCSD (abreviatura da 
universidade onde foi desenvolvida: 
University of California at San Diego) 
foi o primeiro e mais popular sistema 
Pascal (p-System). Trata-se, na realida- 
de, de um sistema operacional comple- 
to, que substitui o DOS, e não apenas 
de um compilador. 

Já o Turbo-Pascal roda sob o sistema 
operacional CP/M (Control Program for 
Microcomputers), que pode ser coloca- 
do em um Apple quando se troca a UCP 
por um microprocessador Z-80. 





O Pascal para o MSX é do tipo Mi- 
crosoft e destina-se a máquinas dotadas 
de acionador de disquetes de 5.25 ou 3.5 
polegadas, rodando sob o sistema ope- 
racional MSX-DOS ou compatível. 

















Se você tem problemas com a formatação 
de saída para valores monetários, 
poderá encontrar aqui uma boa solução: 
o uso de duas eficientes rotinas 

no lugar do comando PRINT USING. 


O comando PRINT USING é um dos 
recursos mais poderosos do BASIC de 
algumas linhas de computadores, como 
o TRS-80, o TRS-Color e o MSX. Com 
ele, podemos formatar de diferentes ma- 
neiras a saida de números e cadeias al- 
fanuméricas. Porém, esse comando apre- 
senta inconvenientes, sobretudo quanto 
à formatação de valores monetários. 

No Brasil, usam-se variáveis de pre- 
cisão dupla (quinze dígitos) para repre- 
sentar valores monetários, pois a preci- 
são simples não nos permite lidar com 
valores superiores a 10 milhões de cru- 
zados. E o PRINT USING, infelizmen- 
te, é muito lento quando se trata de for- 
matar variáveis de precisão dupla. 

Além disso, não é possivel utilizar o 
PRINT USING dos computadores men- 
cionados para formatar valores mone- 
tários segundo a convenção brasileira, 
que impõe a separação dos milhares por 
pontos e dos centavos por vírgulas. 

As funções que explicamos neste ar- 
tigo oferecem várias alternativas para a 
formatação de valores, e são muito mais 
rápidas (três a seis vezes) do que o 
PRINT USING normal. 
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Esta rotina permite a formatação de 
valores monetários segundo as conven- 
ções dos balanços contábeis: com os nú- 
meros negativos entre parênteses: 















10 DEF FNNS(Vk, E$) =RIGHTS (STRIN 
GS(E%,” ")+LEFTS(”(”, ABS (VESO)) 
+LEFTS(” ”,ABS(V$>=0)) +MIDS (STR 
S(V4),2) Et) +LEFTS(”")” ABS (VASO 
JJ+LEETS(” "ABS (VA=>0)) 

100 INPUT 
t 


"Numero de colunas *; 


FORMATAÇÃO 
DE VALORES 


110 INPUT "Valor ";V4 
120 PRINT FNN$(Vt,Et):GOTO 110 


A função FNFS, estabelecida na linha 
10, tem dois argumentos: V 4, um va- 
lor monetário em precisão dupla (pode 
incluir centavos ou não), e Eo, um va- 
lor inteiro que especifica o número de 
colunas a usar na formatação (com jus- 
tificação à direita). As linhas 100 e 120 
formam um laço simples de teste. 

O BASIC das máquinas mencionadas 
é capaz de definir em apenas uma linha 
expressões de grande complexidade — 
inclusive expressões condicionais que 
imitam a operação de um IF...THEN. 
Observe, por exemplo, a expri 


LEFTS(" ("ABS (VE <0)) 


Pode parecer estranho utilizar um ope- 
rador de comparação (sinal de menor) 
dentro de uma expressão matemática. 
Mas podemos compreender sua função 
se levarmos em conta que o resultado nu- 
mérico de uma expressão lógica é igual 
a —1 (ou 1, em alguns computadores), 
se ela for verdadeira, e a 0, se for falsa. 
Assim, se V 7% for menor que 0, a ex- 
pressão anterior resultará em um string 
contendo um parêntese à esquerda — 
LEFT$('(,1). A linha 10 concatenará es- 
se parêntese (se o número for negativo) 
ou um espaço em branco (se o número 
for positivo) à cadeia de saída. A expres- 
são LEFTS ("”, ABS (Vg > 0)) se en- 
carrega da operação, que depois é repe- 
tida para o parêntese direito. 


DINHEIRO À BRASILEIRA 


Examinaremos agora uma função ca- 
paz de formatar valores usando pontos 
e vírgulas, segundo a convenção bancá- 
ria brasileira. Símbolos especiais repre- 
sentarão números positivos (créditos) e 
números negativos (débitos). 

Como essa função é mais complexa, 
definiremos uma sub-rotina: 




















110 INPUT "Numero de colunas "; 
Et 

120 INPUT "Caractere de preench 
imento ";BS 


130 INPUT "Simbolo p/valor posi 
tivo ";PS 
140 INPUT "Simbolo p/valor nega 
tivo ";NS 


E O PRINT USING 
E VALORES MONETÁRIOS 
E FORMATAÇÃO 

COM PARÊNTESES 
E UMA ROTINA PODEROSA 


150 INPUT 


"Ve 
160 GOSUB 1000:PRINT SS:COTO 15 


"valor 


o 

1000 1$=MID$ (STRS(FIX(V4)),2):F 
S=MIDS (STRS (INT (100% (V4-FIX (V&) 
))),2):sg="" 

1010 IF LEN(I$)<=3 AND VAL(FS)> 
O THEN SS=1$+8$+","+FS:GOTO 103 
0 


1015 IF LEN(I5)<=3 AND VAL(FS)= 
O THEN S$=15+S$:GOTO 1030 

1020 S$="."+RIGHTS(1S,3)+S$:1S= 
LEFTS(IS,LEN(I$)-3):GOTO 1010 
1030 IF VASO THEN XS=NS ELSE XS 
=P$ 

1040 S$=RIGHTS (STRINGS (Et, BS) +5 
$+XS, Et) :RETURN 





Os argumentos de entrada são: V %, 
valor monetário em precisão dupla (in- 
cluindo centavos ou não, após o ponto 
“o, número de colunas para format 
ção; BS, caractere de preenchimento à 
esquerda (asteriscos, zeros ou um espa- 
ço em branco); PS e N$, simbolos à di- 
reita do valor, para indicar créditos e dé- 
bitos, respectivamente. O string de saí- 
da retorna em S$. As linhas 110 a 160 
testam a sub-rotina. 

Na linha 1000, V é quebrado em 
dois valores inteiros, correspondentes 
aos cruzados € aos centavos. Esses va- 
lores são armazenados em duas cadei 
IS e F$, respectivamente. 

As linhas 1010 e 1015 verificam se I$ 
tem três ou menos dígitos (um valor 
igual ou menor que 999 cruzados), e 
se existe um valor em centavos 
(VAL(F$)>0). Conforme o resultado 
dos dois testes, a rotina termina, saltan- 
do para a linha 1030, que concatena o 
simbolo adequado para créditos e débi- 
tos ao final de S$. A linha 1040 enqua- 
dra o string S$ de saída dentro de E% 
espaços. O laço formado pela linha 1020 
reduz progressivamente o tamanho de 
I$, separando cada grupo de três di 
tos por um ponto, até que LEN(IS) seja 
menor ou igual a 

Entre as aplicações dessa rotina, 
inclui-se o preenchimento de cheques — 
os caracteres de proteção de campo são 
colocados à esquerda do valor. Se qui- 
ser adicionar um cifrão (ou o símbolo 
Cz8) entre os caracteres de proteção e 
o valor numérico, na linha 1000 da ro- 
tina, que inicializa S$, substitua a ex- 
pressão S$="" por S$="Cz8”. 



























SEUS DESENHOS 





Ao desligar o micro, os maravilhosos 
desenhos que você criou na tela 
desaparecem sem deixar rastros. 

Com umas poucas linhas em BASIC, você 
poderá preservá-los em papel. 


A capacidade gráfica dos micros per- 
mite a elaboração de vários tipos de grá- 
fico ou desenho no vídeo. Quer voc 
teja interessado nas aplicações práticas 
desses gráficos, quer seja um artista 
preocupado em adotar um novo meio de 
expressão, as imagens produzidas com 
a ajuda do computador apresentam uma 
grande limitação: existem apenas en- 
quanto a tela não for apagada. Se você 
quiser uma cópia permanente da ima- 
gem criada, precisará usar uma máqui- 
na fotográfica ou copiar a tela em uma 
impressora gráfica. 

Para guardar uma listagem, uma lis- 
ta de números ou um texto produzido 
por um programa, os usuários também 
têm que recorrer a uma impressora. Há, 
porém, uma grande diferença entre co- 
piar uma tela de textos, escritos em AS- 
CII padrão, e uma tela gráfica, de bai- 
xa ou alta resolução. Com exceção dos 
microcomputadores da linha Sinclair 
(ZX-81 e Spectrum), que possuem o co- 
mando COPY, os comandos de impres- 
são do BASIC, como LPRINT, PR 1, 










PRINT 4-2 etc., funcionam apenas com 
caracteres ASCII. Alguns fabricantes 
oferecem impressoras que têm o conjun- 
to ampliado de caracteres. Este inclui os 
caracteres semigráficos, típicos dos mi- 
cros TRS-80, TRS-Color, TK-2000 e 
MSX, mas ainda assim não é suficiente 
para copiar uma tela com gráficos de 
média ou de alta resolução. 

Como vimos em um artigo da seção 
Periféricos (página 648), existem dois 
modelos de impressora para micros: as 
impressoras de tipo formado (como as 
baseadas na '“'margarida”), e as impres- 
soras matriciais. Embora algumas im- 
pressoras margarida possam fazer grá- 
ficos compostos de pontos, elas são mui- 
to lentas para ter alguma utilidade na 
cópia fregiiente de telas gráficas. 




























TIPOS DE IMPRESSORA 

DESPEJO DE TELA 
PROGRAMAÇÃO GRÁFICA 
MONTAGEM DA TELA 


PROBLEMAS COM CORES 





As impressoras matriciais, por sua 
vez, imprimem os caracteres utilizando 
um conjunto de pontos, num processo 
idêntico ao da formação de caracteres 
na tela de vídeo. O sinal enviado pelo 
computador à impressora aciona uma 
série de pinos ou agulhas situados na ca- 
beça de impressão, de modo a reprodu- 
zir um padrão de pontos que compõe 
um determinado caractere. 

Nas impressoras matriciais não- 
gráficas (impressoras de texto), os pa- 
drões formados para cada caractere já 
estão pré-programados em uma memó- 
ria ROM na impressora, e não podem 
ser manipulados ou alterados indivi- 
dualmente, Nas impressoras matriciais 
gráficas, porém, pode-se programar ca- 
da agulha da cabeça de impressão por 
meio de software, o que permite a ela- 
boração de gráficos de alta resolução. 











Como funciona um programa desti- 
nado a copiar cada pontinho de alta re- 














solução de uma tela gráfica? O coman- 
do COPY dos micros da linha Sinclair 
é um bom exemplo disso. Esse coman- 
do efetua uma operação que chamamos 
despejo de tela (screen dump, em inglês). 

Com o micro acoplado a uma im- 
pressora adequada (própria para a linha 
Sinclair), o comando COPY “traduz” 
as configurações de pontinhos de cada 
setor da tela em padrões de atuação das 
agulhas da cabeça de impressão. Desse 
modo, o conteúdo da tela (texto e/ou 
gráfico) é fielmente reproduzido — me- 
nos a cor, evidentemente. 

Os sistemas operacionais de alguns 
micros (como o TRS-80) podem ter fun- 
ções de despejo de tela, que também só 
atuam se uma impressora compatível es- 
tiver acoplada à máquina. O CP-500 da 
Prológica, por exemplo, despeja a tela 
semigráfica na impressora P-SOOS, 
quando as teclas J, K e L são pressio- 
nadas simultaneamente no teclado. 

A maioria dos micros, porém, não 
tem comandos ou funções especiais pa- 
ra produzir despejos de tela. E mesmo 
que seu computador disponha desses re- 
cursos, lembre-se de que eles nada pro- 
duzirão sem a impressora adequada. 








Não é possível escrever na impresso- 
ra usando o mesmo método com o qual 
escrevemos na tela. Se dermos, por 
exemplo, o comando: 


PRINT CHR$(255) 


no TRS-Color, um bloco colorido será 
exibido na tela (255 é o código do ca- 
ractere gráfico correspondente). Entre- 
tanto, se você tentar fazer isso com a im- 
pressora, enviando o comando: 


PRINT4-2,CHR$S(255) 


nada acontecerá, pois a impressora in- 
terpretará o código 255 de modo total- 
mente diferente. Dizemos, por essa ra- 
zão, que os códigos de controle dos dois 
periféricos, vídeo e impressora, produ- 
zem efeitos diferentes. 

Precisamos, assim, de um programa 
especial para efetuar o despejo de tela 
— um programa que prepare a impres- 
sora para receber gráficos. Algumas 
funções automáticas da impressora de- 
vem ser desligadas, e outras, ligadas. É 
necessário acionar a cabeça de impres- 
são de forma que as agulhas possam ser 
controladas individualmente. Além dis- 
so, o avanço horizontal e vertical da ca- 
beça de impressão precisa ser feito em 
passos diminutos, sem deixar espaços 
entre cada ponto impresso. 

As impressoras gráficas podem ser 


programadas externamente para efetuar 
as funções mencionadas. Nesse modo- 
gráfico, é possível atuar sobre grupos de 
agulhas usando códigos de oito bits. A 
informação captada na memória de vi- 
deo é enviada para a impressora não sob 
a forma de códigos ASCII, mas como 
códigos binários correspondentes ao pa- 
drão de ativação das agulhas da cabe- 
ça. Assim, existem códigos binários pa- 
ra desligar o avanço automático de li- 
nha, para avançar a cabeça de uma li- 
nha para outra, para definir o espaço 
entre as linhas etc. O programa propria- 
mente dito simplesmente “'varre” a te- 
la e produz as linhas de impressão cor- 
respondentes a cada grupo de bits. 
Mais adiante, apresentaremos pro- 
gramas desse tipo para os micros Spec- 
trum e TRS-Color. Antes disso, porém, 
precisamos examinar as combinações 
micro-impressora possíveis. 





COMPATIBILIDADE 





Os programas de despejo de tela de- 
pendem não só do tratamento dado à te- 
la gráfica pelo computador, como tam- 
bém da marca e do modelo da impres- 
sora que será utilizada. Isso ocorre por- 
que ainda não existe uma padronização 
dos caracteres de controle gráfico e da 
cabeça de impressão. 

Nossos programas destinam-se às 
máquinas que adotam o padrão Epson. 
Este foi estabelecido para as impresso- 
ras do fabricante da marca Epson, e po- 
de ser encontrado em modelos muito 
populares, como, por exemplo, o Epson 
MX-80, MX-120 e FX-80. No Brasil, vá- 
rias empresas, entre elas a Elebra (im- 
pressoras Mônica e Alice), a Rima e a 
Grafix, seguem esse padrão. 

As impressoras compatíveis com o 

padrão Epson usam uma matriz de oito 
pontos de altura, Esta é a configuração 
mais conveniente, pois permite ao mi- 
cro enviar informações provenientes da 
tela, um byte de cada vez, pela interfa- 
ce paralela. O TRS-Color possui inter- 
face serial, mas o método é o mesmo. 
No Spectrum e no ZX-81, o usuário de- 
ve inserir uma interface paralela no co- 
nector de expansão. O Spectrum, além 
disso, precisa ser carregado com um 
programa em linguagem de máquina, 
para usar a impressora. 








A programação da sequência de im- 
pressão das agulhas da cabeça para a ob- 
tenção de efeitos gráficos pode ser feita 
por meio de alguns comandos simples 


em BASIC. O processo é muito fácil. 
Para entendê-lo, devemos examinar co- 
mo certos bytes enviados para a impres- 
sora são interpretados pelos circuitos de 
controle da mesma. 

A impressora normalmente está capa- 
citada para reconhecer os códigos ASCII 
e ASCII estendido, que estão pré-pro- 
gramados na memória ROM, Assim, se 
enviarmos uma seqiiência de códigos en- 
tre hexadecimal 20 (correspondente a es- 
paço em branco) e 7E (til), a impresso- 
ra irá reconhecê-los como códigos de ca- 
racteres. Por exemplo, a palavra ABA 
é impressa quando enviamos: 


LPRINT CHR$(65);CHR$(32); 
CHRS (65) 


Entre hexadecimal 00 e 1F situam-se 
caracteres de controle com diversas atri- 
buições, que variam de impressora pa- 
ra impressora. No padrão Epson, 
CHRS(7) faz soar o alarme sonoro da 
impressora, CHR$(13) provoca um re- 
torno de carro, enquanto CHR$(12) de- 
termina a mudança de página. 

Outras funções de controle podem ser 
acionadas por meio da combinação de 
vários caracteres. Essas sequências co- 
meçam sempre pelo caractere CHRS$(27), 
que corresponde ao ESCAPE — por is- 
so, são chamadas de segiúências de es- 
cape. A segiiência ESC G, por exemplo, 
coloca a impressora em modo de im- 
pressão em qualidade carta (cada carac- 
tere é impresso duas vezes): 


LPRINT CHR$(27);"G” 


Para mudar o espaçamento entre li- 
nhas de impressão, utiliza-se ESC A n, 
onde n refere-se ao número de passos 
por avanço de linha: 


LPRINT CHRS$(27);"A”;CHRS(4) 








Um passo é equivalente a 1/48 ou 
1/72 de polegada, dependendo do mo- 
delo da impressora (com densidade sim- 
ples ou densidade dupla). No exemplo 
anterior, o deslocamento entre cada li- 
nha de impressão equivale ao espaça- 
mento entre quatro agulhas. 

A seleção do modo gráfico, no padrão 
Epson, é feita pela segúência ESC K 
ou ESC L. Quando você seleciona o 
modo gráfico, o código binário envia- 
do à impressora aciona diretamente o 
padrão de agulhas da cabeça de impres- 
são; quando o bit for 1, a agulha cor- 
respondente é acionada; quando o bit 
for O, a agulha fica inativa. O bit me- 
nos significativo (DO) controla a agulha 
inferior, e o bit mais significativo (D7), 
a agulha superior. Assim, se quisermos 
imprimir uma coluna de pontos, a agu- 
lha de cima e as duas últimas agulhas de 
baixo não serão acionadas; o código a 





enviar é 10000011, ou 128+0+0+0+ 
0+0+2+1 = 131 em decimal. 

A seqiência de escape precisa espe- 
cificar, ainda, o número de bytes de có- 
digo gráfico que serão enviados, e, em 
seguida, os bytes propriamente ditos: 
ESC K nl n2 dados. 

Os bytes nl e n2 são, respectivamen- 
te, o mais significativo e o menos signi- 
ficativo de um número de dezesseis bits, 
e devem ser apresentados no conhecido 
formato 256 * n2+n1. 

Se vamos enviar 550 bytes gr 
damos o comando: 

LPRINT CHR$(27);CHR$(38);CHRS 
(2); 

pois 256*2 + 38 = 550, A expressão 
que se segue, em BASIC, serve para cal- 
cular nl e n2 a partir de n, que repre- 
senta o número total de bytes: 


NI = INT (N/256) 
N2 = N-INT (N/256) 





os, 





Este programa ilustra o padrão de 
acionamento das agulhas: 


10 LPRINT CHRS(27 





20 LPRINT CHR$S(27); 
;CHRS (0); 

30 
40 


FOR J=7 TO O STEP -1 
LPRINT CHRS(2**J); 
NEXT J 

FOR J=0 TO 7 

LPRINT CHR$(2**J); 
NEXT J 

LPRINT CHR$(10); 





LPRINT CHR$(27);"A”; 
FOR I=1 TO 5 

25 LPRINT CHR$(27);"K”;CHRS(16) 
;CHRS (0) ; 


CHRS (8) 


30 FOR J=7 TO O STEP -1+ 
40 LPRINT CHR$(2"J); 
50 NEXT J 
60 FOR J=7 TO O STEP -1 
70 LPRINT CHR$(2"J); 
E NEXT J 
LPRINT CHR$(10); 
100 NEXT 1 





10 PRINT4-2,CHRS(27);"A”;CHRS 
(8) 


20 PRINT4-2,CHR$S(27);"K”;CHRS 
es CHR3(0) ; 





FOR J' TO O STEP 
a PRINT4-2,CHRS(2"J); 
50 NEXT J 
60 FOR J=7 TO O STEP -1 
70 PRINTE-2,CHRS(27J); 
80 NEXT J 


PRINT4-2,CHRS (10); 


[ef] [5] 


5 PR$I 

10 PRINT CHRS (27 
20 PRINT CHR$(27);"K”; 
CHRS (0); 

30 FOR J=7 TO O STEP -1 
40 PRINT CHRS(2"J); 

50 NEXT J 

60 FOR J=7 TO O STEP -1 
70 PRINT CHRS(27J); 

80 NEXT J 

90 PRINT CHRS(10); 

100 PR$0 






A linha 10 estabelece um espaçamen- 
to de oito passos entre linhas. A 20 pro- 
grama a impressora para o modo grá: 
co, avisando que a seguir serão envia- 
dos dezesseis bytes gráficos. Quando os 
dados não estão incluídos imediatamen- 
te na seqiiência de escape, o ponto e vír- 
gula no final dessa linha é obrigatório. 
Os laços das linhas 30 a 50 e 60 a 80 im- 
primem, respectivamente, um padrão 
descendente e outro ascendente de pon- 
tos (determinados pelos códigos que cor- 
respondem a potên de 2: 128, 64, 32 
etc.). Finalmente, a linha 90 alimenta 
uma linha. 














Para copiar um desenho na impres- 
sora, é necessário executar um progra- 
ma que o trace na tela, Existem duas al- 
ternativas para isso. Uma delas consis- 
te em carregar o programa de desenho 
no computador e, em seguida, combiná- 
lo com o programa de despejo (a nume- 
ração das linhas de ambos tem que ser 
diferente). O primeiro programa deve 
ser alterado na tela depois que o dese- 
nho estiver pronto, de modo que o pro- 
grama de despejo seja chamado auto- 
mati mente, ou quando se pressionar 
determinada tecla. Se achar convenien- 
te, poderá incluir permanentemente o 
programa de despejo no programa de 
desenho, na forma de uma sub-rotina. 

A segunda alternativa é a de mais fá- 
cil execução, mas depende da capacida- 
de do micro de armazenar o conteúdo 
de telas gráficas em disco ou fita (co- 
mandos BSAVE, SAVEM ctc.). Se seu 
computador tem essa capacidade, car- 
regue e execute o programa de desenho 
e armazene a tela resultante em fita ou 
disco. Depois, carregue o programa de 
despejo usando um comando na linha 
10 (essa linha não foi colocada nos pro- 
gramas que se seguem justamente para 
criar um espaço para o seu comando de 
carregamento). Com esse procedimen- 
to, o programa irá ler, em primeiro lu- 
gar, a tela armazenada. 








Para os usuários do TRS-Color, o 
sistema é um pouco diferente: algumas 
linhas do programa de despejo têm que 
ser executadas antes que o desenho seja 
tracado na tela, 


CEO 


A imagem despejada por este progra- 
ma é imprimida de lado — ou seja, no 
sentido longitudinal e não transversal, 
relativamente à imagem que aparece na 
tela. Com isso, obtemos uma imagem 
maior e mais margem no papel. 


15 LPRINT CHRS5; 

20 LPRINT CHR$27; "A"; CHR$S8; 
30 FOR x=0 TO 255 STEP 4 
40 LPRINT CHR$13; CHR$27; 
CHRSO; CHR$96; CHRS1; 

50 FOR y=0 TO 175 STEP 8 
60 FOR d=0 TO -7 STEP -1 
70 LET bt=(POINT(x,y-d)*128)+(P 
OINT(x,y-d)*64)+(POINT(x+1,y-d) 
*32) + (POINT (x;1,y-d)*16)+(POINT 
(x+2,y-d) 48) + (POINT (x+2,y-d)*4) 
+ (POINT (x+3,y-d)*2)+ (POINT (x+3, 
y-d)) 

72 LPRINT CHRSbt; 

74 LPRINT CHRSDt; 

80 NEXT d 

90 NEXT y 

100 NEXT x 

110 LPRINT CHRS4: STOP 


A linha 15 desliga o conjunto de ca- 
racteres ASCII na impressora. O co- 
mando LPRINT da linha 20 informa à 
impressora que não deve haver espaça- 
mento entre as linhas impressas, 

O laço que vai da linha 30 à 100 var- 
re uma linha da tela, em blocos de qua- 
tro pixels de cada vez. A linha 40 passa 
para a impressora um código de retor- 
no de carro (código 13) e, em seguida, 
o código *0, que se encarrega de prepa- 
rar a máquina para receber o número de 
bytes que a linha corrente de tela irá en- 
viar. Esse byte é composto dos códigos 
96e 1 (também na linha 40), que são in- 
terpretados como 1*256 + 96 — ou se- 
ja, 352 bytes. 

O laço da linha SO à linha 90 percor- 
re a tela de cima para baixo; o laço da 
linha 60 à 80 toma um bloco de oito pi- 
xels de cada vez. Antes de incrementar 
os laços, a linha 70 usa o comando 
POINT para ler os pixels na tela. Estes 
são condensados pela expressão numé- 
rica no byte bt, que é enviado duas ve- 
zes à impressora, pelas linhas 72 e 74. 
A segunda impressão fará a imagem 
aparecer duas vezes maior que na tela, 
na direção horizontal. 

Finalmente, a linha 110 retorna a im- 
pressora ao conjunto ASCII e encerra 





"kr; 








a execução. Se você quiser transformar 
esse programa em sub-rotina, não se es- 
queça de substituir o STOP dessa linha 
por um RETURN. 





2 DIM A(8,1) 

4 FOR K-0 TO & 
11) :NEXT 

6 DATA 3,3,2,1,0,0.3,1,3,3,0,0, 
1,2,3,1,3,3 
20 PRINT 472, 
(8) 

30 FOR L=0 TO 255 STEP 4 

40 PRINE 4-2,CHRS(13);CHR$(27), 
"K”;CHRS (0); CHARS (128) ;CHRS(1); 
50 FOR K=191 TO O STEP -1 

60 T=0:S=0:FOR M=0 TO 3:P=PPOIN 
T(L+M,K) :TETAI+A(P,0) :S=54A+A(P 
11) :NEXT 

70 PRINT 4-2, CHRS(T);CHRS(S); 
BO NEXT K,L 

90 PRINT 4-2,.CHR$S(27); 


READ A(K,0) ,A(K 


CHRS (27): "A"; CHRS 








er 


É importante que as três primeiras li- 
nhas do programa (2, 4 e 6) precedam 
a rotina de geração da tela gráfica que 
será impressa. Na linha 10, reservada 
para o seu programa, você deve estabe- 
lecer o tipo de SCREEN e de PMODE. 
Em virtude da forma de armazenagem 
de telas gráficas no TRS-Color, o pro- 
grama de despejo precisa levar em con- 
ta as cores empregadas. 

A linha 2 dimensiona um conjunto 
A, para armazenar o padrão de pontos 
usado em cada cor. Existem nove cores, 
mas nem todas podem aparecer na tela 
ao mesmo tempo. Os padrões estão de- 
finidos em DATA, na linha 6, e são car- 
regados no conjunto A pela linha 4. 
Dois itens em DATA determinam cada 
cor; o segundo é impresso sobre o pri- 
meiro. Por exemplo, o primeiro par de 
números (3,3) indica preto, formando 
um padrão binário de 3 (11) sobre 3 (11). 
O segundo par (2,1) especifica verde, 
formando um padrão de 1 (01) sobre 2 
(10). Note que há repetição de pares na 
segiiência, mas isso não importa: a se- 
gunda ocorrência determina uma cor 
que não pode aparecer na tela junto com 
a primeira especificação. 

A linha 20 prepara a impressora pa- 
ra receber gráficos. A segiência de es- 
cape que contém instrui a impressora a 
não dar espaçamento entre linhas. 

O laço que vai da linha 30 à 
80 percorre uma linha da tela, 
em blocos de quatro pixels. A 
linha 40 envia à impressora um 
código de retorno de carro (13) 
e, em seguida, o código *, que 
coloca a impressora em modo 
gráfico. Ainda nessa linha, 
CHRS$(0) define a densidade de 
impressão e CHR$(128);CHRS(1) 


diz à impressora para esperar 128 + 
1*256 bytes gráficos, ou seja, um total 
de 384 bytes. 

O laço da linha 50 à 80 percorre a te- 
la de cima para baixo (192 pixels de al- 
tura); o da linha 60 toma quatro pixels 
de cada vez, examina-os com PPOINT, 
calcula as cores e coloca o resultado nos 
bytes Se P. A linha 70 imprime esses 
bytes. Finalmente, a linha 990 reinicia- 
liza a impressora. 


3) 





ORA 


O programa de despejo de tela, em 
BASIC, imprime apenas uma represen- 
tação binária, em preto e branco, da te- 
la de alta resolução, pois reproduz o pa- 
drão de pixels sem diferenciar as cores 
presentes na imagem original. Em con- 
segiiência, a imagem obtida apresenta 
densidade igual para todas as cores, não 
representando com fidelidade o desenho 
copiado. 

É possível, porém, escrever um pro- 
grama de despejo de tela em que as co- 
res sejam representadas por diferentes 
tonalidades de cinza e preto. Esse efei- 
to é conseguido por impressões sobre- 
postas de partes da imagem, de modo 
a obter tons mais escuros ou claros de 
cinza, conforme a cor presente. Em uma 
tela com quatro cores, por exemplo, po- 
dem-se definir quatro diferentes padrões 
de pontos, para representar o vermelho, 
com um cinza bem claro; o verde, com 
um cinza mais escuro etc. Isso é feito ini- 
bindo-se o avanço da cabeça de im- 
pressão. 

Evidentemente, o tempo total de im- 
pressão é muito longo, nesse caso. Um 
despejo de tela simples demora quase 
meia hora em alguns micros; se levar- 
mos em consideração a cor, esse tempo 
será aumentado para várias horas! Um 
programa em código de máquina — co- 
mo O que apresentamos a seguir para 
duas linhas de computadores — pode re- 
solver esse problema. 


10 CLEAR 59999 

20 LET L=100: RESTORE L: 
60000 TO 60247 STEP 8 
30 LET T=0:FOR M=0 TO 7 
40 READ A:LET T=T+A:POKE N+M,A: 
NEXT M 

50 READ A:IF A<>T THEN PRINT "E 
RRO NOS DADOS DA LINHA ";L: STO 
Pp 


FOR N= 


60 LET L=L+10: NEXT N : STOP 
100 DATA 243,62,3,205,1,22,33,7 


0,639 

110 DATA 235,6,4,205,9,235,62,0 
1756 

120 DATA 50,83,235,62,0,50,84,2 
35,799 


130 DATA 6,175,221,33,85,235,19 
7,62,1014 

140 DATA4,237,75,83,235,245,205 
+15,1099 - 

150 DATA 235,245,205,30,235,241 
,126,32,1349 

160 DATA 6,203,63,203,63,203,63 
+230,1034 

170 DATA 7,214,7,237,68,221,119 
0,873 

180 DATA 221,35,241,12,61,32,22 
2,58,882 

190 DATA 84,235,660,50,84),235,1 
93,16,957 

200 DATA 205,6,7,197,33,74,235, 
6,763 - 
210 DATA 9,205,9.235,221,33,85, 
235,1032 

220 DATA 6,175,197,6,4.30,0,197 
,615 

230 DATA203,35,203,35,221,126,0 


+254,1077 
240 DATA 0,40,7,221,53,0,62,3,3 
86 


250 DATA 24,2,62,0,131,95,221,3 
5,570 

260 DATA 193,166,228,123,245,21 
5,241,215,1476 
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270 DATA 193,16,215,193,16,197, 
33,65,928 

280 DATA 235,6,5,205,9,235,62,1 
0,767 

290 DATA 215,58,83,235,198,4,50 
+B3,926 

300 DATA 235,210,115,234,62,4,2 
15,251,1326 

310 DATA 201,126,35,215,16,251, 
201,197,1242 

320 DATA 205,170,34,71,4,126,20 
3,7,820 

330 DATA 16,252,230,1,193,201,1 
97,62,11 

340 DATA 175,144,230.248,71,88, 
22,0,978 

350 DATA 203,35,203,18,203,35,2 
03,18,918 

360 DATA 121,203,63,203,63,203, 
63,111,1030 

370 DATA 38,0,25,17,0,88,25,193 
1386 

380 DATA 201,27,64,27,65,8,5,27 
«424 

390 DATA 65,8,27,65,0,13,27.42, 
247 

400 DATA 0,96,1,0,0,48,48,193,3 
86 


10 CLEAR 200,29992 

20 CLS:FOR K=0 TO 12:T=0:FOR L= 
0 TO 23:READ A 

30 POKE 29993+24*K+L,A:T=T+A 

40 NEXT:READ A:IF A<>T THEN PRI 
NT "ERRO NOS DADOS DA LINHA" ;10 
00+10*K: END 

50 NEXT 

1000 DATA 0,0,0,3,27,51,24,134, 
254,151,111,111,140,242,111,140 
+240,150,182,133,1,39,3,108,235 


1010 DATA 140,231,77,39,4,129,2 
+38,3,108,140,220,150,193,68,16 
7,140,216,48,140,214,23,0,142,2 
632 

1020 DATA 95,52,4,51,141,1,1,19 
8,191,166,228,52,6,134,4,52,2,2 
3,0,134,48,140,107,166,1996 
1030 DATA 134,167,192,108,97,10 
6,228,38,240,53,2,53,6,166,22B, 
90,193,255,38,223,198,3,52,6,28 
76 

1040 DATA 51,141,0,212,198,192, 
231,228,48,140,65,141,81,79,198 
+4,72,72,106,192,43.2,138,3,263 
7 

1050 DATA 90,38,245,173,159,160 
+2,173,159,160,2,106,228,38,230 
+134,13,173,159,160,2.106,97,38 
, 2845 

1060 DATA 207,53,6,134,10,173,1 
59,160,2,53,4,173,159,160,0.129 
+3,39,4,203,4,38,138,48,2059 
1070 DATA 140,17,32,18,5,27,42, 
4,128,1,3,1,0,2,3,0,1,2,3,2,27, 
64,230,128,880 

1080 DATA 166,128,173,159,160,2 
+90,38,247,57,134,32,109,141,25 
5,48,39,1,65,52,2,166,101,214,2 
582 

1090 DATA 182,193,1,34,1,68,230 
+224,61,211,186,31,1,230,99,84, 
84,84,109,141,255,18,39,1,2567 
1100 DATA 84,58,166,99,109,141, 
255,8,39,8,132,15,64,139,15,68, 
32,5,132,7,64,139,7,198,1984 
1110 DATA 1,74,43,3,88,32,250,1 
09,141,254,238,39,14,52,4,197,8 
5,39,5,88,235,224,32,3,2250 
1120 DATA 84,235,224,52,4,166,1 
32,164,224,84,37,3,68,32,250,17 
1,141,254,206.171,141,254,203,5 


7,3357 


Embora o código de máquina esteja 
contido em uma lista de números em 
DATA, cada linha inclui somas de ve- 
rificação, cuja finalidade é evitar que se 
cometam erros de cópia. 

Não se esqueça de observar as pre- 
cauções usuais ao rodar um programa 
em linguagem de máquina: para não 
correr riscos, armazene o programa, as- 
sim como suas versões corrigidas, em fi- 
ta ou disco, antes de executá-lo. 

Depois de testar o programa comple- 
to, rode-o com RUN e, em seguida, apa- 
gue-o (o programa em código de máqui- 
na ficará armazenado em uma porção 
protegida da memória RAM). Digite ou 
carregue seu programa de desenho e exe- 
cute-o. Para imprimir a imagem na te- 
la, chame este comando: 


RANDOMIZE USR 60000 


EXEC 30000 


E importante desligar a alimentação 
automática de linha em sua impressora, 
antes de usá-la para despejos de tela. Pa- 
ra isso, siga as instruções do manual de 
operação. 

Imprima a tela em uma fita de im- 
pressão já usada, pois isso proporciona- 
rá um contraste melhor entre as diferen- 
tes tonalidades. 








Cor ATOR oro Ro AEE To CEA 
1436, é fundamental estudar a maneira 
PR rQRTo Erro ro PET o Co pone To [O LAS o pare 
OR Tr Ta RS Loro jp res to CORTA PRO O 
grama em Pascal. O algoritmo para a re- 
o Dre oe [o] problema deve ser aperfei- 
Pera Ta Ri Preto OR LC TR Co pur A TA 
te a um programa que possa ser com- 
preendido pelo microcomputador. 

Te Rio IPA UE Tr E RATO AS 
ERES dE DR Io pe ic E OR OP STA] 
PTOS URL Tei ço O UR E CREA ATUA 
comandos aceitos pelo Pascal. Esse pro- 
cedimento não é muito diferente daquele 
que adotamos ao elaborar um progra- 
ma em BASIC. A partir de nossa expe- 
riência com a máquina, sabemos quais 
comandos são válidos, o que nos permi- 
te esboçar uma solução adaptável ao mi- 
crocomputador. 

No BASIC, diversos recursos podem 
ser utilizados em cada etapa da resolu- 
ção de um problema. Esses recursos não 
ER Aron rs po ET o) oder ira [OR L 
combinações de vários deles. Por exem- 
plo, URU precisamos repetir uma ta- 
refa várias vezes, um laço FOR... NEXT 
costuma ser uma boa saída; para uma 
tomada de decisão, basta um 
| RD SS E 
lhantes em Pascal — mas elas exigem 
um grau de refinamento maior que no 
BASIC. Neste artigo, examinaremos as 
mais simples e úteis dessas estruturas. 


WPATIBILIDADE 


Ao contrário do BASIC, o Pascal é 
definido muito precisamente, não ten- 
Pe PoRDG LEE Toro PSA TEST TR TO) 
(como as existentes entre o BASIC do 
MSX e o do TK-2000, por exemplo). As- 
ES TEOR Io LE Lire CURSA ATT URU 
cionarão em qualquer máquina cujo 
compilador aceite letras minúsculas. 

Pela mesma razão, ao escrever seus 
próprios programas, você deverá usar 
uma determinada forma para cada ope- 
ração. Para apresentar o padrão utili- 
zado na definição da forma e da sinta- 
xe do programa, pode-se recorrer a uma 
notação desenvolvida durante os anos 
60, conhecida como Forma de Backus- 
Naur (BNF), ou ao diagrama de sintaxe. 

PAC o To e [e SRS TU UU 








SI pNUIU A 
DO PASCAL 







[a 


BERRO 
Po CL ei SR =) er Uai 
LOU e po GER RUE 
EEE E AR RA rá 

PER LS Ar [o RC RO TETE 















PT Le OL decla- 
mos que se queira defi- 

EDER Rc a ii ea 
PR TOR LR UR RR CIA 
Em um diagrama de sintaxe, teríamos: 
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Na notação de Backus-Naur, a mes- 
ma definição teria a seguinte forma: 


<identific>::= <letra> | <letra ou 
era 





Cada uma dessas representa: 
mostra o significado exato da definição 
dada anteriormente. Para definir letra, 
você poderia escrever em BNF: 





<letra>:=A IBICIDIEIFIG te 
Ou seja: uma letra é definida como 
A ou BouCou Dou E ou F etc. 
As próximas estruturas-padrão serão 
Te SR DE Rr CETTE 
ma original, mas você reconhecerá f 
cilmente as equivalentes em BASIC. 











TÉCNICAS DE REPETIÇÃO 


Existem três técnicas de repetição no 
Pascal. A escolha de uma delas depende 
[e oM tecto ro R Ro ar oo eo ra OR TORO 
trole do laço. A primeira é familiar aos 
usuários do BASIC: FOR...DO. As ou- 
tras duas, que também podem ser simu- 
ladas naquela linguagem, são: WHILE... 
RE ND » 

A principal diferença entre essas téc- 
ETR CRT RS Tere To e ATO 
ponsável pelo número de repetições. Na 
forma WHILE...DO (ENQUAN- 
Nro A), as instruções seguintes se- 
cutadas enquanto determinada ex- 
pressão continuar sendo verdadeira, A 
forma REP TEN 
LIANA E SÃO DI) SBIA ES re 
ECO Eure o Sto Prato Pete oo pre ree TOR VM 
ERR Tiesto RN REDE ra Proto RT 
das quando não se sabe de antemão o nú- 
mero de repetições necessárias. Caso es- 
se número possa ser previamente defini- 
do, utiliza-se a forma FOR...DO. 


WHIL o 


Rc 



















while < expressão lógica > do < instrução > 


Esse laço é empregado quando o nú- 
mero de repetições depende de uma con- 
dição. Assim, será executado enquanto 
a condição especificada no programa 
for verdadeira. Para repetir uma s 
de instruções dentro desse laço, adi 
ne, após o do, um begin — indicando 
o início das instruções — e um end — 
indicando o término do laço. 

O exemplo que se segue mostra o uso 
do WHILE...DO. Tente escrever o al- 
fito) ido To RS Re TT go ET ER TIE 








ASR Ur 
var no, sum: integer; 
begin 
EO 
read (no) ; 
while no<>0 do 
LER 
E ERA EU 
read (no) 
Le 
writeln(sum) 
Es 





[IgE 


repeat < instrução > until < expressão 
lógica > 


As instruções entre repeat e until são 
repetidas até que a condição final se tor- 
ne verdadeira. Todas elas são executa- 
das pelo menos uma vez, pois o teste só 
é feito ao final. Ao contrário da forma 
while...do, não é necessário acrescentar 
begin e end a um conjunto de instruçõe: 
Usando-se essa técnica, o programa an- 
terior pode ser escrito da seguinte 
maneira: 








program exemplo3; 
var no, sum: integer; 
begin 
sum:=0; 
repeat 
read (no); 
sum:=sumt+no ; 
until no=0; 
write (sum) 
end 


Esse programa é mais eficiente que o 
anterior, pois, com o uso de repeat...un- 
til, economiza-se uma instrução 
read(no). Para efetuar uma soma cor- 
rente, é melhor que o programa entre di- 
retamente no laço inicializado por re- 
peat. No programa exemplo2, o progra- 
ma chega à solução por intermédio de 
uma estrutura menos adequada que a 
utilizada no exemplo3. 


No Pascal, ao contrário do que acon- 
tece no BASIC, o laço inicializado por 
FOR só pode caminhar em passos 
(STEP) de + 1 ou — 1. Adaptando o pro- 
grama anterior ao uso dessa técnica, tere- 
mos que introduzir inicialmente a quan- 
tidade de números a serem somados. 
program exemplo4; 
var no,sum, quant, 1 :integer; 
begin 

read (quant); 

sum: 1 

for 1:=1 to quant do 

begin 
read (no): 
sum:=sum+no 

end; 

writeln(sum) 

end. 


AR 


Como o BASIC, o Pascal dispõe de 
vários recursos para verificar qual deci- 
são deve ser tomada diante de determi- 
nado resultado. O primeiro deles, co- 
mum ao BASIC, é o if...then...else, ge- 


ralmente usado quando a seleção depen- 
de de um ou outro de dois eventos. Po- 
rém, se a decisão depende de um núme- 
ro maior de eventos, costuma-se utilizar 
case...of, Não há nenhuma estrutura si- 
milar a case no BASIC. 


Ra Ra 


if < expressão lógica > then < instrução 
1>else< instrução 2> 


Essa estrutura indica que, se a expres- 
são lógica for verdadeira, o programa 
executará a instrução 1; se for falsa, a 
instrução 2. Como mostra o diagrama 
FBN, o else é opcional; uma construção 
alternativa seria if... then. 


A declaração case permite ao progra- 
ma selecionar uma instrução de uma lis- 
ta de várias possibilidades. 

A forma geral de case é: 


case expressão of 


cl: instrução; 
c2: instrução; 


en : instrução 
end; 


O valor da expressão deve correspon- 
der a um dos e e ser do mesmo tipo. No 
Pascal padrão, se o valor da expressão 
não for encontrado na lista, uma men- 
sagem de erro será exibida. Em algumas 
versões, porém, o programa simples- 
mente ignorará O case. 

Note que há um end associado ao ca- 
se que não corresponde a nenhum be- 
gin. Esse tipo de estrutura não é fre- 
quente, e pode trazer inconvenientes du- 
rante a busca de um erro dentro do pro- 
grama. Geralmente, a primeira coisa 
que se faz é verificar se há correspon- 
dência entre o número de begin e end. 
A associação do end ao case provoca- 
ria uma diferença. Para contornar o 
problema, coloca-se um rótulo em ca- 
da end — por exemplo, end; (case). 

As instruções equivalentes a cada op- 
ção (c) podem ser instruções compostas, 
sempre entre um begin e um end. 

Veja este exemplo do uso de case: 








program exemploS; 

var nodia:integer; 

begin 

readin(nodia); 

if (nodia>0) and (nodia<B) 
then 


case nodia of 
:writeln('Segunda-feira'); 
iwriteln('Terça-feira'); 
:writeln('Quarta-feira'); 
iwriteln('Quinta-feira'); 
:begin 
writeln('Sexta-feira'); 
writeln('Dia de pagamento!) 
end; 
6,7:begin 
writeln('Fim-de-semana'); 
writeln('Descanso'); 
end; 


Width 


end 
else begin 

writeln('Use valores'); 
writeln('entre 1 e 7') 
end; 

end. 


Em algumas variações do Pascal, os 
rótulos 1, 2, 3, 4, 5, 6e 7 devem ser co- 
locados entre parênteses, fugindo, por- 
tanto, do Pascal padrão. Na verdade, 
em algumas implementações para a 
adaptação ao sistema BASIC, a mudan- 
ça na sintaxe é necessária. 

O programa exemploS mostra co- 
mo superar um problema bastante fre- 
quente no uso do case. Muitas vezes, o 
identificador pode assumir valores não 
encontrados entre os rótulos de case, o 
que provocaria uma interrupção e uma 
mensagem de erro. Assim, utilizamos 
um desvio condicional if...then...else 
para mudar o curso do programa, caso 
os valores de nodia não se encontrem 
no intervalo apropriado. Observe tam- 
bém que foram empregados rótulos com 
mais de um valor e instruções compos- 
tas após alguns deles. 


Jo Ra o e 


Com um conhecimento mais detalha- 
do dos procedimentos disponíveis no 
Pascal, podemos passar ao exame de um 
programa escrito nessa linguagem. 

O programa que apresentamos a se- 
guir verifica se uma palavra ou frase é 
um palíndromo — ou seja, se ela pode 
ser lida de trás para frente sem sofrer al- 
teração (como “'radar” ou ““Socorram- 
me, subi no ônibus em Marrocos”), ig- 
norando-se os espaços em branco e os 
sinais de pontuação. Suponhamos que 
você queira testar se esta frase é um pa- 
líndromo: 











Arara é ave rara 
O algoritmo inicial poderia ser: 


begin 
leia uma cadeia de caracteres 
teste se é um palíndromo 
end 


Essa frase inicial é bem simples, con- 
sistindo só de duas etapas, além do be- 
gin e do end requeridos pelo Pascal. Po- 
deríamos elaborar um algoritmo mais 
detalhado para a primeira etapa: 


início 
leia o número de caracteres (n) 
leia os caracteres colocando-os na 
matriz A(i) 

fim 





Traduzindo essa primeira etapa pa- 
ra o Pascal, temos: 


readin(n) 
for 1:=1 to n do read(alil); 


Passando para a segunda etapa, che- 
gamos ao seguinte algoritmo: 


início 
faça crsc igual a 1 
faça decr igual a n 
enquanto crsc <decr faça 
se afersc] é pontuação então 
incremente crsc 
senão 
se a[decr] é pontuação então 
decremente decr 
senão 
se a[crsc] = a[decr] então 
incremente crsc 
decremente decr 
senão 
faça a variável booleana 
(pal) igual a false 
fim 


Esse algoritmo poderia ser refinado 
para o Pascal desta maneira: 


crsc:=1; 

decr : 

while (crsc < decr) and pal do 

if (alcrsc]=" "Jortalersc] 

ortalcrsc]=",'Jortalcrsc]- 
then croc:=croc+l 

else 

af(aldecr ]=" "Jor(aldecr ) 
or (aldecr |=*,'Jor (al decr | 
then decr:-decr-l 















else 
1f alcrsc]-aldecr ) then 
begin 
-crsc+; 
:cdecro 1; 





else pal:-false 


Precisaríamos de uma terceira etapa, 
na qual o programa mostraria o seguinte 
resultado: 


se pal é igual a true então 
escreva ““palíndromo” 
senão 
escreva ''não é palíndromo”” 


o que, em Pascal, corresponderia a: 


1f pal then 
writeln('palindrome"); 

else 

writeln('não há palíndrome") 





Refinando algumas partes anteriores 
e reunindo-as, chegamos ao seguinte 
programa em Pascal: 


program exemplo6; 

const comp=30; 

var a:array [1..compl] of char; 
i,n,crec,decr : integer; 
pal : boolean; 

begin 

pal:=true; 

readin(n); 

for 1:=1 to n do read(al1)); 





while (cresc < decr) and pal do 
if(alcrsc]=" * Jor(alcrsc]-='.') 
or(alcrsc]=",'Jor(a[crsc)=""*) 
then crsc:=crsc+1 
else 
if(a[decr)=" 
or(aldecr] 
then decr: 
else 
1f alcrsc]=aldecr) then 
begin 
crsc:=crsctl; 
ecr-l; 





"Jor (aldecr )=* 
“Jor taldecr |- 
ecr-1 











writeln('palindrome') 

else 

writeln('nao ha palindrome') 
end. 


O Pascal apresenta um tipo de variá- 
vel desconhecido do BASIC, a variá- 
vel booleana, que não assume valores 
numéricos nem guarda caracteres. Ela 
assume o valor de resultados lógicos — 
true (verdadeiro) e false (falso). Note 
que é desnecessário dizer: 


if pal = true then, 





bastando apenas: 


if pal then... 


REFINANDO O PROGRAMA 


Se o seu sistema Pascal dispõe de al- 
gumas formas adicionais de manipular 
dados, diversos aperfeiçoamentos po- 
dem ser incorporados ao programa. En- 
tretanto, como está, ele deve funcionar 
na maioria dos sistemas. 

A variável booleana é usada para des- 
viar o programa do laço while quando 
se determina que afersc] não é igual a 









aldecr].) Tudo o que precisa ser feito é 
tornar pal igual a false quando o teste 
alersc]=aldecr] apresentar esse resul- 
tado. No momento em que o programa 
voltar para o cabeçalho do laço, encon- 
trará um desvio condicional dentro de 
while. A técnica empregada em BASIC 
seria a seguinte: 


140... 
150 FOR 1-1 TO N 





190 TE A(CRSC) 
260 


2 (DECR) THEN 





230 NEXT I 

240 PRINT "PALENDHOME” 
250 GOTO 2/0 

260 PRINT "NAO E 
270 END 


Um algoritmo melhor estruturado 
poderia ser apresentado assim: 


PAL ENDROME" 








defina o conjunto pontuaç 








se afersc] estiver em pontuação então 
incremente crsc 

senão 

se a[decr] estiver em pontuação então 
decremente decr 

senão 


Uma declaração desse tipo economi- 
zaria exaustivas comparações do tipo: 


if (aferse' 
(afersc] 






O Pascal aceita a definição de con- 
juntos (alguns compiladores mais 
ples podem não aceitar essa declaração). 
Assim, modifique o programa anterior 
aproveitando essa definição: 





program exemplo7; 

const comp=30; 

type carac = * *..'z!; 
simb = set of carac; 

var a : array(l..comp) of char; 
i,n,crsc,decr integer; 
pal boolean; 
pont : simb; 

begin 

DonBsmpO to ha a ip 









n; 
(crsc<decr) and pal do 


while 
if a[crsc] in pont then 
crsc:=crsc+1 

else 

1f aldecr] in pont then 









decr:=decr-l 
else 

if alcrsc]=a[decr] then 

begin 

crsc:=crsctl; 

decr:=decr-1; 

end 

else pal:=false; 

1f pal then 

writeln('palindrome') 

else 

writeln('nao ha palindrome') 
end. 


Finalmente, temos a melhor estrutu- 
ra para o problema do palindromo, ori- 
ginalmente dividido em três etapas: 


* entrar a cadeia de caracteres 
* verificar se ela é um palíndromo 
* mostrar o resultado 


Cada etapa foi refinada em etapas 
menores até que os resultados fossem as 
próprias declarações em Pascal e, jun- 
tas, formassem um programa. No nos- 
so caso, o programa era bem simples. 
Porém, em situações mais complexas, é 
aconselhável construí-lo por partes se- 
mi-independentes (procedures) e testá- 
las separadamente. Um procedure é uma 
sub-rotina nomeada com um rótulo e 
declarada junto com as variáveis. Du- 
rante a execução do programa, basta 
chamar o procedure através de seu ró- 
tulo, como se fosse um comando. Essa 
técnica permite modularizar os progra- 
mas, tornando-os bem estruturados. 

Há dois grupos de sistemas Pascal 
Um deles usa compiladores em código 
específico — ou seja, escritos exclusiva- 
mente para as máquinas em que irão ro- 
dar. Como várias máquinas são simila- 
res, usando sistemas operacionais CP/M 
ou MS DOS, as adaptações de uma pa- 
ra outra são muito simples. 

O segundo grupo é conhecido como 
Pascal UCSD (Universidade da Califór- 
nia, em San Diego). Nesse sistema, O 
Pascal é compilado para o código de um 
computador hipotético denominado má- 
quina p, e seu código é conhecido por 
código p. Isso significa que o compila- 
dor é o mesmo para todas as máquinas 
Na verdade, o UCSD é escrito em Pas- 
cal, possuindo um programa específico 
para cada máquina. Sua vantagem é a 
incrível compatibilidade. Porém, a ve- 
locidade da compilação nesse sistema é 
bem menor que a proporcionada pelo 
compilador específico. 


ELE 


Se você possui um sistema Pascal pa- 
ra seu microcomputador, tente colocar 
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em execução alguns dos exemplos ante- 
riores. Para isso, depois de ter acessa- 
do o compilador Pascal, digite o progra- 
ma e compile-o. Os programas devem 
funcionar para qualquer compilador 
que aceite letras minúsculas. 

Os microcomputadores que usam o 
CP/M dispõem de um compilador po- 
deroso, o TURBO PASCAL. Para aces- 
sá-lo, basta chamar do disquete o nome 
TURBO, seguido de <ENTER>. Vo- 
cê irá obter a seguinte saudação na tela: 





TURBO Pascal system Version 2.004 
CP/M-80, Z80 

Copyright (C) 1983, 1984 by 

BORLAND Inc. 

Include error messages (Y/N)? 


Pode-se optar por mensagens de e 
ro escritas por extenso (Y) ou simples- 
mente descritas pelos seus códigos (N). 
Se você estiver iniciando seu contato 
com o Pascal, digite Y e <ENTER> 
O sistema apresentará um menu: 


Logged drive: 


Work file: 

Main file: 

Edit Compile Run Save 

eXecute Dir Quit compiler Options 


Text: 
Free: 


























































































Para iniciar qualquer trabalho, você 
terá que digitar W seguido do nome de 
um arquivo. Se ele já existir no disque- 
te, o computador irá trazê-lo para a me- 
mória; caso contrário, criará um arqui- 
vo com esse nome. 

Suponhamos que você queira criar O 
arquivo exemplo7. Tendo escrito esse 
nome seguido de <ENTER>, entre no 
modo de edição digitando a letra E. 

No manual de instruções que acom- 
panha o compilador, você encontrará 
orientações para movimentar O cursor 
por meio das teclas. Recorra a ele para 
escrever seu programa. Ao terminar, 
saia do modo de edição usando o co- 
mando apropriado (veja manual). An- 
tes de tentar compilar o programa, guar- 
de-o no disquete digitando S. 

Para compilar o programa, pressio- 
ne a tecla C. Caso haja algum erro, o 
compilador indicará em que posição ele 
ocorreu. Depois de corrigi-lo, tente 
compilar o programa novamente. Se o 
computador indicar que completou a ta- 
refa, execute o programa com X 

Lembre-se de que cada declaraçã 
precisa ser seguida de um ponto e vír- 
gula, exceto quando depois dela houver 
um end. Uma instrução composta deve 
vir entre um begin e um end. Se você co- 
locar um ponto e vírgula imediatamen- 
te após um while, um repeat ou um for, 
o computador entenderá que aquele é o 
fim da declaração e ignorará os coman- 
dos seguintes a serem repetidos. 





ORGANIZAÇÃO 
DE PROJETOS 


Se você deseja montar e controlar 
qualquer tipo de projeto — da 

reforma de um automóvel à compra de um 
imóvel —, utilize este programa 

para se organizar e economizar tempo. 


Algumas vezes temos que realizar ta- 
refas que incluem várias ações, cada 
qual exigindo um tempo diferente de 
execução, e todas dependendo do suces- 
so das etapas anteriores. Sem uma boa 
dose de organização e planejamento, é 
quase impossível saber quais etapas exe- 
cutar, e em que ordem. A situação fica 
ainda mais difícil quando há um prazo 
para o término da atividade. 

Se calcularmos o tempo de execução 
de todas as ações envolvidas, veremos 
que há sempre uma certa sequência de 
eventos que determina o tempo total do 
projeto. A essa segiiência chamamos ca- 
minho crítico. Qualquer atraso ou 
adiantamento no caminho crítico se re- 
fletirá numa alteração do tempo toma- 
do pelo projeto. Por outro lado, uma 
atividade que não pertença a essa se- 
quência especial poderá ser atrasada sem 
causar alterações no tempo total. 

















O cálculo do caminho crítico não é 
tão fácil se estivermos limitados ao pa- 
pel e caneta, mas, com o auxílio do com- 
putador e do programa que aqui forne- 
cemos, torna-se bem mais simples e rá- 
pido. O programa permite a construção 
de um banco de dados contendo todas 
as atividades, seu tempo de execução (ou 
estimativas, caso não se conheça o tem- 
po real) e a ordem em que elas deverão 
ser executadas. Baseado nessas informa- 
ções, calcula o caminho crítico bem co- 
mo o tempo livre das atividades não- 
críticas (aquelas que não pertencem à se- 
quência especial). Esse último dado in- 
dica ao usuário por quanto tempo é pos- 
sível interromper o projeto sem alterar 
seu prazo final. 

Para o cálculo do caminho crítico, 
utilizam-se as técnicas de programação 
conhecidas como CPM (do inglês Criti- 
cal Path Method, Método do Caminho 
Crítico), CPA (do inglês Critical Path 

Analysis, Análise do Caminho Crítico) 
e PERT (do inglês Program Evaluation 
and Review Technique, Técnica de Ins- 
peção e Estimativa de Projeto). 

Não só projetos empresariais, mas 
qualquer projeto, por menor que seja, 
pode ser avaliado pelo programa. 

Vamos tomar como exemplo um pro- 














CAMINHO CRÍTICO 
REDE PERT 
ATIVIDADES, TEMPOS 
E EVENTOS 
CÁLCULOS 





jeto que envolve a coordenação de vá- 
rias etapas diferentes, muitas vezes sob 
prazos rigorosos: a compra de uma ca- 
sa. O diagrama da página 1452 mostra 
como deveria ser o fluxo PERT para a 
execução dessa tarefa. Os círculos assi- 
nalam os eventos, ou seja, momentos 
entre atividades cujo tempo depende de 
outras. Eles marcam, assim, o início ou 
o fim de uma atividade. As atividades 
estão descritas ao longo das linhas que 
ligam os eventos, junto com as estima- 
tivas do tempo necessário. 

Até aqui, muitas atividades parecem 
incertas e várias linhas se cruzam. Em- 
bora o diagrama contenha toda a infor- 
mação necessária, ainda é difícil saber 
que atividades merecem prioridade. Não 
se pode garantir, também, que o proje- 
to seja concluído dentro do prazo esti- 
pulado, Além disso, à medida que avan- 
çamos no projeto de aquisição da casa, 
é possível que surjam outros fatores ca- 
pazes de afetar as expectativas iniciais, 
exigindo que o diagrama seja modifica- 
do e atualizado, 

Nosso programa se encarrega de to- 
das essas questões. Na primeira parte, 
apresentada a seguir, cuida do banco de 
dados das atividades; na segunda, cal- 
cula o caminho crítico. 

















5 BORDER 
cLs 

7 POKE 2 
20 

10 CLS 
100: 
LET se=-1 
12: LET c 
LET ee-0 
12 LET 227 
LET p$="1 
atividad: 
14 DIM wS 





Nenhuma" +aS+ 


o”: LET q 
16 LET wS 
SAR ESTE 
pS+" texto 
18 LET wS 
NTO NÃO Di 
22 DEF EN 
DEF EN z( 
26 DIM a( 
30 DIM w( 
x*(X<1)+AI 
DEF EN x 
15.9402-x 
688.472)) 
34 DEF EN 
"(TO 6 
36 DEF FN 
256 
38 DEF EN 
((6-x)/2) 
"( TO INT 
40 DIM el 
42 DIM x( 
44 DIM s( 
u(mh): DI 
DIM us (mh 
z (mh) 
46 DIM p( 
48 DEF EN 
*(x>D0): Ri 
50 CLS 
*"2=apaga 
ne evento 
60 PRINT 


LET me 


O: PAPER 4: INK O: 


3658,8: POKE 23609, 
LET false=-0: LET ma= 
100: LET mh=212 
: LET fe=-1: GOSUB 
k=false: LET aa=0 
soro 50 

"9999: LET tru 
ntroduza ": LET aS=" 
e” 

(85,32): LET wS(1)=" 
=PRECEDE o event 
S (2) =" EXCEDEU” 
(3)="VOCÊE NAO PODE U 
NUMERO LET wS(4)= 
para este(a) ” 
(5)-aS+"REFERE A EVE 
EFINIDO ” 
a(x)=x*(x<0) 

x) =x* (x>0) 

ma): DIM g(ma) 

ma): DEF EN w(x)=ABS 
BS (2-x)*(x>1) 

(x) =x*(2.37572+x%xA( 
*x*(184.744-x*x* 
)/1.20667 
IS (x)=(STRS 
) 

b(x)=x-INT 














QO+" 


(x/256)* 





pS(x)="--"(€ TO INT 
3: DEF EN aS(x)=" 
((6-x)/2)) 

me) 

8) 

mh): DIM £(mh): DIM 
M t(mh): DIM n(mh) : 
+20): DIM y(mh): DIM 


mh): DIM q(mh) 
u(x)=u(ABS x+(x=0)) 
ETURN 

PRINT "l=define ";aS 
";a$: PRINT "3=defi 
"'"4=apaga evento” 
"S=salva no gravador 





"'"6=carrega do gravador”'"7= 
testa gravador”'"B=mostra det 
alhes” 
62 PRINT "9=SAIDA”'"10=verifi 
ca e ordena a rede” 
64 PRINT "1l=calc com tempos 
medios” 
66 PRINT "12=calc com 
zas”": PRINT 
70 INPUT 1: 
THEN STOP 
72 1F 1<l 
et=rsts;” 
coro 114 
74 1F 1>10 AND NOT ck THEN 
PRINT "FACA VERIFICACAO DE DA 
DOS PRIMEIRO”: GOTO LI4 
76 IF aa=0 AND (1>7 OR t=5) 
THEN PRINT "IMPOSSIVEL - NAO 
FOI INTRODUZIDA NENHUMA” ;aS: 
coro 114 
80 IF t>7 THEN 
82 IF t=6 THEN 
=6 
Ba IF t 
o arquivo 
£s: GOTO 
B6 LET f5 IF t>2 
LET fS="evento” 
88 PRINT pS;£S;” 
PRINT “ou zero para sair "; 
90 INPUT u: PRINT u: LET u= 
INT u: IF u=0 THEN GOTO 50 
92 IF u<l OR ubzz THEN PAINT 
wS(3): GOTO 88 
94 IF t>2 THEN 
96 GOSUB 450: 
98 IF (t=2 OR 
) OR zz<u(x)) 
CE NUNCA USOU 
Goro 114 
100 GOSUB 20*(L=1)+100*L+900%( 
t-10)*(t>10) 
112 GOTO 50 


incerte 
PRINT E: IF t=9 


OR t>12 THEN PRINT 
NAO RECONHECIDO" : 


goto 
CLEAR 


100 
LET L 


»4 THEN PRINT "Nome d 
";: INPUT f$: PRINT 
100 


us: 


THEN 





numero” 





LET u=-u 
LET ck=false 
t=4) AND (0=u(x 
THEN PRINT "VO 
STE NUMERO” : 


114 FOR t=1 TO 500: NEXT t: 
soro 50 

120 IF O<u(x) AND zz>=u(x) 
THEN GOSUB 942: GOSUB 932: 
Goro 130 

122 IF aa=ma THEN PRINT wS(2) 
:£S: RETURN 


124 LET aa=atl: 
LET u(x)=u 

130 PRINT wS(4);fS;":";: INPUT 
uS(x): PRINT uS(x): LET xa=x 
140 PRINT p$;"iniciar evento, 
finalizar evento”;: INPUT s,£: 
PRINT s;” ";f: LET s=INT 8: 
LET t=INT £ 

142 IF,s<l OR s>zz OR f<1 OR £ 
>zz THEN PRINT w$(3): GOTO 
140 

150 LET u=-s: GOSUB 450: 
x)<0 THEN GOTO 156, 

152 IF eesme THEN PRINT 
;"eventos”: GOTO 140 

154 GOSUB 350 

156 LET s(xa)=x 

160 LET u=-f: GOSUB 450: 1F u( 
x)<0 THEN GOTO 166 

162 IF ee=me THEN PRINT 
;"eventos”: GOTO 140 

164 GOSUB 350 

166 LET f(xa)=x 

170 PRINT p$S;" 
ara executar 
PRINT tí(xa) 
172 IF L(xa)<O THEN 
O PODE 8 FETTO com 
CIDADE”: GOTO 1/0 
180 PRINT "Introduza 
a de tempo com 90% 
a”: PRINT "Pode ser 
em INPUT n(xa) 

) 

182 IF n(xa)<t(xa) THEN PRINT 
"ISTO NAO E COMPATIVEL COM O 

TEMPO PROVAVEL”: GOTO 170 

190 RETURN 

200 FOR b=1 TO aa 

THEN LET a=b 
220 NEXT b: LET 


LET a(aa)=x: 


IF u( 


wS(2) 


wS (2) 







empo provavel p 
, INPUT E (xa) 

PRINT "NA 
ESTA VELO 





estimaLiv 
de certez 
executado 
PRINT n(xa 





IF x=a(b) 


a(a)=a(aa) 





LET u(x)=zz+l: LET aasaa-l: 
RETURN 

300 IF u(x)<0 THEN GOSUB 946 
GOSUR 933: GOTO 330 

310 IF ee=me THEN PRINT wS(2) 
:E9: RETURN 

312 GOSUB 350 

5 CLEAR 

10 MA = 100:ME = 100:FA = 0:MH 
= 212: GOSUB 12:CK = FA: GOTO 5 
o 

12 TR = 1:Z$ = CHARS (13):DOS = 
Z5 + CHR$ (4):ZZ = 32766:0TS 
= CHRS (34) 

14 PS = "FORNECA ":AS = " ATIVI 
DADE ” 

16 DIM WS(5):WS$(1) = "NENHUMA” 
+ AS + ” PRECEDE EVENTO" :WS(2) 
= "EXCEDEU " 

18 W$(3) = "NAO PODE USAR ESTE 
NUMERO” :WS (4) = PS + "TEXTO PAR 
A ESTE(A)” 


20 WS(5) = ” REFERE A EVENTO NA 
O DEFINIDO ” 

22 VEF ENA(X) =X * (X< 0): 
DEF EN ZOO) =X*(X>ÕO0) 

28 DIM A(MA),G(MA) 


30 DIM W(MA): DEF EN W(X) = 


ABS (X) * (X< = 1) + ABS (2 
de SR O AM) 
32 DEF EN X(X) = X * (2.37572 


+X*%* (15.9402 - KAKA 
184.744 - x * X * 688.472))) / 
1.20667 

40 DIM E(ME) 

44 DIM S(MH),F(MH),U(MH),T(MH) 
+NCMH) US (MH), Y (MH), Z (MH) 

46 DIM P(MHB),O(MH) 


48 DEF FN U(X) = U( ABS (X) + 
(X = 0)) * (X > 0): RETURN 

50 HOME PRINT TAB( 7);"MENU 
PRINCIPAL”: PRINT PRINT "01 
= DEFINE";AS: PRINT "02 - DELET 
A";AS: PRINT "03 = DEFINE EVENT 
Or: PRINT "04 = DELETA EVENTO” 
52 PRINT "05 = SALVA DADOS 






RINT "OG = CARREGA DADOS” : 
T "07 = DELETA ARQ DO DIS 


RINT "08 = MOSTRA DETALHES” 

54 PRINT "09 = REINICIA” 

56 PRINT "10 = VERIFICA E ORDE 

NA REDE” 

58 PRINT "11 = CALC COM DURACA 

O MEDIA” 

60 PRINT "12 = CALC COM INCERT 

EZAS”: PRINT "13 = SAIDA PARA " 

62 IF KK$ = "S” THEN INVERSE 
PRINT " IMPRESSORA”: NORMAL 

63 IF KKS < > "S” THEN INVER 

SE : PRINT "TELA": NORMAL 

64 PRINT "14 = TERMINA” 

66 PRINT : PRINT :T = O: INPUT 
"SUA OPCAO (1-14) ";T 

68 IF T= 14 THEN INPUT "TEM 

CERTEZA (S/N)? ";ANS: IF LEFTS 
(ANS,1). = "S” THEN HOME END 

69 IF T=130RTx=h14 THENJIO 

o 

72 IF T=9 THENO900 

74 1FT<I1ORTO>iI3THEN PR 


INT "CODIGO”;T;"NAO RECONHECIDO 
”: GOTO 114 


76 IF T > 10 AND NOT (CK) THE 

N PRINT "USE OPCAO (10) PRIMEI 

RO”: GOTO 114 

78 IF AA - O AND(T>7ORT = 
5) THEN PRINT "IMPOSSIVEL - N 

ENHUMA” ;AS: GOTO 114 

80 TE T>7 THENIOO 

82 TFT = 6 THEN CLEAR :DOS = 
CHRS (13) + CHAS (4):T = 6 

B4 IF T> 4 THEN HOME PRINT 
“FORNECA NOME DO ARQ ";: INPUT 
ES: GOTO 100 

B6 FS = AS: IF T > 2 TRENFS = 

” EVENTO” 

BB HOME PRINT PS;"NUMERO DO( 

AJ";FS: PRINT "OU ZERO PARA TER 

MINAR” 

90 INPUT U:U = INT (U): IF U 

= O THEN 50 

92 IFU<IORU>gZZ THEN PR 

INT WS$(3): FOR E = 1 TO 1000: N 

EXT : GOTO B8 

94 IFT>2THENU- -U 

96 GOSUB 450:CK = FA 

98 IF (T=20RT=4)aAND(O 


= U(X) OR ZZ < U(X)) THEN PRIN 
T "VOCE NUNCA USOU ESTE NUMERO” 


: GOTO 114 

100 IF KK$ = "S” AND (T > 7 AN 
DT < 12) THEN PRINT DOS”PR$1” 
101 HOME : ON T GOSUB 120,200, 
300,400,500,600,700,800,900,100 
0,2000,3000,960 


105 IF KKS = "8" AND (T > 7 AN 
DT < 13) THEN PRINT DOS"PR$ O 
112 coTo 50 

114 FORT = 1 TO 1000: NEXT 
corto 50 

120 IF O < U(X) AND Zz > = U( 
X) THEN GOSUB 942: GOSUB 932: 
GoTo 130 

122 IF (AA = MA) THEN PRINT W 


$(2);F$: RETURN 


124 MA = AA + L:A(AA) = X:U(X) 
=U 
130 PRINT W$(4);FS: INPUT US(X 


J:XA = X 

140 PRINT P$S;"EVENTO INICIAL , 
EVENTO FINAL”: INPUT S,F:S = 
INT (S):F = INT (F) 


142 IFS<10RS>ZZORF< 
1 OR F > ZZ THEN PRINT WS(3): 
Goto 140 

150 U = - S: GOSUB 450: IF U(X 


) < O THEN 156 

152 IF EE = ME THEN PRINT WS( 
2); "EVENTOS": GOTO 140 
154 GOSUB 350 

156 S(XA) = X 

160 U = - F: GOSUB 450: 
) < O THEN 166 

162 IF EE = ME THEN 
2); "EVENTOS": GOTO 140 
164 GOSUB 350 

166 F(XA) = X 

170 PRINT PS;"TEMPO PROVAVEL D 
E EXECUCAO”: INPUT T(XA) 

172 IF T(XA) < O THEN PRINT " 
MUITO RAPIDO !!”: GOTO 170 


IF U(X 


PRINT WS( 


180 PRINT "ESTIMATIVA COM 90% 
DE CERTEZA”: PRINT "PODE SER FE 
ITO EM”: INPUT N(XA) 

182 IF N(XA) < T(XA) THEN PRI 
NT "NAO CONFERE COM O TEMPO PRO 
VAVEL”: GOTO 170 

190 RETURN 

200 FOR B = 1 TO AA: IF X=ãaA( 


B) THEN A = B 
220 NEXT B:A(A) 
Z2z + 1:AA = AA - 1: RETURN 

300 IF U(X) < O THEN PRINT "E 
VENTOS”:XP = U(X): GOSUB 950: P 
RINT US(X): GOTO 330 


= A(AA):U(X) = 


310 IF EE = ME THEN PRINT W$( 
2):;FS: RETURN 

312 GOSUB 350 

330 PRINT W$(4);FS: INPUT US(X 
):S(X) = 0: RETURN 

350 EE = EE + L:E(EE) = X:S(X) 
mo = LP)! me O sU() e 

360 T(X) = O:N(X) = O:US(X) = " 
”: RETURN 

400 Z =X: FORF = 1 TO EE: IF 
E(F) = Z THEN E = F 

420 NEXT F:E(E) = E(EE):U(Z) = 
Zz + 1:EE = EE - 1: RETURN 
450 Z = U- INT ((U-1)/ MH) 


*MH:Y = 2:X = 0 
460 IF X = O AND (0 = U(Z) OR 


Zz + 1 = U(Z)) THEN X = Z 

470 IF U = U(Z) THENX=Z: RE 
TURN 

480 1F Y = 1 ORU(Z) = O THEN 
RETURN 

490 Z=Z+Y-MHR* INTC((Z+ 


MR MS E e 


INT ((Y + Y —- 1) / MH): GOTO 4 
so 

500 HOME : PRINT DOS"OPEN "FS 
505 PRINT DOS"DELETE "FS 

510 PRINT DOS"OPEN "FS 

515 PRINT DOS"WRITE "FS 

520 PRINT MA;ZS;ME;ZS:;MH;ZS;AA 
128; EE;Z8:CK 

52% IF CK THEN PRINT SE;ZS;FE 
530 FORA = 1TOAAX=aA(A) 


535 PRINT X;ZSU(X)Z5S(X)Z5F (X) 
ASTAX) ZSN(X) ZSG (A) Z5US (X) 


540 NEXT A 

s44 FOR E = 1 TO EE:X = E(E) 
550 PRINT X;Z5U(X)Z5S(X)Z5F (X) 
ZST(X) ZEN(X) ZSUS (X) 

455 NEXT É 

560 FOR X = 1 TO MH: TF U(X) 
22 + À PHEN PRINT X 

565 NEXT X: PRINT O 

5720 PRINT DOS"CLOSE "FS 

575 RETURN 


ha 


4 MAXFILES=3 

6 OPEN "CRT:” FOR OUTPUT ASg&1 

8 OPEN "LPT:" FOR OUTPUT AS42 
10 CLEAR 2000:MH=212:ME=100:MA= 
100:FA=0:GOSUB 20:CK=FA:GOTO 14 





o 

20 Z2=9999:TR=-1:P$=" INTRODUZA 
":A$=" ATIVIDADE”: ES=CHR$ (13) 
30 DIMWS (5) :W$(1)="NENHUMA" +AS+ 
” PRECEDE O EVENTO” :W$(2)="EXCE 
DEU” 

40 W$(3)="VOCE NAO PODE USAR ES 
TE NUMERO" :W$ (4) =P$+"TEXTO PARA 
ESTE(A) ” 

50 W$(5)="REFERE A EVENTO NAO D 
EFINIDO” 

60 DEFFNA(X) =-X*(X<0) :DEFFNZ(X) 
==X*(X>0) 

70 DIM A(MA),G(MA) 

80 DIM W(MA) : DEFFNW(X) =-ABS (X) * 
(X<=1)-ABS(2-X)*(X>1) 

90 DFFNX(X)=X*(2.37572+X*X* (15. 
9402-X*X*(184.744-X*X*688.472)) 
)/1.20667 

100 DIM E(ME) 

110 DIM S(MH),F (MH) ,U(MH),T(MH) 
+N(MH) US (MH), Y (MH), Z (MH) 

120 DIM P(MH),Q(MH) 

130 DEFFNU(X)=-U(ABS(X) - (X=0))* 
(X>0) : RETURN 

140 CLS:PR=1:LOCATE 12,1:PRINT” 
MENU PRINCIPAL”: PRINT"1=DEFINE” 
7AS;” OU EVENTO” : PRINT" 2=APAGA” 
:A$;” OU EVENTO” 

150 PRINT"3=SALVA DADOS” : PRINT” 
4=CARREGA DADOS” : PRINT"5=IMPRIM 
E DETALHES": PRINT" 6=TERMINA” 
160 PRINT"7=VERIFICA E ORDENA A 
REDE” 

170 PRINT"B=CALC COM TEMPOS MED 














I0s” 
180 PRINT"9=CALC COM INCERTEZAS 


190 T$=INKEYS:IF TS<"1” OR TS>” 
9” THEN 190 

200 T=VAL(TS):PRINT T 

210 IF T>7 AND NOT(CK) THEN PRI 
NT”FACA VERIFICACAO (7) PRIMEIR 
o":goTo 380 

220. IF AA=0 AND (T>40 OR T=3) T 
HEN PRINT” IMPOSSIVEL - NAO FOI 
INTRODUZIDO” ;A$:GOTO380 


230 IF T>4 THEN 350 

240 IF T=4 THEN CLEAR 2000:T=4 
250 IF T>2 THEN PRINT"NOME DO A 
RQUIVO” : INPUTFS:GOTO 350 

260 CLS:PRINT A$;” OU EVENTO (A 
/E) ?"i 

270 TS=INKEYS:IF TS<>"A” AND T$ 
<>"E” THEN 270 

280 PRINT T$:IF TS="A” THEN FS= 
AS ELSE F$=" EVENTO” 

290 PRINT:PRINT P$;FS;” NUMERO” 
:PRINT"OU ZERO PARA SAIR” 

300 INPUT U:U=INT(U):IF U=0 THE 
N 140 

310 IF U<X1 OR 
S(3):GoTo 280 
320 IF T$="E” THEN U=-U 

330 GOSUB 700:CK=FA 

340 IF(T=2 OT T=4)AND(O=U(X) OR 
ZZ<U(X) THEN PRINT"VOCE NUNCA 
USOU ESTE NUMERO" :GOTO 380 


350 ON T GOSUB 390,590,750,830, 
890,960,1070,1550,1660 

360 IF T<3 THEN 290 

370 GoTo 140 

380 FOR T=1 TO 1000:NEXT T:GOTO 
140 

390 IF FS<>AS THEN 620 

400 IF O<U(X) AND ZZ>=U(X) 
B 1030:GOSUB 1000:GOTO 430 
410 IF AA=MA THEN PRINTWS(2);FS 
: RETURN 

420 AA=AM+I:A(AA) =K:U(X) =U 

430 PRINT WS(4);FS:INPUT US(X): 
XA=X 

440 PRINT PS;"INICIAR EVENTO, F 
INALIZAR EVENTO": INPUT S,F:S=IN 
T(S) :F=INT(F) 

450 IF S<l OR S>ZZ OR F<l OR F> 
ZZ THEN PRINT W$(3):GOTO 440 
460 U=-S:GOSUB 700:IF U(X)<O TH 
EN 490 

470 IF EE=ME THEN PRINT W$(2);" 
EVENTOS" :GOTO 440 

480 GOSUB 660 

490 S(XA)=X 

500 U=-F:GOSUB 700:IF U(X)<0 TH 
EN 530 

510 IF EE=ME THEN PRINT W$(2);” 
EVENTOS" :GOTO 440 

520 GOSUB 660 

530 F(XA)=X 

540 PRINT P$;"TEMPO PROVAVEL PA 
RA EXECUTAR": INPUT T(XA) 

550 IF T(XA)<O THEN PRINT"NAO P 
ODE SER FEITO COM ESTA VELO 
CIDADE” :GOTO 540 

560 PRINT"INTRODUZA ESTIMATIVA 
DE TEMPO com 90% DE CERTEZA”: 
PRINT"PODE SER FEITO EM”: INPUT 


U>ZZ THEN PRINT W 
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N(XA) 

570 IF N(KA)<T(XA) THEN PRINT ” 
NAO E COMPATIVEL COM O TEMPO 
PROVAVEL”:GOTO 540 

580 RETURN 





10 PCLEAR 1:CLEAR 2000:MH=212:M 
E=100:MA=100:FA=0:GOSUB 20:CK=F 

A:GOTO 140 

20 22=9999: TR=-1;P$=" INTRODUZA 
";A$=" ATIVIDADE": ES=CHRS (13) 
30 DIMWS (5) :WS (1) ="NENHUMA" +AS+ 
” PRECEDE O EVENTO” :W5(2)="EXCE 

DEU” 

40 W$(3)="VOCE NAO PODE USAR ES 
TE NUMERO" :W$ (4)=PS+" TEXTO PARA 
ESTE(A) " 

50 W$(5)="REFERE A EVENTO NAO D 
EFINIDO" 

60 DEFENA(X)=-X*(X<0) :DEFENZ(X) 
=-X*(X>0) 

70 DIM A(MA),G(MA) 

80 DIM W(MA) :DEFENW (X)=-ABS (X) * 
(X<=1)-ABS(2-X)*(X>1) 

90 DFENX(X)=X*(2.37572+X*K" (15. 
9402-X*X*(184.744-X*X*688.472)) 
)/1.20667 

100 DIM E(ME) 

110 DIM S(MH),F (MH), U(MH),T(MH) 
+ N(MH) US (MH) Y (MH), Z (MH) 

120 DIM P(MH),O(MH) 

130 DEFFNU(X) =-U(ABS (X) 
(X>0) : RETURN 

140 CLS:PR=0:PRINT 68,"MENU PRI 
NCIPAL”: PRINT"1=DEFINE";AS;” OU 
EVENTO”: PRINT" 2=APAGA" ;AS;" OU 
EVENTO” 

150 PRINT"3=SALVA DADOS": PRINT” 
4=CARREGA DADOS": PRINT"5=IMPRIM 
E DETALHES": PRINT" 6=SAIDA” 

160 PRINT"7=VERIFICA E ORDENA A 
REDE” 

170 PRINT"B=CALC COM TEMPOS MED 
10s” 

180 PRINT"9=CALC COM INCERTEZAS 
PS PRINTº?"; 

190 TS=INKEYS:IF TS<"1” OR T$>" 
9” THEN 190 

200 T=VAL(TS):PRINT T 

210 IF T>7 AND NOT(CK) THEN PRI 
NT"FACA VERIFICACAO (7) PRIMEIR 
Oo” :GoTO 380 

220 IF AA=0 AND (T>40 OR T=3) T 
HEN PRINT"IMPOSSIVEL - NAO FOI 
INTRODUZIDO” ;AS$:GOTO380 

230 IF T>4 THEN 350 

240 IF T=4 THEN CLEAR 2000:T=4 
250 IF T>2 THEN PRINT"NOME DO A 
RQUIVO" : INPUTF$:GOTO 350 

260 CLS:PRINT A$;” OU EVENTO (A 
(E) ?"; 

270 TS=INKEYS:IF TS<>"A” AND TS 
<>"E” THEN 270 

280 PRINT TS:IF TS="A” 
AS ELSE FS=" EVENTO” 
290 PRINT:PRINT P$S;FS;" NUMERO” 
:PRINT"OU ZERO PARA SAIR” 

300 INPUT U:U=INT(U):IF U=0 THE 
N 140 

310 IF U<l OR U>ZZ THEN PRINT W 


(X=0))* 


THEN FS= 


$(3):GoTO 280 

320 IF T$="E” THEN U=-U 

330 GOSUB 700:CK=FA 

340 IF(T=2 OT JAND(0=U(X) OR 
ZZ<U(X) THEN PRINT"VOCE NUNCA 
USOU ESTE NUMERO” :GOTO 380 

350 ON T GOSUB 390,590,750,830, 
890,960,1070,1550,1660 

360 IF T<3 THEN 290 

370 GoTo 140 

380 FOR T=1 TO 1000:NEXT T:GoTO 
140 

390 IF FS<>AS THEN 620 
400 IF O<U(X) AND ZZ>=U(X) 
B 1030:GOSUB 1000:GOTO 430 
410 IF AA=MA THEN PRINTWS(2);FS 
: RETURN 

4z0 AA=AM+L:A(AA)=K:U(X)=U 

430 PRINT W$(4);FS: INPUT US(X): 
XA=X 

440 PRINT PS;" INICIAR EVENTO, F 
INALIZAR EVENTO”: INPUT S,F:5: IN 
T(S):F=INT(F) 

450 IF S<l OR S>ZZ OR F<l OR F> 
Z2 THEN PRINT W5(3):GOTO 440 
460 U=-S:GOSUR 700:IF U(X)<O TH 
EN 490 

470 IF EE-ME THEN PRINT WS(2);” 
EVENTOS" :GOTO 440 

480 GOSUB 660 

490 S(XA)=X 

500 U=-F:GOSUB 700:IF U(X)<O TH 
EN 530 

510 IF EE=ME THEN PRINT W5(2);" 
EVENTOS” :GOTO 440 

520 GOSUB 660 

530 F(XA)=X 

540 PRINT P$;"TEMPO PROVAVEL PA 
RA EXECUTAR NPUT T(XA) 

550 IF T(XA)<O THEN PRINT"NAO P 
ODE SER FEITO COM ESTA VELO 
CIDADE” :GOTO 540 

560 PRINT"INTRODUZA ESTIMATIVA 
DE TEMPO com 90% DE CERTEZA”: 
PRINT"PODE SER FEITO EM":INPUT 
N(XA) 

570 IF N(XA)<T(XA) THEN PRINT * 
NAO E COMPATIVEL COM O TEMPO 
PROVAVEL”:GOTO 540 

580 RETURN 


[OR o 


Antes de usar o programa para ava- 
liar um projeto, você terá que dividi-lo 
em atividades individuais e estimar o 
tempo de execução de cada uma delas. 
Para isso, o mais conveniente, como já 
vimos, é desenhar um esquema de blo- 
cos; a rede PERT. 

À medida que for desenhando o dia- 
grama, descreva as atividades ao longo 
das linhas de conexão entre eventos. 
Dentro dos círculos, coloque a descri- 
ção dos eventos. Se estes forem apenas 
passos intermediários entre atividades, 
não é necessário atribuir-lhes nomes es- 
pecíficos. 

A versão do programa para o Spec- 
trum permite o uso de até vinte caracte- 





Gosu 





res por evento ou atividade; nos demais 
micros, podem-se utilizar 255 caracteres. 
Entretanto, dê preferência a títulos su- 
cintos, para não sobrecarregar a memó- 
ria disponível. 

Se você tem uma noção mais ou me- 
nos precisa da duração de cada ativida- 
de, escreva esse valor no diagrama. Pos- 
teriormente, veremos como estimar os 
tempos. Lembre-se, porém, de que a 
unidade de medida de tempo escolhida 
(hora, dia, semana etc.) deve ser sem- 
pre a mesma em toda a rede. 

O programa só funcionará correta- 
mente se a rede for viável do ponto de 
vista lógico — deve ter apenas um pon- 
to de partida e um de chegada, e não 
formar laços ou caminhos circulares. 

O passo seguinte ao desenho da rede 
PERT é a numeração de todas as ativi- 
dades e eventos e sua introdução no pro- 
grama. A ordem dos números não é im- 
portante, mas o computador precisa de- 
les para trabalhar. Um método bastan- 
te simples consiste em numerar os even- 
tos de dez em dez, como se faz com um 
programa em BASIC — o que permite 
inserir números extras entre os já exis- 
tentes, se for necessário. 

Quando você for definir os eventos 
e as atividades, o computador pedirá o 
número e a descrição de cada um deles, 
além de uma estimativa do seu tempo 
médio e do seu tempo pessimista (aque- 
le que conta com 90% de possibilidade 
de não ser ultrapassado). 

Na vida real, raramente podemos cal- 
cular com precisão o tempo que levare- 
mos para realizar uma atividade — mes- 
mo que a tenhamos executado muitas 
vezes. Entretanto, não é difícil estimar 
sua duração média, bem como sua du- 
ração aproximada. Isso é tudo o que o 
programa exige em termos de estimati- 
va de tempo. No entanto, como você ve- 
rá, os cálculos que ele faz não são tão 
simples, pois devem levar em conta qua- 
tro diferentes situações. 

A primeira situação é aquela em que 
estamos absolutamente seguros quanto 
ao tempo que uma certa atividade leva- 
rá. Por exemplo, se as instruções para 
a construção de uma casa recomendam 
que deixemos o cimento secar por 48 ho- 
ras, é exatamente isso que vamos fazer! 
Nesse caso, ao usar o programa, deve- 
mos indicar o mesmo valor para o tem- 
po médio e o pessimista. 

A segunda situação ocorre quando es- 
tamos razoavelmente seguros sobre a du- 
ração de determinada atividade, Sabe- 
mos, por exemplo, que uma viagem en- 
tre as cidades de São Paulo e Campinas, 
de automóvel, demora cerca de 90 minu- 
tos, porque já a repetimos muitas vezes, 
sem observar grandes variações (mais ou 


menos 10%, devido a eventuais dificul- 
dades de trânsito). Portanto, entramos 90 
minutos como tempo médio, e 100 mi 
nutos como tempo pessimista. Essa si- 
tuação corresponde à curva conhecida 
como curva normal ou gaussiana. 

A terceira situação é a que chamamos 
“espere até acontecer”, Por exemplo: 
você só terá a certeza de que a reforma 
no telhado foi bem feita quando come- 
çar a chover. Aqui, o tempo pessimista 
é cerca de 2,5 vezes maior que o tempo 
médio. Este pode ser obtido a partir do 
número de dias de chuva naquele mês 
específico. 

A quarta e última situação correspon- 
de ao tempo do “*tudo ou nada”. É mui- 
to improvável, por exemplo, que uma 
determinada peça do carro quebre, mas, 
se isso ocorrer, o veiculo ficará na ofi- 
cina durante dez dias. Nesse caso, tome 
o valor máximo (dez dias) como o tem- 
po pessimista, e a média aritmética (10 
vezes 1/100, ou 1/10 de dia) como o 
tempo médio. 

Não é necessário indicar ao micro- 
computador o eder em que se encai- 
xa cada at - À máquina simples- 
mente toma as Fduas estimativas de tem- 
po, e efetua os cálculos. Se a diferença 
entre os dois valores for de O a 30%, ele 
usa a curva gaussiana; se for de 30 a 
130%, usa uma curva gaussiana modi 
ficada. Por outro lado, se o valor da mé- 
dia estiver entre 130 e 300%, o progra- 
ma recorre à curva exponencial e, se es- 
tiver acima dessa porcentagem, utiliza 
a curva bimodal. 

Depois de entrar todas as atividades 
e suas respectivas estimativas de tempo, 
você deverá entrar os eventos. Para isso, 
basta digitar o número e a descrição de 
cada evento no diagrama. Se você come- 
ter algum erro, chame as opções de apa- 
gamento ou de modificação de eventos 
ou atividades. 

A informação entrada no computa- 
dor pode ser exibida em vários tipos de 
tabela. A opção ''Mostre Detalhes” 
mostrará uma lista de tudo o que foi en- 
trado. Se você tem uma impressora, po- 
derá também obter uma cópia em papel. 




















Antes que o computador prossiga 
com os cálculos, é necessário checar se 
há consistência lógica na rede entrada. 
Se esta contiver caminhos circulares, o 
programa cairá em uma alça sem fim de 
cálculos e, eventualmente, apresentará 
um defeito de execução. 

Escolha a opção de verificação e ob- 
serve o resultado. Se tudo estiver bem, 
o programa imprimirá os números dos 





eventos de início e de fim. Entretanto, 
se encontrar alguma inconsistência na 
rede, emitirá uma mensagem de erro, 
identificando caminhos circulares ou in- 
terrupções. 





calcular o caminho crítico. Existem duas 
alternativas: a primeira usa o tempo mé- 
dio de cada atividade, e a segunda, o 
tempo incerto (pessimista). Peça antes 
a primeira alternativa. 

O vídeo mostrará todas as atividades, 
seu número de código e descrição. Em 
seguida, dirá quando cada uma deve ser 
iniciada e concluída, se existe alguma 
folga, esea ati 
ja, se está no caminho crítico, com fol- 
ga igual a zero, 

O tempo é expresso na mesma uni- 
dade que foi entrado. Assim, se você 
usou dias, todos os tempos irão se refe- 
rir a dias, contados a partir do evento 
inicial da rede. Suponhamos que a ta- 
bela indique que a atividade 3 deve co- 
meçar no dia 6, terminar no dia 10, e 
tem uma folga de dois dias. Você pode- 
rá começar aquela atividade no minimo 
seis dias depois de iniciado o projeto, 
com uma tolerância de dois dias (ou se- 
ja, se você atrasar a atividade até o dia 
8,0 tempo total do projeto não será al- 
terado). 

As atividades que têm folga zero de- 
vem começar exatamente no dia indica- 
do; caso contrário, haverá um atraso no 
projeto. Se isso ocorrer, você precisará 
recalcular toda a rede, com a nova esti- 
mativa para a atividade ou atividades in- 
fratoras. 

Se a maioria dos tempos que você en- 
trou são incertos, e o tempo pessimista 
é muito distinto do médio, use a segun- 
da opção de cálculo, pois o caminho 
crítico será diferente. 

Quando você escolhe essa opção, o 
computador considera cada atividade e, 
usando o gráfico de distribuição mais 
apropriado, seleciona um tempo ao aca- 
so, dentro dos limites propostos. A par- 
tir desse tempo, ele calcula o caminho 
crítico para toda a rede, exatamente co- 
mo na opção anterior, e armazena os va- 
lores de i e de folga das atividades. 
O processo se repete 44 vezes: em cada 
uma delas um novo número aleatório é 
escolhido para as atividades incertas. As 
45 repetições (todas são exibidas na te- 
la) proporcionam uma amostra razoá- 
vel para a derivação dos valores médios 
de tempo. 

Os tempos de inicio e fim do projeto 
correspondem à média de 45 repetições 



































ao acaso; portanto, são bastante confiá- 
veis. A folga média das atividades não 
críticas também é indicada. 

Os valores críticos mostram a porcen- 
tagem da participação de certa ativida- 
de no caminho crítico — 100% signi 
ca que a atividade será sempre crítica; 
0%, que ela nunca é crítica. 

O último valor mostra o desvio pa- 
drão do tempo de folga, indicando a va- 
riação possível da folga e, também, a 
confiabilidade da estimativa. Por exem- 
plo, se há uma folga de 1,5 dia e o des- 
vio é igual a 1, a folga pode variar en- 
tre 0,5 dia e 2,5 dias. Nesse caso, con- 
clui-se que a folga é pouco confiável. 
Ao contrário, um desvio padrão de 0,1 
mostra que o valor atribuído à folga é 
bastante confiável. 


330 PRINT w$(4);£$:":";: INPUT 
us(x): PRINT uS(x): LET s(x)= 
O: RETURN 

350 LET eesee+l: 





LET el(ee)=x: 


LET s(x)=-1: LET t(x)=0: LET u 
(e) =u 

360 LET t(x)=0: LET n(x)=0: 
LET uS(x)="": RETURN 

400 LET z=x: FOR f=1 TO ee: IF 
e(t)=z THEN LET esf 

420 NEXT t: LET e(e)-e(ee): 
LET u(z)=z2+1: LET eesee-l: 


RETURN 
450 LET z=u-INT 
LET y=2: LET x=0 
460 TF x=0 THEN 
ze+]=ulz) THEN 
470 IF usulz) 


((u=1)/mh) *mh: 


IF U=ulz) OR 
LET x=£ 
THEN LET x=z: 


RETURN 

480 IF y=1 OR O=u(x) THEN 
RETURN 

490 LET z=zty-=mh4INT ((zty-1)/ 


mb): LET y=yty=-mhMINT O ((yty-l) 
/mh): GOTO 460 
500 LET x(1)=ma 





LET x(2Z)=me: 


LET x(3)-mh: LET x(4)-aa: LET 
x(5)see: LET x(6)=ck: LET x(/) 
=ge: LET x(B)=te: PRINT “preso 
1one <ENTER> dez vezes SAVE 





fS+"x" DATA x(): FOR x=L TO 
100: NEXT x 
S10 SAVE fS+"a” DATA a(): SAVE 
tS+"e” DATA e(): SAVE ES+"t" 
DATA f(): SAVE fS+"q” DATA g() 
: SAVE t5+"n” DATA n(): SAVE 
fS+"s” DATA s(): SAVE ES+"L” 
DATA t(): SAVE t$+"u” DATA UM) 
SAVE tS+"uS” DATA us (): 
RETURN 
600 LOAD t5+"x” DATA x(): LET 
ma=x(L): LET me=x(2): LET mh=x 
(3): LET aa-x(4): LET ce=x(5): 
LET ck=x(6): LET se=x(7): LET 
fe-x(8): GOSUB 12 
610 LOAD fSt"a” DATA a(): LOAD 
fS+"e” DATA e(): LOAD £tS+"f” 
DATA f(): LOAD fS$t"g” DATA q() 





LOAD £S+"n” DATA n(): LOAD 
fS+"s” DATA s(): LOAD fS+"t” 
DATA t(): LOAD £S+"u” DATA u() 
: LOAD fS+"uS” DATA uS(): LET 
talse=0: RETURN 
700 LET x(l)=ma: LET x(2)=me: 
LET x(3)-=mh: LET x(4)=aa: LET 
x(5)=ee: LET x(6)=ck: LET x(7) 
=se; LET x(8)=fe: VERIFY fSt"x 
” DATA x() 

710 VERIFY fS+"a” DATA a(): 

VERIFY fS+"e” DATA e(): VERIFY 
fS+"E” DATA £(): VERIFY £5+"q” 
DATA q(): VERIFY £S+"n” DATA n 

(O): VERIPY tS+"9” DATA s(): 
VERIFY ES+"t” DATA L(): VERIFY 
fS+"u” DATA u(): VERIFY fS+"us 
” DATA uS(): RETURN 
800 GOSUB 942 
B10 FOR a=1 TO aa: 
GosUB 932 
820 LET y=y+L+(LEN uS(x)>4): 
IF y>20 AND a<aa THEN GOSUB 

940: GOSUB 942 
830 NEXT a: GOSUB 940 
840 GOSUB 946: FOR e=] TO ee: 
LET x=e(e): GOSUB 933 
850 LET y-y+L+(LEN uS(x)>4) : 
TF y>20 AND ecce THEN GOSUB 
940: GOSUB 946 
860 NEXT e: GOTO 940 
932 PRINT EN IS(EN u(s(x))):EN 
IS(FN u(£(x))) GEN ISCL(x))FEN 


LET x=ata): 


15(n(x));ABS u(x);" ";uS(x): 
RETURN 

933 PRINT ABS u(x) uS(x): 
RETURN 


940 PRINT "pressione <CENTER> p 
ara sair”: INPUT fS: CLS 
RETURN 

942 CLS : PRINT "INTCI FINAL T 
EMPO 90% CODIGO TEXTO” 

944 PRINT "FINAL INICI PROVL E 
STIM ": LET y=3: RETURN 

946 PRINT "CODIGO"," TEXTO”: 


RETURN 

948 PRINT "PREV FINAL MIN MAX 
": LET y=3: RETURN 

1000 LET ck=true: FOR a=l TO aa 
LET x=a(a) 


1020 LET z=s(x): IF s(z)<0 OR z 
z<u(z) THEN PRINT u(x);wS(5);u 
(z): LET ck=false 
1030 LET z=f(x): IF s(z)<0 OR z 
z<u(z) THEN PRINT u(x);w$(5);u 
(z): LET ck=false 


1040 NEXT a: IF ck=false THEN 

coro 1750 

1050 LET e=l1 

1060 LET z=e(e): IF s(z)<0 THEN 
GOSUB 400: IF e<=ee THEN GOT 

o 1060 

1070 LET e=etl: IF e<=ee THEN 

Goto 1060 

1080 FOR e=1 TO ee: LET z=e(e): 
LET s(z)=0: LET f(z)=0: NEXT e 

1082 FOR a=l TO aa: LET x=ala): 
LET s(f(x))=x: NEXT a 

1090 LET se=0: FOR e=l TO ee: L 

ET z=e(e): IF s(z)>0 THEN GOTO 
1096 


1092 IF se=0 THEN LET se=z: GO 
TO 1096 


1094 PRINT wS(1);u(z): IF se<=m 
-h THEN PRINT wS(1)ju(se): LET 
se=mh+1 


1096 NEXT e: IF se=0 THEN PRIN 
T "TODOS OS EVENTOS TEM" ;aS;” P 
RECEDENDO” 

1098 IF se=0 OR se>mh THEN GOT 


o 1750 
1100 FOR e=1 TO ee: LET z=e(e): 
LET t(2z)=0: LET n(z)=0: NEXT e 


: LET t(se)=l 

1110 LET last=1: FOR c=2 TO ee+ 
2: IF last<>c-l THEN GOTO 1170 
1120 FOR a=l TO aa: LET x=ala): 
LET y=a(x): IF t(y)<>c-1 THEN 
Goto 1160 

1130 IF y=f(x) THEN GOSUR 1200 
: GOTO 1160 

1140 IF y<>se THEN LET y=s(y): 
Goto 1130 














1150 LET y=f(x): LET s(y)=s(x): 
LET E(s(y))=y: LET t(v) LET 
fe=y: LET last=c 

1160 NEXT a 

1170 NEXT c: PRINT "evento inic 
1al=";u(se);"evento final=";u(f 
e) 


1180 FOR e=1 TO ee: LET y=e(e) 
1190 IF £(y)=0 AND y<>fe THEN 
PRINT u(y);"NAO CONECTADO AO EV 


ENTO FINAL”: LET ck=false 

1192 NEXT e: IF ck THEN GOTO 1 
300 

1194 coro 1750 

1200 CLS : PRINT "EXISTE O SEGU 
INTE LOOP”: PRINT "EVENTOS. ..": 
LET xaza(a) 

1210 LET x=f(xa): PRINT u(x): L 
ET vy=s(xa): PRINT u(y) 


1220 LET y=s(y): PRINT u(y): IF 
v<>x THEN GOTO 1220 
1230 RETURN 


1300 LET k=1: LET ak=aa: IF aa= 
1 THEN LET k=0 

1310 LET ak=INT ((aktk)/2): IF 
ak=0 THEN GOTO 1500 

1320 LET k=0: FOR a-ak+l TO aa: 
LET b=a-ak: LET x=u(a): LET vº 
a(b): LET xe=s(x): LET ve=s(y) 


1330 IF tíve)+ye/zz<-L(xe)txe/z 
z THEN GOTO 1360 
1340 LET ala)=y: 
Tk=1 

1360 NEXT a: 


LET a(b)=x: LE 


coro 1310 








1500 LET n(te)=last: FOR d-last 
=] TO 1 STEP -1 

1520 FOR a=l TO aa: LET xra(a): 
IF n(t(x))<2d+l THEN GOTO Lh6 
0 

1550 LET y=s(x): LET t(y)=1t (4) 
LET n(y) 

1560 NEXT a: NEXT d 

1600 FOK a 1 TO da: LET qg(a)-a( 
a): NEXT a: LET k=1: LET ak-ad: 
tF aa=l THEN LET k=0 


1610 LET ak=INT (lak+k)/2): 1F 
ak=0 THEN OTO 1700 

1620 LET FOR azak+1l TO aa! 
LET b=b-ak: LET x-g(a): LET y= 
g(b): LET xe=f(x LET ye=f(y) 

1630 IF n(ye)+yc/zz<=n(xe) t+xe/Zz 
z THEN GOTO 1660 
1640 LET a(a)=y: 









LET o(b)=x: LE 


T k=1 

1660 NEXT a: GOTO 1610 

1700 LET ck=true: RETURN 

1750 LET ck=false: PRINT AT 21, 
8;"QUALQUER TECLA PARA CONTINUA 





R": PAUSE O: RETURN 

2000 FOR a=l TO aa: LET x=a(a): 
LET z(x)=t(x): NEXT a: GOSUB 2 
100 


2020 FOR a=l TO aa: LET x-a(a): 
LET y(x)=(z(f(x))-y(gs(x))=2(x) 

)*100: NEXT a 

2030 FOR b=1 TO aa STEP 5: CLS 
FOR a=b TO aatFN a(btd-aa): L 

ET x=a(a) 

2040 PRINT aS;” ";u(x); 

)J( To 16) 

2050 LET c=y(s(x)): LET 

)): PRINT "pode iniciar ” 

eve terminar ";d 

2060 PRINT "tempo livre 


"id-c-z 


(x);” (critico "iy(x):"2)": IF 
t=12 THEN PRINT "desvio=";q(x) 
2070 PRINT : NEXT a: COSUB 940: 
NEXT b: RETURN 

2100 FOR e=1 TO ee: LET y(e(e)) 
=0: NEXT e 


2110 FOR a-l TO aa: LET x=a(a): 
LET y(£f(x))=y(f(x))+EN alyis(x 
W-y(f(x))+z(x)): NEXT as 

2120 FOR e=i TO ee: LET z(e(e)) 
=y(te): NEXT e: FOR a=aa TO 1 S 
TEP -1: LET x=q(a) 

2130 LET z(s(x))=z(s(x))+FN a(z 


(E(x))-z(s(x))-z(x)): NEXT a: R 
ETURN 

3000 FOR a=1 TO aa: LET x=a(a): 
LET p(x)=0: LET q(x)=0: LET y( 
x)=0: NEXT a 

3020 FOR e=-1 TO ee: LET z=e(e): 
LET p(z)-0: LET q(z)-0: NEXT e 
3030 FOR m-1 TO 43 STEP 3: FOR 
arl TO aa: LET w(a)=2*RND-1: NE 
xT a 


3040 FOR n=0 TO 4 STEP 2: CLS : 
PRINT "CASO & ";mtn/2;" EM 45” 
3050 FOR a=1 TO aa: LET x=a(a): 
LET Lx=L (x): TF tx=0 THEN LET 
z(x)-0: Goro 3080 
3052 LET nx=n(x): TF nx=tx THEN 
LET z(x)=tx: GOTO 3080 
3054 LET w-FN wíwla)tn/3): IF n 
x2-tx*3 THEN LET z(x)-n(x)* (we 
tx/nx): GOTO 3080 
3060 IF nx>tx*2.34 THEN 
x)--LX*LN w: GOTO 3080 
3070 LET w=EN x(w-.5): 
=ABS (tx+w*(nx-tx)) 
3080 NEXT a 
3090 GOSUB 2100 
3100 FOR a=1 TO aa: LET x=a(a): 
LET e=2(t(x))-y(gs(x))-z(8) 
3110 LET p(x)=p(x)+z: LET q(x)= 
q(x)+zíz: LET y(x)=y(x)+(2<] .e- 
6): NEXT à 
3120 FOR e=1 TO ee: 
LET plz)-=p(z)+y(z): 
(z)+z(z): NEXT e: NEXT n: 
m 
3200 FOR e=1 TO ee: LET z=e(e): 
LET y(z)=VAL (FN IS(p(z)/45)) 
3210 LET z(z)=VAL (FN IS(a(z)/4 


LET 2( 


LET z(x) 


LET z=e(e): 
LET a(z)-q 
NEXT 


5)): NEXT e 
3220 FOR a=l TO aa: LET x-a(a): 
LET y=y(x): LET y(x)=VAL ((STR 
S (y/45*100)+" "IC TO 4)) 
3230 IF p(x)<l.e-2 THEN LET p( 
x)=0 

3240 LET z-(45-y)+1.e-9: LET z( 
x)=2(f(x))-y(s(x))-VAL (EN IS(p 
(x)/2)) 

3250 LET q(x)=SQN ABS ((a(x)-p( 
x)*p(x)/2)/((z-1)+.1e-9)): IF q 
(x)<1.e-6 THEN LET q(x)-0 

3260 NEXT a: GOTO 2030 





590 IF FS<>AS THEN 680 

600 FOR B=1 TO AA:IF X=A(B) THE 
N A=B 

610 NEXT B:A(AJ=A(AA) :U(X)=ZZ+1 
: AA=AA-1: RETURN 

620 IF U(X)<O0 GOSUB 1050:PRINT 
USING (gtttt ";ABS(U(X));: PRINT 
US(X):GoTo 650 

630 IF EE=ME THEN PRINT WS(2);F 
S$: RETURN 

640 GOSUB 660 

650 PRINT WS(4);FS: INPUT US(X): 
S(X)=0:RETURN 

660 EE=EE+L:E(EE)=X:S(X)=-1:F(X 
)=0:U(X) =U 

670 T(X)=0:N(X)=0:US(X)="":RETU 
RN 

680 Z=X:FOR F=1 TO EE:IF E(F)=Z 
THEN E-F 

690 NEXT F:E(E)=E(EE) :U(Z)=22+1 
: EE=EE-1: RETURN 

700 Z=U-INT((U-1)/MH)*MH:Y=2:X= 
0 


710 IF X=0 (O=U(Z) OR ZZ+1=U(Z) 
JTHEN X=Z 

720 IF U=U(Z) THEN X=Z:RETURN 
730 IF Y=1 OR 0=U(Z) THEN RETUR 

N 

740 Z=2+Y-MH*INT((Z+Y-1)/MH):Y= 
Y+Y-MHXINT((Y+Y-1)/MH):GOTO 170 
750 OPEN "O”,4-1,FS:PRINT 4-1,M 

A:;ME;MH;AA; EE;CK 

760 IF CK THEN PRINT4-1,SE;FE 
770 FOR A=1 TO AA:X=A(A): PRINT 
A-1,X;U(X);S(X) FF CX) TUX) ENCX) 
C(A);US(X):NEXT A 

780 FOR E=1 TO EE:Z=E(E):PRINT4 
-=1,Z:;U(Z) ;S(Z);F(Z);T(Z)N(Z);U 
S(Z):NEXT E 

790 FOR X=1 TO MH:IF U(X)=Z2+1 
THEN PRINT 4-1,X 

800 BEXT X:PRINT$-1,0 

810 CLOSE$-1:MOTORON:FOR X=1 TO 
100:NEXT X:MOTOROFF:RETURN 

820 CLS:PRINT"SALVAR DADOS - er 
ro:FOR K=1 TO 1000:NEXT:RETURN 
830 OPEN"I”,4-1,FS:INPUT$-1,MA, 
ME,MH,AA, EE, CK:GOSUB 20 

840 IF CK THEN INPUT 4-1,SE,FE 
850 FOR A=1 TO AA:INPUT 4-1,X,U 
00 SC) FX), TX) N(X) O(A) US 
(X) :A(A)=X:NEXT A 

860 FOR E=1 TO EE: INPUT$-1,Z,U( 
Z),S(Z),F(Z), T(Z).N(Z) ,US(Z) :E( 
E)=Z:NEXT E 








870 INPUT 4-1,X:IF XDO THEN U(X 

)=ZZ+1:GOoTO 870 

880 CLOSE $4-1:RETURN 

B90 GOSUB 1870:A=0:GOSUB 1030 

900 FOR A=1 TO AA:X=A(A) :GOSUB 

1000 

910 Y=Y+1:IF Y>8 AND A<AA GOSUB 
1020:GOSUB 1030 

920 NEXT A:GOSUB 1020 

930 E=0:GOSUB 1050:FOR E=1 TO E 

E:X=E(E): PRINT 4PR, 
";ABS (U(X));: PRINT 4PR,US(X) 

940 Y=Y+1:IF Y>15 AND EXEE GOSU 

B 1020:GOSUB 1050 

950 NEXT E:GOTO 1020 

960 CLS:PRINT"TEM CERTEZA ? [(S 

/N)” 

970 TS=INKEYS:IF T$<>"S” AND TS 

<>"N” THEN 970 

980 IF T$="N” THEN RETURN 

990 CLS: END 

1000 PRINT 4PR,USING"&44HH 4H44 

E BRARE FERAS AHAHATZENUCS(X)) 

+ENU(F(X)), T(X) ,N(X) ABS (U(X)); 

:IF PR=0 THEN PRINT 

1010 PRINT 4PR,” ";US(X): RETURN 

1020 IF PR=0 THEN PRINT"<ENTER> 
PARA CONTINUAR": INPUT F$:CLS:R 

ETURN ELSE RETURN 

1030 CLS:IF PR=0 OR A=0 THEN PR 

INT 4PR,"INICIO ULTIMA VEZ 90 

& ATIVIDADE" :Y=3 

1040 RETURN 

1050 CLS:IF PR=0 OR E=0 THEN PR 

INT 4PR,” EVENTO TEXTO” :y=3 

1060 RETURN 

1070 CK=TR:FOR A=1 TO AA:X=A(A) 

1080 Z=S(X):IF S(Z)<0 OR Zz<u(z 

) THEN PRINT AS;U(X) WS (5);U(Z) 

:CK=FA 

1090 Z=F(X):IF S(Z)<0 OR Zz<u(z 

) THEN PRINT AS:;U(X) ;WS(5);U(Z) 

:CK=FA 

1100 NEXT A:IF CK=FA THEN 1540 

1110 E=1 

1120 Z=E(E):IF S(Z)<0 GOSUB 680 

:IF E<=EE THEN 1120 

1130 E=E+1:IF E<X=EE THEN 1120 

1140 FOR E=1 TO EE:Z=E(E):S(Z)= 

O:F(Z)=0:NEXT E 

1150 FOR A=1 TO AA:X=A(A):S(F(X 

)J)=X:NEXT A 

1160 SE=0:FOR E=1 TO EE:Z=E(E): 

IF S(Z)>0 THEN 1190 

1170 IF SE=0 THEN SE=Z:GOTO 119 

o 








1180 PRINT WS(1);U(Z):IF SE<=MH 
THEN PRINT W$(1);U(SE):SE=MH+1 
1190 NEXT E:IF SE=0 THEN PRINT” 
TODOS OS EVENTOS TEM":PRINT AS; 
”"PRECEDENDO” 

1200 IF SE=0 OR SE>MH THEN 1540 
1210 FOR E=1 TO EE:Z=E(E):T(2)= 
D:N(Z)=0:NEXT E:T(SE)=1 

1220 LA=1:FOR C=2 TO EE+2:IF LA 
<>C-1 THEN 1280 

1230 FOR A=1 TO AA:X=A(A):Y-S(X 
J:IF T(Y)<>C-1 THEN 1270 

1240 IF Y=F(X) GOSUB 1330:GoTO 
1270 
1250 
1240 
1260 


IF Y<>SE THEN Y=S(Y):GoTO 
Y=F(X) :S(Y)=S(X) :F(S(Y))=Y 








sT(Y)=C:FE=Y:LA=C 

1270 NEXT A 

1280 NEXT C:PRINT"EVENTO INICIA 
L";U(SE);”, EVENTO FINAL ";U(FE 


, 

1290 FOR E=1 TO EE:Y=E(E) 

1300 IF F(Y)=0 AND YX>FE THEN P 
RINT U(Y);"NAO CONECTADO AO EVE 
NTO FINAL" :CK=FA 

1310 NEXT E:IF CK THEN 1370 
1320 GOTO 1540 

1330 CLS:CK=FA:PRINT"EXISTE O S 
EGUINTE LOOP”: PRINT"EVENTOS 





PIXA=A(A) 

1340 X=F(XA):PRINT U(X):Y=S(XA) 
: PRINT U(Y) 

1350 Y=S(Y):PRINT U(Y):IF Y<>X 
THEN 1350 

1360 FOR X=1 TO 1000:NEXT:RETUR 
N 

1370 K=1:AK=AA:IF AA=1 THEN K=0 
1380 AK=INT((AK+K)/2):IF AK=0 T 
HEN 1430 


1390 K=0:FOR A=AK+1 TO AA:B=A-A 
K:X=A(A) :Y=A(B) :XE=S(X) :YE-S(Y) 
1400 IF T(YE)+YE/Z2<=XE/ZZ+T(XE 
) THEN 1420 

1410 A(A)=Y:A(B)=X:K=1 

1420 NEXT A:GOTO 1380 

1430 N(FE)=LA:FOR D=LA-1 TO 1 S 
TEP-1 

1440 FOR A=1 TO AA:X=A(A):IF N( 
F(X))<>D+1 THEN 1460 

1450 Y=S(X) :F(Y)=F(X):N(Y)=D 
1460 NEXT A:NEXT D 

1470 FOR A=1 TO AA:G(A)=A(A) :NE 
XT A:K=1:AK=AA:IF AA=1 THEN K=0 
1480 AK=INT((AK+K)/2):IF AK=0 T 
HEN 1530 

1490 K=0: FOR A=AK+1 TO AA:B=A- 
AK:X=G(A) : Y=G(B) :XE=F(X) : YE=F(Y 


) 

1500 IF N(YE)+YE/Z2<=XE/ZZ+N(XE 
) THEN 1520 

1510 G(B)=X:G(A)=Y:K=1 

1520 NEXT A:GOTO 1480 

1530 CK=TR: RETURN 

1540 CK=FA:FOR X=1 TO 1000:NEXT 
X: RETURN 

1550 GOSUB 1870:FOR A=1 TO AA:X 
=A(A):Z(X)=T(X):NEXT A:GOSUB 16 
20 

1560 FOR A=1 TO AA:X=A(A):Y(X)= 
-(Z2(F(X))-Y(S(X))=Z(X))*100-NEX 
TA 

1570 FOR B=1 TO AA STEP 3:CLS:F 
OR A=B TO AAtENA(B+2-AA) 
1580 PRINTAPR,AS;U(X);"= 
1590 C=Y(S(X)):D=Z(F(X)) 
+PR, "PODE INICIAR";C;"DEVE TERM 
INAR”;D 

1600 PRINTAPR, "TEMPO LIVRE”; INT 
(100*(D-C-Z(X)))/100;" (CRITICO” 
FY(X);"R)":IF T=9 THEN PRINTHPR 
+USING"DESVIO=E4HH. HH" ;O(X) 
1610 PRINTHPR:NEXT A:GOSUB 1020 
:NEXT B:RETURN 

1620 FOR E=1 TO EE:Y(Ê(E))=0:NE 
xT E 

1630 FOR A=l TO AA:X=A(A):Y(F(X 
))=Y(F(X)+ENZ (VOS (RD YCF OX) D+ 
Z(X)):NEXT A 

1640 FOR E=1 TO EE:Z(E(E))=Y(FE 








J:NEXT E:FOR A=AA TO 1 STEP-1:X 
=G(A) 

1650 Z(S(X))=Z(5(X)) +ENA(Z(E(X) 
)-Z(S(X))-Z(X)) :NEXT A:RETURN 
1660 GOSUB 1870:FOR A=1 TO AA:X 
=A(A):P(X)=0:0(X)=0:Y(X)=0:NEXT 


A 

1670 FOR E=1 TO EE:Z=E(E):P(Z)= 
0:Q(Z)=0:NEXT E 

1680 FOR M=1 TO 43 STEP 3:FOR A 
=) TO AA:W(A)=2*RND(0)-1:NEXT À 
1690 FOR N=0 TO 4 STEP Z:CLS:PR 
INT"CASO" ;M+N/2;" EM 45" 

1700 FOR A=1 TO AA:X=A(A):TX=T( 
X):IF TX=0 THEN Z(X)=0:GOTO 175 





o 

1710 NX=N(X):IF NX=TX THEN Z(X) 
=TX:GOTO 1750 

1720 W=FNW(W(A)+N/3):IF NK>=TX* 
3 THEN Z(X)=-NX* (W<TX/NX) :GOTO 
1750 

1730 IF NX>TX*2.34 THEN Z(X)=-T 
X*LOG(W) :GOTO 1750 

1740 W=ENX(W-.5):Z(X)=ABS(TK+W* 
(NK-TX)) 

1750 NEXT A 

1760 GOSUB 1620 

1770 FOR A=l TO AA:X=A(A):Z=Z(F 
(X))-Y(S(X))-2(X) 

1780 P(X)=P(X)+Z:0(X)=0(X)+24Z: 
Y(X)=Y(X) +(Z<1E-6) NEXT À 

1790 FOR E=1 TO EE:Z=E(E):P(Z)= 
P(Z)+Y(Z) :Q(Z)=Q(Z)+Z(Z) NEXT E 
NM 

1800 FOR E=1 TO EE:Z=E(E):Y(Z)= 
VAL (LEFTS(STRS(P(Z)/45),6)) 
1810 Z(Z)=VAL(LEFTS(STRS(Q(Z)/4 
5),6)):NEXT E 

1820 FOR A=I TO AA:X=A(A):Y=Y(X 
):Y(X)=-VAL (LEFTS (STRS (Y/45*100 
),4)) 

1830 IF P(X)<1E-2 THEN P(X)=0 
1840 Z=45-Y+. LE-9:Z(X)=Z(F(X))- 
Y(S(X))-VAL (LEFTS(STRS(P(X)/Z) 
6)) 

1850 Q(X) =SQR(ABS ((Q(X)-P(X) *P( 
X)/2)/((2-1)+.1E-9))) :TF Q(X)<I 
.E-6 THEN Q(X)=0 

1860 NEXT A:GOTO 1570 

1870 IF(PEEK(65314)AND1)=1 THEN 
RETURN ELSE CLS:PRINT"TELA OU 
IMPRESSORA (T/1) ?” 

1880 QS=INKEY$S:IF QS<>"T” AND Q 
8<>"I” THEN 1880 

1890 IF QS="1" THEN PR=-2 

1900 CLS: RETURN 


[ab Ló] 


600 





HOME PRINT DOS"OPEN "FS 
605 PRINT DOS"READ "FS 

610 INPUT MA,ME,MH,AA,EE,CK: G 
OSUB 12 

615 IF CK THEN INPUT SE,FE 
620 FORA = 1 TO AA 

625 INPUT X,U(X).S(X) FX), T(X 
)NC(X) O(A) US(X) FAÇA) = X: NEX 
TA 


630 FOR E = 1 TOEE 

635 INPUT X,U(X) .S(X) EF (O) T(X 
Do N(X) US(X):E(E) = X: NEXT E 
640 INPUT X: IF X > O THEN U(X 


) = Zz + 1: GOTO 640 
645 PRINT DOS"CLOSE "FS 
650 RETURN 

700 PRINT DOS"OPEN "FS 


710 PRINT DOS"DELETE "FS 

720 PRINT DOS"CLOSE "FS 

730 RETURN 

B00 GOSUB 942 

810 FORA=1TOAA:X=ãA(A)j: 


GOSUB 932 

B20 Y = Y+ 1 + ( LEN (US(X)) > 
12): IF Y > 20 AND (A < AA) TH 
EN GOSUB 940: GOSUB 942 
830 NEXT A: GOSUB 940: 
EVENTOS" :Y = 3 

840 FOR E = 1 TO EE:X = E(E):X 
P = U(X): GOSUB 950: PRINT US(X 
) 
850 


PRINT ” 


Y=Y+ 1 + ( LEN (US(X)) > 

IF Y > 20 AND E < EE THEN 

GOSUB 946 

NEXT Goro 940 

INPUT "REINTCIA O PROGRAMA 
(S/N)? ";ANS: IF LEFTS (ANS,1 

) = "N” THEN 50 

910 IF ANS < 

920 RUN 

932 XP = EN U(S(X)): GOSUB 950 
:KP = FN U(F(X)): GOSUB 950:XP 
= T(X): GOSUB 950:XP = N(X) 

933 GOSUB 950:XP = ABS (U(X)) 
GosuB 950 

935 PRINT 

S(X): RETURN 

940 IF KKS < > "S” THEN PRIN 

T "<RETURN> PARA CONTINUAR" ;: 1 

NPUT FS: HOME RETURN 

941 RETURN 

942 HOME PRINT "ATIVIDADES:" 

943 PRINT "--EVENTOS-— --— TEMP 

ER psi ceia ” 

944 PRINT "FINAL INICI PROVL E 

STIM CODIGO” :Y = 3: RETURN 

950 XPS = LEFTS ( STR$ (XP) + 

S ",6): PRINT XP$;: RETURN 





> "s8” THEN 900 


PRINT "TEXTO = 


"Gu 





960 HOME : PRINT "SAIDA P/ IMP 
RESSORA (S/N)?” 


970 GET KKS: IF KKS < > "Nº A 
ND KKS < > "S” THEN 970 

980 RETURN 

1000 CK = TR: FOR A = 1 TO AA:X 
= A(A) 


IF S(XE) < 0 OR 
PRINT U(X) WS 


1020 XE = S(X): 
Zz < U(XE) THEN 
(S);U(XE):CK = FA 

1030 Z = F(X): IF S(Z) < 0 OR Z 
Z < U(Z) THEN PRINT U(X);WS(5) 
JU(Z):CK = FA 


1040 NEXT A: IF (CK = FA) THEN 
1750 

1050 E = 1 

1060 X = E(E): IF S(X) < O THEN 
GOSUB 400: IF E < = EE THEN 

1060 

1070 E = E + 1: IFE< = EE TH 

EN 1060 

1080 FOR E = 1 TO EE:X = E(E): 

S(X) = O:F(X) = O: NEXT E 

1082 FOR A=1TOAA:X=ãA(A): 

S(F(X)) = X: NEXT À 

1090 SE = 0: FOR E = 1 TO EE:X 

= E(E): IF S(X) > O THEN 1096 


1092 IF SE = 
TO 1096 
1094 PRINT WS(1);U(X): IF SE < 
= MH THEN PRINT WS(1);U(SE): 
SE = MH + 1 
1096 NEXT E: IF SE = O THEN P 
RINT "TODOS EVENTOS TEM ";A$S;” 
PRECEDENDO” 
1098 IF SE = 
EN 1750 
1100 FOR E = 1 TO EE:X = E(E): 
T(X) = O:N(X) = O: NEXT E:T(SE) 
-=1 
1110 LA = 1: FOR C = 2 TO EE + 
2: IF LA< >C-1 THENJIIZO 
1120 FORA =1 TO AA:X=ãaA(A): 
E BART ER PIT): UGT TA 
EN 1160 
1130 IF Y = F(X) THEN GOSUB 1 
200: GOTO 1160 
1140 IF (Y«< 
(Y): GOTO 1130 
1150 Y = F(X):S(Y) = S(X):F(S(Y 
)) = Y:T(Y) = C:FE = VILA = € 
1160 NEXT A 
1170: NEXT C: PRINT "EVENTO INI 
CIAL =";U(SE);", EVENTO FINAL = 
"GU(FE) 
1180 FOR E = 1 TO EE:Y = E(E) 
1190 IF F(Y) = O AND (Y< >F 
E) THEN PRINT U(Y);"NAO CONECT 
ADO AO EVENTO FINAL”:CK = FA 
1192 NEXT E: IF CK THEN 1300 
1194 GOTO 1750 


O THEN SE = X: GO 


O OR (SE > MH) TH 


> SE) THEN Y = S 


1200 HOME : PRINT "EXISTE O SE 
GUINTE LOOP ": PRINT "EVENTOS... 
«MIRA = A(A) 

1210 X = F(XA): PRINT U(X):Y = 
S(XA): PRINT U(Y) 

1220 Y = S(Y): PRINT U(Y): IF Y 
< >X THEN IZ20 

1230 RETURN 

1300 K = 1:AK = AA: IF AA = 1T 
HEN K = 0 

1310 AK = INT ((AK + K) / 2): 
IF AK = O THEN 1500 

1320 K = 0: FORA = AK + 1 TO A 





A:B= A -AK:X=aA(A)j:Y=aA(B): 
XE = S(X):YE = S(Y) 

1330 IF T(YE) + YE / Z2< =T 
(XE) + XE / ZZ THEN 1360 

1340 A(A) = Y:A(B) = X:K = 1 
1360 NEXT A: GOTO 1310 


1500 N(FE) = LA: FOR D = LA - 1 
To 1 STEP - 1 
1520 FORA = 1 TO AA:X = A(A): 


IF N(F(X)) < > D+ THEN 156 


o 


1550 Y = S(X):F(T) = F(X):NC(Y) 

“b 

1560 NEXT A,D 

1600 FOR A = 1 TO AA:G(A) = A( 
A): NEXT A:K = L:AK = AA: IF AA 
= 1 THEN K = 0 

1610 AK = INT ((AK + K) / 2): 

IF AK = O THEN 1700 


1620 K O: FORA - AK + 1 TO À 
A:B= A - AK:X = G(A):Y = G(B): 
XE = F(X):YE = F(Y) 

1630 IF N(YE) + YE / Z2< =N 


(XE) + XE / ZZ THEN 1660 
1650 G(B) = X:G(A) = Y:K = 1 
1660 NEXT A: GOTO 1610 


1700 CK = TR: RETURN 
1750 CK = FA: INPUT 
URN>" ;HGS: RETURN 
2000 FORA =1TOAA:X=ÃãA(A): 
Z(X) = T(X): NEXT A: GOSUB 2100 
2020 FORA =1TOAA:Xã=ãA(A): 
Y(X) = (Z(F(X)) - TIS(X)) = Z(X 
)J) * 100: NEXT A: GOSUB 2100 
2030 FOR B = 1 TO AA STEPS: H 
OME FOR A = B TO AA + FN A(B 
+ 4 - AA):X = A(A) 

2040 PRINT : PRINT AS;U(X);” = 
"US (x) 

2050 C = Y(S(X)):D = Z(F(X)) 
2055 PRINT "PODE INICIAR "; IN 
T (C * 100) / 100;”, DEVE TERMI 
NAR ” INT (D * 100) / 100 

2060 PRINT "TEMPO LIVRE = "; I 
NT ((D - C - Z(X)) * 100) / 100 
"o ("7 INT (Y(X) * 100) / 100; 


"2 CRITICO)” 


"TECLE <RET 


2065 IF T = 12 THEN PRINT "DE 
SVIO = "; INT (Q(X) * 100) / 10 
0; 

2070 PRINT NEXT A: GOSUB 940 


: NEXT B: RETURN 

2100 FOR E = 1 TO EE:Y(E(E)) = 
O: NEXT E 

2110 FORA =1TOAA:X=ãA(A): 
V(F(X)) = YLFIX)) + EN Z(v(S(X 
D - T(FOO)) + Z(X)): NEXT A 


2120 FOR E = 1 TO EE:Z(E(E)) = 
Y(FE): NEXT E: FOR A = AA TO 1 
STEP - 1:X = G(A) 

2130 Z(S(X)) = Z(S(X)) + EN A( 
Z(F(X)) - Z(S(X)) - Z(X)): NEXT 
A: RETURN 

3000 FORA =1TOAA:X=ãA(A)j: 
P(X) = 0:Q(X) = 0:Y(X) = O: NEX 
TA 

3020 FOR E = 1 TO EE:X = E(E): 
P(X) = 0:Q(X) = O: NEXT E 

3030 FORM = 1 TO 43 STEP 3: F 
OR A = | TO AA:W(A) = 2 * RND 
(1) - 1: NEXT À 

3040 FOR N= 0 TO4 STEPZ: HO 
ME PRINT "CASO 4";M + N / 2;” 


(as 
20950 
TX = T(X): 
= 0: coTo 
3052 NX = 
EN Z(X) = 


FOR A = 1 TO AA:X = A(A): 
IF TX = O THEN Z(X) 
3080 

N(X): IF (NX = TX) TH 
TX: GOTO 3080 

3054 W = ENWIW(A) +N/ 3): 1 
EF NX > = TX*3 THENCZ(X) =NX 
* (W< TX / NX): GOTO 3080 
3060 IF NX > TX * 2.34 THEN Z( 
X) = — TX * LOG (W): GOTO 308 


o 

3070 W = EN X(W - .5):Z(X) = 
ABS (TX + W * (NX - TX)) 

3080 NEXT A 


3090 GOSUB 2100 

3100 FORA = 1 TO AA:X = A(A): 
Z = Z(F(X)) — YIS(X)) - Z(X) 
3110 P(X) = P(X) + Z:Q(X) = Q(X 
J+ZA ZrR = IX) - (2<I1. 
E - 6): NEXT A 

3120 FOR E = 1 TO EE:X=E(E): 
P(X) = P(X) + T(X):Q(X) = Q(xX) 


+ Z(X): NEXT E,N,M 
3125 IF KKS = "S” THEN PRINT 
DOS"PR$ 1” 


3200 FOR E = 1 TO EE:X = E(E): 
Y(X) = VAL ( LEFTS ( STARS (P(X 
) / 45),6)) 
3210 Z(X) = 


VAL ( LEFTS ( STR$ 
(Q(X) / 45),6)): NEXT E 


3220 FORA =1TOAA:X=aA(A): 
Y= Y(X):Y(X) = — VAL ( LEFTS 
( STRS (Y / 45 * 100),4)) 





3230 IF P(X) < 1.E - 2 THEN P( 
x = 0 

3240 2 = (45 - Y) + «JE - 9:Z4X 
) = Z(F(X)) - YIS(X)) — VAL « 
LEFTS ( STRS (P(X) / Z),6)) 
3250 Q(X) = SOR ((O(X) — P(X) 
ONE E) A AC A E A 
9)): IF Q(X) < 1.E - 6 THEN QIx 
) =0 

3260 NEXT A: GOTO 2030 


ha 


590 IF FS<>AS THEN 680 

600 FOR B=1 TO AA:IF X=A(B) THE 
N A=B 

610 NEXT B:A(A)J=A(AA) :U(X)=2Z2+1 
:AA=AA-1: RETURN 

620 IF U(X)<O GOSUB 1050: PRINT 
USING (44H44 ";ABS(U(X));: PRINT 
US(X):GOTO 650 

630 IF EE=ME THEN PRINT WS(2);F 
S: RETURN 

640 GOSUB 660 

650 PRINT W$(4);FS: INPUT US(X): 
S(X)=0: RETURN 

660 EE=EE+1:E(EE)=X:S(X)=-1:F(X 
)=0:U(X)=U 

670 T(X)=0:N(X)=0:US(X)="":RETU 
RN 

680 Z=X:FOR F=1 TO EE:IF E(F)=Z 
THEN E=F 

690 NEXT F:E(E)=E(EE) :U(Z)=Z22+1 
: EE=EE-1: RETURN 

700 Z=U-INT((U-1)/MH)AMH:Y=2:X= 





o 

710 IF X=0 (O=U(Z) OR ZZ+1=U(Z) 
JTHEN X=Z 

720 IF U=U(Z) THEN X=Z:RETURN 
730 IF Y=1 OR 0=U(Z) THEN RETUR 
N 

740 Z=Z+Y-MH*INT((Z+Y-1)/MH) :Y= 
Y+Y-MHXINT ((Y+Y-1)/MH) :GOTO 170 
750 OPEN "CAS:"+FS FOR OUTPUT A 
ss 

755 PRINT43, MAZSMEZSMHZSAAZSEE 
ZSEEZSCKZS 

760 IF CK THEN PRINT43, SEZSFE 
770 FOR A=1 TO AA:X=A(A) : PRINT 
43,X;ZSU(X) ZSS(X) ZSF (X) Z5T(X) 25 
N(X)ZSG(A) ZSUS (X) NEXT A 

780 FOR E=1 TO EE:Z=E(E):PRINTE 
3,Z; ZSU(Z) Z5S(Z)ZSF(Z)ZST(Z)Z5N 
(Z)ZSUS(Z) :NEXT E 

790 FOR X=1 TO MH:IF U(X)=Z22+1 
THEN PRINT 43,X 

800 BEXT X:PRINT$43,0 

B1O CLOSE43:MOTORO! 
100:NEXT X:MOTOROFF : 
820 CLS:PRINT"SALVAR DADOS - er 
ro:FOR K=1 TO 1000:NEXT:RETURN 
B30 OPEN "CAS:"+FS FOR INPUT AS 
43: INPUT 43,MA,ME,MH,AA,EE,CK: 
GOSUB 20 











840 IF CK THEN INPUT 43,SE,FE 

850 FOR A=1 TO AA: INPUT 43,X,U( 

KI. S(X) FOX), TOO NCX) O(A) USC 

X):A(A)=X:NEXT À 

860 FOR E=1 TO EE: INPUT43,Z,U(Z 

).S(Z) ,F(Z), T(Z) N(Z) US(Z) ELE 

)J=Z:NEXT E 

870 INPUT 43,X:IF X>0 THEN U(X) 

=Z2+1:GOTO 870 

880 CLOSE 43:RETURN 

890 GOSUB 1870:A=0:GOSUB 1030 

900 FOR A=1 TO AA:X=A(A) :GOSUB 

1000 

910 Y=Y+1:IF Y>B AND A<AA GOSUB 

1020:GOSUB 1030 

920 NEXT A:GOSUB 1020 

930 E=0:GOSUB 1050:FOR E=1 TO E 

E:X=E (E) :PRINT 4PR USING" &HELA 
;ABS (U(X)); : PRINT 4PR,US(X) 

940 Y=Y+1:IF Y>15 AND ESXEE GOSU 

B 1020:GOSUB 1050 

950 NEXT E:GOTO 1020 

960 CLS:PRINT"TEM CERTEZA ? (5 


/N)” 

970 TS=INKEYS:IF TS“>"S” AND TS 
<>"N”º THEN 970 

980 IF TS="N” THEN RETURN 

990 CLS:END 

1000 PRINT APR, USING"ARHHE EHEM 


POCO GRRRR O ARRHATFENUCSCX)) 
+ ENU(F(X)), T(X),N(X) ABS (U(X)) 5 
ZIF PR=0 THEN PRINT 

1010 PRINT 4PR.” ";US(X): RETURN 
1020 IF PR=1 THEN PRINT"<ENTER> 
PARA CONTINUAR": INPUT F$S:CLS:R 
ETURN ELSE RETURN 

1030 CLS:IF PR=1 OR A=0 THEN PR 
INT 4PR,"INICIO ULTIMA VEZ 90 
% ATIVIDADE” :Y=3 

1040 RETURN 

1050 CLS:IF PR=1 OR E=0 THEN PR 
INT PR,” EVENTO TEXTO” :Y=3 
1060 RETURN 

1070 CK=TR:FOR A=1 TO AA:X=A(A) 
1080 Z=S(X):IF S(Z)<0 OR ZZ<U(Z 
) THEN PRINT AS;U(X):WS(S):U(Z) 
1CK=FA 

1090 Z=F(X):IF S(Z)<0 OR ZZ<u(Z 
) THEN PRINT AS;U(X) ;WS(5);U(Z) 
:CK=FA 

1100 NEXT A:IF CK=FA THEN 1540 
1110 E=1 

1120 Z=E(R):IF S(Z)<0 GOSUB 680 
:IF E<=EE THEN 1120 

1130 E=E+1:IF E<X=EE THEN 1120 
1140 FOR E=l TO EE:Z=E(E):S(Z)= 
O:F(Z)=0:NEXT E 

1150 FOR A=1 TO AA:X=A(A):S(F(X 
))=X:NEXT À 

1160 SE=0:FOR E=1 TO EE:Z=E(E): 
IF S(Z)>0 THEN 1190 

1170 IF SE=0 THEN SE=Z:GOTO 119 


o 

1180 PRINT WS(1);U(Z):IF SE<=MH 
THEN PRINT WS (1) ;U(SE) :SE=MH+1 
1190 NEXT E:IF SE=0 THEN PRINT” 
TODOS OS EVENTOS TEM”:PRINT AS; 
”PRECEDENDO” 

1200 IF SE=0 OR SE>MH THEN 1540 
1210 FOR E=1 TO EE:Z=E(E):T(Z)= 
O:N(Z)=0:NEXT E:T(SE)=1 

1220 LA=1:FOR C=2 TO EE+2:IF LA 
<>C-1 THEN 1280 


1230 
JEF 
1240 
1270 
1250 
1240 
1260 Y=F(X):S(Y)=S(X):F(S(Y))=Y 
:T(Y)=C:FE=Y:LA=C 

1270 NEXT A 

1280 NEXT C:PRINT"EVENTO INICIA 
L";U(SE);”, EVENTO FINAL ";U(FE 
, 

1290 FOR E=1 TO EE:Y=E(E) 

1300 TF F(Y)=0 AND Y<>FE THEN P 
RINT U(Y);"NAO CONECTADO AO EVE 
NTO FINAL":CK=FA 

1310 NEXT E:IF CK THEN 1370 
1320 GoTo 1540 

1330 CLS:CK=FA:PRINT"EXISTE O S 
EGUINTE LOOP”: PRINT"EVENTOS 
"IRA=A(A) 

1340 X=F(XA):PRINT U(X):Y=S(XA) 
: PRINT U(Y) 

1350 Y=S(Y):PRINT U(Y):IF Y<>X 
THEN 1350 

1360 FOR X=1 TO 1000:NEXT:RETUR 
N 

1370 K=1:AK=AA:IF AA=1 THEN K=0 
1380 AK=INT((AK+K)/2):IF AK=0 T 
HEN 1430 

1390 K=0:FOR A=AK+1 TO AA:B=A-A 
K:X=A(A) :Y=A(B) :XE=S(X) :YE=-S(Y) 
1400 IF T(YE)+YE/Z2<=XE/ZZ+T(XE 
) THEN 1420 

1410 A(A)=Y:A(B)=K:K=1 

1420 NEXT A:GOTO 1380 

1430 N(FE)=LA:FOR D=LA-1 TO 1 S 
TEP-1 

1440 FOR A=1 TO AA:X=A(A):IF N( 
F(X))<>D+I THEN 1460 

1450 Y=S(X):F(Y)=F(X):N(T)=D 
1460 NEXT A:NEXT D 

1470 FOR A=1 TO AA:G(A)=A(A) :NE 
XT A:K=1:AK=AA:IF AA=1 THEN K=0 
1480 AK=INT((AK+K)/2):IF AK=0 T 
HEN 1530 

1490 K=0: FOR A=AK+1 TO AA:B=A- 
AK:X=G(A) :Y=G(B) :XE=F(X) :VE=F(Y 


FOR A=1 TO AA:X=A(A):Y=S(X 
T(Y)<>C-1 THEN 1270 
IF Y=F(X) GOSUB 1330:GOTO 


IF Y<>SE THEN Y=S(Y):GOTO 








) 

1500 IF N(YE)+YE/Z2<=XE/ZZ+N(XE 
) THEN 1520 

1510 G(B)=X:G(A)=Y:K=1 

1520 NEXT Goro 1480 

1530 CK=TR: RETURN 

1540 CK=FA:FOR X=1 TO 1000:NEXT 
X: RETURN 

1550 GOSUB 1870:FOR A=1 TO AA:X 
=A(A):Z(X)=T(X):NEXT A:GOSUB 16 
20 

1560 FOR A=1 TO AA:X=A(A):Y(X)= 
-(Z(F(X))-Y(S(X))=Z2(X))*100:NEX 
TA 

1570 FOR B=1 TO AA STEP 3:CLS:F 
OR A=B TO AA+FNA(B+2-AA) :X=A(A) 
1580 PRINT4&PR,AS;U(X);"=";US(X) 
1590 C=Y(S(X)):D=Z(F(X)):PRINT 
+PR,"PODE INICIAR";C;"DEVE TERM 
INAR”;D 

1600 PRINT&PR, "TEMPO LIVRE”; INT 
(100* (D-C-Z(X)))/100;” (CRITICO” 
:Y(X):"2)": IF T=9 THEN PRINTAPR 
+ USING" DESVIO=4444. 48" ;0(X) 
1610 PRINT&PR:NEXT A:GOSUB 1020 











:NEXT B:RETURN 

1620 FOR E=1 TO EE:Y(E(E))=0:NE 
XT E 

1630 FOR A=1 TO AA:X=A(A):Y(F(X 
))=Y (FOX) )+ENZVOS (X))-Y (E (X))+ 
Z(X)):NEXT À 

1640 FOR E=l TO EE:Z(E(E))=Y(FE 
J:NEXT E:FOR A=AA TO 1 STEP-1:X 
=G(A) 

1650 Z(S(X))=Z(S(X))+ENA(Z(E (X) 
)-2(S(X))-Z(X)) NEXT A: RETURN 
1660 GOSUB 1870:FOR A=1 TO AA:X 
=A (A) :P(X)=0:0(X)=0:Y(X)=0:NEXT 


A 

1670 FOR E=1 TO EE:Z=E(E):P(Z)= 
0:Q(Z)=0:NEXT E 

1680 FOR M=1 TO 43 STEP 3:FOR A 
=1 TO AA:W(A)=2*RND(0)-1:NEXT À 
1690 FOR N=0 TO 4 STEP 2:CLS:PR 
INT"CASO" ;M+N/2;" EM 45" 

1700 FOR A=1 TO AA:X=A(A):TX=T( 
X):IF TX=0 THEN Z(X)=0:GOTO 175 
o 


1710 NX=N(X):IF NX=TX THEN Z(X) 
=TX:GOTO 1750 

1720 W=FNW(W(A)+N/3):IF NX>=TX* 
3 THEN Z(X)=-NX* (W<TX/NX) :GOTO 
1750 

1730 IF NX>TX*2.34 THEN Z(X)=-T 
X*LOG(W) :GOTO 1750 

1740 W=ENX(W-.5):Z(X) =ABS(TX+W* 
(NX-TX)) 

1750 NEXT A 

1760 GOSUB 1620 

1770 FOR A=1 TO AA:X=A(A):Z=Z(F 
(X))-Y(S(K)) -Z(X) 

1780 P(X)=P(X)+Z:Q(X)=Q(X)+Z2*Z: 
Y(X)=Y(X)+(Z<1E-6) NEXT A 

1790 FOR E=1 TO EE:Z=E(E):P(Z)= 
P(Z)+Y(Z) :Q(Z)=Q(Z)+Z(Z) NEXT E 
«NM 

1800 FOR E=1 TO EE:Z=E(E):Y(Z)= 
VAL (LEFTS(STRS(P(Z)/45),6)) 
1810 Z(Z)=VAL(LEFTS(STRS(Q(Z)/4 
5),6)):NEXT E 

1820 FOR A=1 TO AA:X=A(A):Y=Y(X 
):Y(X)=-VAL (LEFTS (STRS (Y/45*100 
).4)) 

1830 IF P(X)<1E-2 THEN P(X)=0 
1840 Z=45-y+. 1E-9:Z(X)=Z(F(X))- 
Y(S(X))-VAL (LEFTS (STRS (P(X)/Z), 
6)) 

1850 Q(X)=SQR(ABS((Q(X)-P(X)*P( 
X)/2)/((2-1)+.1E-9))) :IF Q(X)<1 
«E-6 THEN Q(X)=0 

1860 NEXT A:GOTO 1570 

1870 CLS:PRINT"TELA OU IMPRESSO 
RA (7/1) ?” 

1880 QS=INKEYS:IF QS<>"T” AND Q 
S<>"I” THEN 1880 

1890 IF QS="I" THEN PR=2 

1900 CLS:RETURN 


Se você tem um acionador de disque- 
te acoplado ao seu MSX, proceda às se- 
guintes modificações: 


750 OPEN "A:"+FS FOR OUTPUT AS 
+ 

830 OPEN "A:"+FS FOR INPUT AS43 
: INPUT43,MA,ME,MH, AA, EE,CK:GOSU 
B 20 
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O utilitário que apresentamos neste 
artigo localiza e substitui qualquer 
palavra ou comando em programas BASIC, 
Com ele, os usuários do Spectrum e do 
TR$-Color economizarão esforço e tempo. 


Como todos os utilitários, o progra- 
ma de referência cruzada fornecido nes- 
te artigo não faz nada sozinho: é empre- 
gado como uma ferramenta para desen- 
volver outros programas. Escrito em có- 
digo de máquina, pode ser carregado na 
memória do computador junto ao pro- 
grama em BASIC ali residente. O utili- 
tário permanece na memória RAM até 
que o computador seja desligado. A: 
sim, é possível utilizá-lo repetidament 
sempre que for necessário. 

O programa de referência cruzada, 
ou indexador, funciona como um “'ca- 
çador””. Muitas vezes, ao desenvolver 
um programa em BASIC, precisamos 
localizar palavras, comandos, funções, 
cadeias de caracteres ou números escri- 
tos em algum ponto da listagem. Depen- 
dendo do tamanho do programa, a ta- 
refa é bastante morosa e cansativa. Mas, 
se você informar ao programa aquilo 
que está procurando, em um “piscar de 
olhos” ele percorrerá toda a listagem e 
imprimirá as linhas em que se encon- 
tram os caracteres procurados 

O indexador oferece uma alternativa 
ainda mais interessante: a substituição 
de uma cadeia de caracteres por outra 
Se você quiser, por exemplo, trocar os 
PRINT de um programa por LPRINT, 
ele passará a enviar todas as saídas de 
tela para a impressora. O indexador 
também se encarrega de buscar e subs- 
tituir variáveis no programa, dispensan- 
do o uso do comando EDIT. 

Quando se pretende fazer a adapta- 
ção de um programa para determinado 
computador, o indexador mostra-se um 
valioso auxiliar. Não só a tradução de 
uma versão de BASIC para outra fic: 
muito mais fácil (por exemplo, trocar 
cada comando HOME, do Apple, por 
CLS), como o fluxo lógico do progra- 
ma torna-se mais compreensível, já que 
é possível listar todas as ocorrências das 
instruções GOTO e GOSUB. 




















Outra aplicação de grande utilidade 
consiste na localização de erros em um 
programa. Suponhamos que você des- 
cubra que uma variável está recebendo 
valores errados em algum lugar do pro- 
grama. O processo normal seria percor- 
rer linha por linha, checando todos os 




















USOS DO PROGRAMA 
BUSCA E SUBSTITUIÇÃO 

ay DE CARACTERES 
BUSCA DE UM STRING OU 

DE UMA PALAVRA-CHAVE 


, 


pontos em que a variável se encontra à 
esquerda de um sinal de igual. Quando 
o programa é complexo, a tarefa torna- 
se muito desgastante e é provável que ve- 
nham a ocorrer alguns enganos. O in- 
dexador executa o mesmo trabalho, com 
exatidão, em pouquíssimo tempo. 




















O indexador p; 
te rograma 
listâdo no arti 


o Spectrum é par- 
r de ferramentas, 


você preferir. O progra- 

lo de uma rotina curta de 

nto, seguida por código de 

na em linhas DATA. Digite o pro- 

g em BASIC, armazene-o em fita 

com SAVE e execute-o com RU] 

próprio se encarregará de grav: 
ta com o código de máquina 


na. Para carregá-la, di 


CLEAR 64559 
LOAD "CREF” CODE 


Você poderá carregar o programa ei 
código antes ou depois de ter colocado 
um programa em BASIC na memória, 

izar buscas ou substituições. O 
to é o mesmo em ambos os 
vez carregado, as diversas 
ecutadas por meio de co- 
RANDOMIZE USR, 

a seguir. 


É e carac- 


RANDOMIZE USR 6463 


O programa so a cadeia que 
deve procurar: entre-a pelo teclado e 
pressione <ENTER>. As linhas que 
contêm a cadeia serão exibidas na tela. 

Para procurar uma palavra-chave em 
BASIC (comando ou função), digite: 


IZE USR 64911 


teres no programa, 


o comando anterior, v 
sai gitar a palavra-chave dedo 
dae pre: ar <ENTER>. O indexa- 
dor imprimirá todas as linhas do progra- 
ma em que ela ocorre. Para substituir 
um nome de variável por outro, digite: 


RANDOMIZE USR 64796 


Desta vez, você precisará entrar duas 
cadeias de caracteres: o nome da variá- 
vel já existente (a ser procurado) e o no- 
vo nome. Este pode ser mais curto ou 
mais longo que o original — o progra: 
ma aceda vinte caracteres para c; 

ssionar <ENTER>, t 


IDOMIZE USR 64 788 


10 CLEAR 64559: BORDER O: INK 
7: PAPER 0: CLS 


VERSE 1;AT 0,10;" 


e ET T=0: D=0 TO 15: 
AD A: POKE +A: LET T=T+A 
: NEXT D 

60 READ A: IF T THEN 
PRINT FLASH 1; 2RRO DE CHEC 
KSUM NA LINHA Morros PRINT 
"VALOR ESPERADO “;A;” VALOR 
ATUAL ";T: STOP 

70 LET L=L+0: N 

80 PRINT AT 18,0;"QUALQUER TE 
CLA PARA COMECAR A GRAVAR” 
B5 LET AS=INKEYS: IF AS="" 
THEN GOTO 85 * 

B7 SAVE "CREF"CODE 64560,832 
88 STOP 

O DATA 203,39,95,22,0,221,33 

233,253,221,25,221,110,0,221 

02,1999 
DATA 1,205,69,252,201,62, 

254,229,205,1,22,225,126,35, 
254,255,2396 
110 DATA 40,4,215,195, 
201,207,9,209,225,20] 
201,205,2498 
120 DATA 142,2,14 
,30,3,48,244,21 
1344 
130 DATA 254,0 1,46,25,11 
45,32,252,201, 


,249,2! 
05,51,3, 


,208,17,4,0,25,126, 
,35,24,237,205,179, 


,56,3,35,24,240, 
229,42,59,255,205,85,24,62,13 
215,1799 
170 DATA 22 
255,58,63 
32,1824 
180 DATA 5, 
225,191,201, 
,83,2036 
190 DATA 92,3 
64,208,17,4,0,25, 
,1563 
200 DATA 3,35,24,237,254,168, 
40,7,254,206,40,3,35,24,237 

29,1796 
DATA 42,59,255,205,85,24 
3,215,225,62,13,1,0,0,237h, 


ATA 177,24,206,175,1 
+205,115,252,205,95 2 
5,241,2968 

230 DATA 225,209,254,13,40, 
18,19,52,24,234,201,62,13,205, 
48,1622 

240 DATA 252,17,85,255,33,63, 
255,205,3,253,62,18,205,48,252 
,33,2039 


4,240,229,17,85, 
71,26,19,190,35, 


8,225,55,201, 
54,205,1,22,42 


9,255,126,254, 
26,254,13,32 


Oo oaios.so. 32,76,69, 


250 DATA 64,255,17,65,255,205, 
,42,83,92,126,254,64,208, 


4,0,25,126,254,13,32, 
0,254,34,32,9,35, 


0,0,237,177,126,24, 
243,205,179,252,56,3,35,24,227 
,1789 
280 DATA 58,63,255,79, ; 
255,145,56,25,40,8,79,640,229, 
1420 
290 DATA 205,85,22, 
255,17,65,255,79,650, 
176, 1984 
300 DATA 235, 2,237,68)79, 

2 


6,0,229,205,2 20". 


158, 
35,2 


117,85, 
3,33,150 


2,32,69,78, 


62,2072 
+0,1870 
35,203,2350 
+34,1891 
239,1813 
97,62,13, 
42 255, 
205,1941 
254,86,2067 
4,143,2681 
69,69,61,255,80,82,79,71 
,69,82,32,65,82,82,65,89,255; 
69,82,32,65,82 
+82,79,7 165,77,61,2, 32, 
1530 
430 DATA 9,84,69,83,255,70 
E 32,255,70,73,76,69,32 
32,76,73,78,69,32,58,255,69, 
,32,58,255, 
480 


310 DATA 13,205,4 
320 DATA 7,205 179, 252,56) 
330 DATA 126,35,40,251,193,1 
340 DATA 59,255,126,254,64,208 
350 DATA 185 2 
360 DATA 85,24,62,13, 1225, 
70 DATA 254,98,254,110,254,27 
O DATA 254,160,254,184,254 
1357 
1524 “» 
6 , 7,84, 
65,8 5, 
1323 
173,76,69, 84,89,80, 1, 
, 7,69,61,32,25 e 
84,72,61,32,255,69,78 
1254 
470 DAR 75,84 
68,32,76,73,7 
73,78, 


255,33,63,255,205,3, 
165,90,197,205,179,252,56 
16,240,195,87,252,193,42,83,92 
(35,35,35,35,12 254,13,40, 
1,0,0,237,177;, 
193,24,214,15,254,70,254,79, 
[254,35,254,48,254,64,254,124, 
% 254,229,254,236, na 
255,66,3125 

0 DATA 89,84,69,83,32,70, 
400 DATA 65,77,255,78,85,7 
410 DATA 67,72 
420 DATA 66 789. 84,69:83,255,80 
1349 
1275 ; 
460 onflbea, 22.83.84.6 ,82,84, 
1233 
1 


,84,69,82,32,76, 
3,78,67,82,69, 








490 DATA 77,69,78,84,83,3255B, 
255,69,78,84,69,82,32,84,65, 
1299 

500 DATA 82,71,69,84,32,83,84, 
82,73478,71,58,32,255,69,78, 
1301 

SLO/DATA 84,69,82,32,68,69,67, 
73,77,65,76,32,78,85,77,66, 
1100 

520 DATA 69,82,32,58,255,72,69 
BB, 32,61,92,255,69,78,84,69, 
1405 

530 DATA/B2,32,72,69,88,39,32, 
78,85,77,66,69,82,58,32,255, 
1216 

540 DATA 68,69,67,73,77,65,76, 
61,32,255,69,78,84,69,82,32, 
1257 

550 DATA 78,69,87,32,83,84,82, 
73,78,71,58,255,0,0,0,0,1050 
560 DATA 9,23,220,10,254,21, 
206,11,254,80,3,23,220,10,215y 
24,1583 

570 DATA 177,1,0,10,0,100,04 
232,3,16,39,48,48,49,48,0,771 


O programa indexador para os com: 
patíveis com o TRS consiste de uma 
rotina curta de carregamento, seguida de 
linhas DATA onde estão os códigos do 
programa em linguagem de máquina. 

Digite essas linhas cuidadosamente. 
O computador irá imprimir uma men- 
sagem de erro se você cometer algum en- 
gano na digitação dos números, mas só 
quando você executar O programa. 

Não havendo erros, grave o progra- 
ma'em fita com CSAVE. Em seguida, 
armazeneo programa em linguagem de 
máquina gerado na memória com: 


CSAVEM “CREF”,28672,29500,28672 





O programa que você realmente uti- 
lizará é essa versão em linguagem de má- 
quina, Para reservar espaço para ela, o 
topa da área do BASIC é reduzido em 
quatro Kbytes. Assim, o indexador não 
pode ser empregado com programas 
muito longos em BASIC (que se esten- 
dam além da memória 6FFF); 

Para usar o programa, digite; 


CLEAR 200,4H6FFF 
CLOADM "CREF” 


Você poderá carfegá-lo antes ou de- 
pois de ter colocado 0 programa em BA- 
SIC na memória, para realizar buscas ou 
substituições. O procedimento é o mes- 
mo em ambos oscasos. Uma vez carre- 
gado, as diversas opções serão executa- 
das pôr meio do comando: 


EXEC 4H7000 


Depois de digitá-lo, aparecerá na te- 
lauum menu com estas opções: busca de 
cadeias, palavrasschave (comandos ou 
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funções) e substituição. Pressione a ini- 
cial da alternativa escolhida. 

Se você acionar a primeira opção, o 
programa pedirá que entre a cadeia dese- 
Jada, Digite-a e pressione <ENTER>. 
Todas as linhas que contêm a cadeia se- 
rão listadas 

Para substituir uma cadeia por outra, 
digite ambas as cadeias. Elas devem ter 
o mesmo número de caracteres 

Quando usar a opção de busca de pa- 
lavras-chave, lembre-se da distinção en- 
tre comando e função. Se não souber a 
que categoria pertence a palavra, tente 
ambas as alternativas. 











10 CLS:CLEAR 200,&H6FFF 

20 FOR X=1 TO 741 STEP 18 

30 READ X$:CS=0 

40 FOR P=1 TO 36 STEP 2 

50 V=VAL ("&H"+MIDS (XS,P,2)) 
609C8=CS+V: POKE A&H6FFF+X+P/2,V 
70 NEKT:READ A:IF CS<>A THEN PR 
INT"ERRO DE CHECKSUM NA LINHA” 
100+10XINT (X/18) : END 

80 NEXT 

100 DATA 34367F02297F02387F0236 
7F02397F02377F,1141 

110 DATA 023C308C231701F8BDAICI 
27FB8153102700,1657 

120 DATA 668152102700B7814B1027 
00B68146102701,1247 

130 DATA 031602A85345415243480D 
3C533E5452494E, 1168 

140 DATA 4753203C523E45504C4143 
450D3C4B3E4559,1184 





150 DATA 574F5244530D3C46JE5S4E 
4354494F4ED346,1429 

160 DATA 494E443FAD494E53455254 
3FA04E4F542046,1477 

170 DATA 4F554E44A0303030303030 
2040308CDD1701,1383 

180 DATA 818E02001700B47D023927 
0B86CBA2508622,1510 

190 DATA A7807C0239B60228BB0239 
B7022C7D022027, 1387 

200 DATA 0C308CB91701578E021417 
008A108E001910, 1020 q 
210 DATA BF022E108E001B1QgBOP 
1700AB7D023C26,1100 

220 DATA 06308C9D1701331602007c 
022920A48E0121,989 

230 DATA BF022E8E01228F0230308D 
FF741701188E02,1408 

240 DATA oogbtcuco?8gs7022c.ga dR 
A6B4BABOA7848E, 1757 

250 DATA FFFFDFO2 3476029 copbRBE 
0200C601F7022C,1815 

260 DATA F602382707C6FFE7 
2CB6023780018A, 1838 

270 DAIA 80A7847F02362087 
BFO22E8E0127BF,1570 

280 DATA 02307 CO2HBCOna SE aDA PL 
27FB810D272681 1708 | 

290 DATA 082608810027ERSh301FBD 
AZ8220B7BDA282,1923 

300 DATA 488 12425087099902703 
7C02395Ccm47D,1249 

310 DATA D1F7022539h69BD22E7D02 
36260ABF023210,1427, 5 


320 DATA AEB410BFOZH4SF108E0200 
A6B04D2A107002, 1377 

330 DATA 377D0248260881FF260430 
0120EBAC9F0230,1407 

340 DATA 2C5FBC02342D133410BE02 
34BF0232AE9F02,1335 

350 DATA 32BF023435103004A1A026 
G458F1022C2DC3,1590 

360 DATA 7D023626388D467D022927 
B2108E0214F602,1299 ai 
370, DATA) 2BF7023E7D02392609F6/ 
2087023E503085,1449 E 
380 DATADAGA0E684C122270CA c 
02342C057A023E,1738 

390 DATA 26EC128D12208139860DBD 
A282A6802B05BD, 1828 

400 DATA AZ8220F73934367C023C86 
ODBDAZ82BE0232,1790 

410 DATA BD71308DRE4F8DDCBE0232 
3004A680BC0234, 1967 

420 DATA 2C414D2BOSBPA2Z8220F181 
FF27283430BEO1, 242) 
430 DATA 21108E012210BR023ASD2E 
A6B0AC9F023AZE, 1411 a 
440 DATA OD4D2BOSBDAZB220EBB47F 
BDA282353020C5,1961 e 


450 DATA A6803430BE0126108 
20D4860DBDA282,1693 , 
460 DATA 3536391E89C0805D270E 


B0AC9F02302C06, 1522 

470 DATA ADE BEENS nas AERO 
03BD8CC6342010,2003 

480 DATA 8E303010BF708310BF7085 
10BF70873002AE, 1818 

490 DATA 843001318DFDC23121301F 
8C0000271 LAG, 1505 

500 DATA 4CA7A48] JAZDEAB630A7A4 
313F20EF 3520 39/1911 

510 DATA 353639 164. 
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Os computadores têm a capacidade 
de armazenar grande quantidade de da- 
dos em um espaço muito reduzido e de 
trabalhar com eles a uma velocidade 
fantástica. São, por isso, a ferramenta 
ideal para manipular e recuperar infor- 
mações organizadas de uma forma es- 
pecial, que é denominada banco de da- 
dos ou, ainda, base de dados. Os pro- 
gramas destinados a executar essa tare- 
fa constituem os sistemas gerenciadores 
de bancos de dados (SGBD). 

Um banco de dados é essencialmen- 
te um conjunto de informações corre- 
lacionadas e organizadas em um ou mais 
arquivos de computador. Os arquivos, 
por sua vez, são conjuntos de registros 
de dados, cada qual formado de uma sé- 
rie de campos. Para entender melhor es- 
sa hierarquia (base, arquivos, registros 
e campos), tomemos como exemplo 
uma agenda telefônica simples. Um dos 
arquivos, que chamaremos arquivo- 
mestre, contém certo número de regis- 
tros. Cada registro corresponde a uma 
pessoa ou empresa listada na agenda, 
comportando um número fixo de cam- 
pos com conteúdos bem definidos: 


Campo Tipo Nº de caracteres 
Nome A 40 
Endereço A 45 
Cidade A 25 
Estado A 2 
CEP N 5 
Telefone N t 


Além do nome, dois outros elemen- 
tos caracterizam um campo: o fato de 
ser alfabético (A) ou numérico (N) e o 
espaço que reserva para o dado (40 ca- 
racteres para o nome da pessoa, 5 para 
o CEP etc.). Os campos funcionam co- 
mo uma espécie de rótulo para um da- 
do ou informação. O número, nome, ti- 
po e comprimento de cada um variam 
de acordo com a aplicação. Um ban- 
co de dados para arquivar sua coleção 
de discos, por exemplo, teria campos pa- 
ra o nome do disco, ano de gravação, 
conjunto, solista, gênero de música, gra- 
vadora etc. Um sistema para folha de 
pagamentos de uma empresa teria cam- 
pos totalmente diferentes, como nome 
do empregado, data de nascimento, se- 









BANCOS DE DADOS 


xo, estado civil, número de dependen- 
tes, data de admissão, cargo, salário. 

O conjunto de especificações de um 
registro (nome do campo, comprimen- 
to etc.) é denominado esquema ou for- 
mato. Note que o número de bytes ocu- 
pados por um registro é igual à soma dos 
bytes ocupados pelos campos (no exem- 
plo anterior, o comprimento de um re- 
gistro corresponde a 124 bytes). Em ca- 
da registro colocam-se as informações 
referentes a uma pessoa ou empresa. 
Dentro de um banco de dados, os regis- 
tros normalmente são identificados pe- 
lo seu número de série ou posição se- 
quencial (1,2,3... etc.). 

Tais dados são reunidos em uma mes- 
ma unidade de informação por estarem 
inter-relacionados. Se puséssemos todos 
os nomes em um arquivo, os endereços 
em outro, e os telefones em um tercei- 
ro, seria muito difícil estabelecer a cor- 
respondência entre as informações dos 
três arquivos, e acabaríamos não saben- 
do a quem pertence um endereço ou te- 
lefone, ou vice-versa. 

Esse tipo de organização, chamado 
registro de formato fixo, é o mais utili- 
zado em bancos de dados para micro- 
computadores. Definido o formato, os 
dados podem variar de registro para re- 
gistro, ou mesmo serem modificados 
dentro de cada registro. O esquema, po- 
rém, continua sempre o mesmo. 

Em nosso exemplo, outros arquivos 
seriam necessários para a caracterização 
de um verdadeiro banco de dados: ar- 
quivos-índice, arquivos auxiliares etc. 
Mais adiante veremos o significado e 
também a importância dos arquivos se- 
cundários — como uma lista de códigos 
DDD das cidades presentes em um ar- 
quivo-mestre — para a organização de 
um banco de dados. 


UE É UM SGBD? 


Um arquivo-mestre como o definido 
acima seria apenas o equivalente eletrô- 
nico de um fichário manual, onde cada 
ficha corresponde a um registro no ar- 
quivo. Em um arquivo de dados, a or- 
ganização do registro geralmente é 
pré-programada e não pode ser altera- 
da pelo usuário do programa. Se você 





Mesmo que suas necessidades de 
arquivamento sejam mínimas, um sistema 
de gerenciamento de banco de dados 
pode significar um bom investimento. 
Conheça suas possibilidades. 


comprar um programa para gerencia- 
mento de agenda telefônica, por exem- 
plo, terá que obedecer ao esquema já es- 
tabelecido internamente para o arq! 
vo-mestre, sendo impossível modificá- 
lo de acordo com suas necessidades. 

Um sistema de gerenciamento de 
banco de dados é bem mais flexível e po- 
deroso. Por ser um programa genérico, 
possibilita a alteração de um esquema 
já existente e a definição de novos es- 
quemas, totalmente diferentes, segundo 
o desejo do usuário. Além disso, o 
SGBD tem uma série adicional de fun- 
ções que dão acesso a eficientes recur- 
sos de manipulação de arquivos de da- 
dos, entre os quais ordenação, modifi- 
cação de registros, substituição de um 
ou mais campos em todo o arquivo, ge- 
ração de arquivos auxiliares, pesquisa e 
recuperação de informações seleciona- 
das, elaboração de relatórios impressos, 
estruturados conforme especificações do 
usuário etc. Nos artigos das páginas 81 
a 706, apresentamos um programa re- 
lativamente simples de gerenciamento de 
banco de dados, com algumas das ca- 
racterísticas mencionadas. 

Outra diferença clara entre um arqui- 
vo simples e uma base de dados é que 
nesta usamos o computador não só pa- 
ra colocar os dados em arquivos, mas 
também para extrair novos tipos de in- 
formação do repertório original. 

Costuma ocorrer certa confusão no 
uso dos termos “banco de dados" e 
“sistema gerenciador de bancos de da- 
dos”, Muitas vezes, utiliza-se “banco de 
dados” para designar o sistema geren- 
ciador, com seu hardware e/ou softwa- 
re, quando esse termo se refere apenas 
ao conjunto dos arquivos que contêm 
informações específicas, ou aplicações. 
Em um verdadeiro SGBD os dados exis- 
tem independentemente dos programas: 
por isso, é possível fazer modificações 
no esquema sem alterar o programa que 
gerencia o banco de dados. 

Há uma grande variedade de SGBD 
para microcomputadores domésticos e 
profissionais. Eles diferem muito entre 
si quanto ao número e potência dos re- 
cursos que oferecem, e também quanto 
às restrições que impõem (número má- 
ximo de campos por registro, número 
máximo de registros etc.). A utilização 
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dos SGBD em geral não apresenta difi- 
culdades, pois toda a operação é orien- 
tada através de menus ou comandos 
simples, que podem ser aprendidos em 
pouco tempo. Neste artigo examinare- 
mos algumas das principais funções dos 
sistemas de gerenciamento para micros. 


agito Ro o Re dito) 


Todo SGBD oferece ao usuário a op- 
ção de definir o esquema de arquiva- 
mento. Esta é a primeira tarefa a cum- 
prir quando se está montando um banco 
de dados no computador. A opção em 
geral funciona de forma conversacional 
em sistemas para micros — o usuário 
pode determinar, em interação com a 
máquina, o nome, tipo e comprimento 
de cada campo, alterando-os à vontade 
durante o processo de definição. 

Uma vez estabelecido, o esquema pa- 
ra o banco de dados é armazenado em 
disco ou fita cassete, de modo que, to- 
da vez que o usuário especificar o no- 
me do arquivo que quer usar, o SGBD 
automaticamente se “lembrará”” do es- 
quema definido para o mesmo. 

Os sistemas de gerenciamento variam 
muito quanto à flexibilidade e capaci- 
dade de definição do esquema. Alguns 
não admitem ao usuário que elabore 
mais que simples listas de nomes de cam- 
pos com seus respectivos comprimentos. 
Outros permitem a especificação de um 
grande número de propriedades adicio- 
nais para cada campo — como número 
de decimais, posicionamento do campo 
na tela, parâmetros de verificação de 
consistência e erro (por exemplo, valo- 
res mínimo e máximo para um campo 
numérico) —, aceitando ainda uma va- 
riedade maior de tipos de campo (datas, 
variáveis lógicas etc.). 

Convém planejar cuidadosamente o 
formato de um registro antes de come- 
çar a defini-lo com o auxílio do SGBD, 
pois muitos sistemas não permitem a al- 
teração do formato após a entrada dos 
dados nos registros. Assim, é interessan- 
te colocar um ou dois campos adicio- 
nais, denominados NOTAS, OUTROS 
etc., para que novos tipos de dados pos- 
sam ser introduzidos posteriormente. 

No momento da definição do forma- 











to do registro, também é importante de- 
cidir quando juntar ou separar informa- 
ções diferentes em um mesmo campo. 
Por exemplo: no banco de dados para 
gerenciar uma agenda telefônica, você 
poderia ter optado por colocar CEP, es- 
tado e cidade em um único campo, e não 
em três campos separados. A escolha de- 
pende da aplicação desejada. Se você 
pretende ordenar o arquivo segundo o 
CEP, ou contar quantos amigos tem no 
Estado de Minas Gerais, o trabalho se- 
rá bem mais fácil se esses dados estive- 
rem separados. 

Outra consideração relevante diz res- 
peito à dimensão de cada campo. Em al- 
guns casos (uma data, por exemplo) po- 
dem-se utilizar medidas padronizadas. 
Mas muitas vezes o tamanho depende da 
informação que será incluída. Qual é o 
número ideal de caracteres para o no- 
me de uma pessoa? Se especificarmos 
um comprimento muito longo (digamos, 
cem caracteres), praticamente todos os 
nomes existentes poderão ser colocados, 
sem que precisemos abreviá-los. Mas os 
espaços em branco que sobram também 
ocupam memória, limitando o número 


total de registros por arquivo. Por ou- 
tro lado, se definirmos um número mui- 
to pequeno de caracteres, o campo será 
insuficiente para a maioria dos nomes. 
É necessário, portanto, encontrar um 
ponto de equilíbrio. 

Os SGBD também diferem muito 
quanto à capacidade. Mas todos im- 
põem certas restrições na definição do 
formato: número total de campos por re- 
gistro, número máximo de caracteres no 
nome de um campo, comprimento máxi- 
mo de um campo alfabético ou numéri- 
co, tamanho total do registro etc. Tais 
condições têm que ser levadas em conta 
quando se projeta o formato do registro. 


PU 


Depois de termos definido o forma- 
to dos registros, o programa se encar- 
rega de criar o arquivo. Podemos então 
passar ao próximo passo, que consiste 
em “*encher” o banco de dados, ou se- 
ja, introduzir os dados reais que preten- 
demos armazenar. Os SGBD possuem 
funções especiais para isso, bem como 


para corrigir ou modificar os dados já 
entrados em qualquer um dos registros 
que fazem parte do banco. 

Cabe aqui uma breve explicação so- 
bre os dois métodos básicos usados pe- 
los SGBD para armazenar registros em 
um arquivo, pois eles afetam bastante 
o desempenho do sistema. 

O método mais comum, principal- 
mente nos SGBD mais simples, destina- 
dos aos micros domésticos, é o dos ar- 
quivos-segiienciais. Esse método é o úni- 
co disponível para microcomputadores 
com memória auxiliar baseada em fitas, 
e impõe certas restrições no emprego de 
um banco de dados. Um arquivo se- 
quencial é mais do que suficiente quan- 
do se deseja listar de uma só vez toda 
a informação armazenada (como em um 
programa de mala direta), mas não tem 
muita utilidade quando é necessário iso- 
lar ou procurar detalhes específicos. 
Além disso, a inserção de novos regis- 
tros em um arquivo desse tipo precisa 
ser feito sempre no final, e envolve di- 
ferentes passos, dependendo do compu- 
tador utilizado. 

O método mais eficiente é o dos ar- 
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quivos de acesso direto, empregado nos 
SGBD mais sofisticados e profissionais, 
que exigem o uso de discos magnéticos. 
Esse método permite que se atinja um 
determinado registro de qualquer pon- 
to de partida, não sendo necessário re- 
copiar todo o arquivo quando se faz 
uma inserção ou modificação. Além dis- 
so, a velocidade de acesso é considera- 
velmente maior. Funções típicas de 
SGBD de arquivos sequenciais, como a 
geração de relatórios segiienciais, po- 
dem ser executadas facilmente pelo soft- 
ware destinado ao gerenciamento desses 
SGBD de acesso direto. 

Sistemas de acesso direto possibilitam 
ordenações, indexações e buscas muito 
mais complexas do que os sistemas de 
acesso sequencial. 


Ugo SS do Te 


Embora sistemas de acesso direto e 
sequencial sejam bastante diferentes no 
que diz respeito à organização dos ar- 
quivos, eles não são mutuamente incom- 
patíveis. Os bons SGBD têm opções que 


permitem transformar ou transferir in- 
formações de um arquivo segiencial pa- 
ra um arquivo direto, e vice-versa. Es- 
sas operações, chamadas respectivamen- 
te de importação e exportação de arqui- 
vos, possibilitam, por exemplo, que da- 
dos de uma planilha ou de um proces- 
sador de textos sejam utilizados com um 
programa de banco de dados. 

Para transformar um tipo de arquivo 
em outro, os separadores de campos de- 
sempenham um papel importante. Um 
separador é um caractere de controle que 
assinala quando um campo termina e ou- 
tro começa, em um arquivo sequencial. 

Em geral utiliza-se como separador 
o caractere ASCII 13 (carriage return, 
ou retorno de carro), gerado quando se 
pressiona a tecla <ENTER> ou a te- 
cla < RETURN, mas é possível usar 
qualquer outro. Os SGBD mais pode- 
rosos permitem a definição do separa- 
dor que se pretende utilizar. 

Com o emprego de separadores de 
campo predeterminados pode-se com- 
pactar a informação transmitida, de ma- 
neira a maximizar o uso da memória dis- 
ponível. O programa que importa ou ex- 


porta arquivos precisa ser capaz de re- 
conhecer esses separadores. 

Já existem alguns padrões de repre- 
sentação sequencial de dados para faci- 
litar a importação e exportação de ar- 
quivos entre diferentes aplicativos. O 
mais conhecido para micros é o padrão 
SDF (Standard Data Format). 


BUSCA DE INFORMAÇÕES 


O que fazer com os dados depois que 
eles foram armazenados nos registros de 
um banco de dados? A função empre- 
gada com mais fregiência é a de busca 
e recuperação de informações. Ela de- 
pende, basicamente, da especificação 
das condições que devem ser satisfeitas 
por um registro para ser encontrado no 
banco de dados, e pode ser tão comple- 
xa quanto se queira. 

O papel de um SGBD equivale ao do 
gerente de um arquivo não eletrônico, 
que se encarrega de atualizar os dados 
e de achar a informação desejada pelos 
usuários. Em um sistema manual, o ge- 
rente de arquivo tem que tomar algumas 





decisões sobre a forma de dispor as fi- 
chas nas gavetas. Um arquivo de empre- 
gados, por exemplo, poderia ser arran- 
jado de acordo com a ordem alfabética 
dos nomes das pessoas. Para localizar 
a ficha com os dados de um funcioná- 
rio, bastaria saber seu nome. 

O problema realmente começa quan- 
do se pretende localizar informações a 
partir de outras referências — por exem- 
plo: quais são os funcionários que estão 
completando trinta anos de serviço? Co- 
mo as fichas não foram organizadas se- 
gundo o tempo de serviço, seria preciso 
examiná-las uma a uma até encontrar 
aquelas que contêm a condição pedida. 
Se esse tipo de informação é solicitado 
com freqiiência, o gerente acabará deci- 
dindo montar um arquivo auxiliar, com 
as fichas individuais dos funcionários co- 
locadas em ordem de tempo de serviço. 

Muitos outros fichários como esse 
podem ser necessários, tornando a ta- 
refa do gerente cada vez mais complexa 
e difícil. Um computador seria nesse ca- 
so a melhor solução. 

Se o fichário com todos os dados dos 
empregados estiver armazenado na me- 
mória, a máquina irá agir da mesma for- 
ma que o gerente para localizar os fun- 
cionários que atingiram trinta anos de 
serviço. Examinará registro por registro, 
comparando a chave de busca com os 
dados contidos no campo ou campos 
correspondentes, até que a condição de 
busca seja satisfeita. A diferença é que 
o computador pode fazer essa mesma 
tarefa em um espaço de tempo milha- 
res de vezes menor. Mesmo assim, se o 
arquivo-mestre for muito grande, esse 
tipo de busca, chamado busca linear, 
pode demorar demais. 

A eficiência da máquina se revela 





realmente quando começamos a usar os 
arquivos auxiliares. Em um sistema 
computadorizado, o arquivamento é fei- 
to exatamente da mesma maneira que 
no sistema manual, ou seja, o SGBD 
dispõe os registros do arquivo-mestre se- 
gundo determinado tipo de arranjo, e 
um conjunto de outros arquivos auxi- 
liares são construídos. Alguns simples- 
mente utilizam uma forma de ordena- 
ção diferente da do arquivo-mestre — 
são os chamados arquivos-índice. Ou- 
tros contêm informações adicionais, 
mas se relacionam ao arquivo-mestre 
através de algum campo (por exemplo, 
o nome do funcionário). Os bancos de 
dados organizados desse modo são de- 
nominados relacionais. Os softwares 
dos SGBD mais eficientes para micros, 
como o dBASE II, incluem-se nessa ca- 
tegoria. 

Buscas em arquivos-índice levam me- 
nos tempo que em arquivos-mestre, pois 
aqueles, além de menores, são organi- 
zados para permitir o uso de técnicas rá- 
pidas de busca, como a busca binária. 
Nesse tipo de busca, o trabalho se ini- 
cia a partir do meio do arquivo, e não 
do começo, como no método linear. 
Quando procuramos o nome de uma 
pessoa em uma página da lista telefôni- 
ca, por exemplo, a técnica que costuma- 
mos utilizar é justamente a binária: pri- 
meiro, verificamos se o nome está an- 
tes ou depois do nome que ocorre no 
meio; se estiver antes, examinamos a 
primeira metade da página, dividindo- 
a novamente ao meio. Repetimos o mes- 
mo procedimento várias vezes, até che- 
gar ao nome desejado. 

A vantagem da busca binária é que, 
através dela, se pode examinar um nú- 
mero muito menor de registros do que 
numa busca linear, até achar o registro 
procurado. A busca binária em um ar- 
quivo relacional requer a técnica de 
acesso direto e, portanto, só pode ser 








implementada em sistemas baseados em 
discos. A única busca possível em arqui- 
vos segienciais é a linear, que, além de 
tomar muito tempo, exige que se rebo- 
bine manualmente a fita toda vez que se 
inicia uma nova bus: 
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Tanto na ordenação quanto na inde- 
xação de um banco de dados, utiliza-se 
o campo-chave para organizar os arqui- 
vos auxiliares. Normalmente, todo ar- 
quivo-mestre tem pelo menos um cam- 
po-chave, que corresponde ao campo 
mais importante — aquele no qual se 
buscam informações mais frequente- 
mente. É este o campo que o SGBD usa- 
rá como referência quando for realizar 
uma ordenação ou recuperar um regis- 
tro através da técnica de busca binária. 

Se a busca tem como alvo apenas um 
registro (por exemplo, um determinado 
funcionário em uma folha de pagamen- 
to), o campo-chave também precisa ser 
único. Por isso, não convém usar o no- 
me completo do funcionário (ou, pior 
ainda, só o sobrenome). O melhor é 
adotar um só número de identificação, 
como o da carteira de identidade ou o 
atribuído pela própria firma (número 
funcional). Os sistemas de controle de 
contas correntes de bancos utilizam es- 
se processo. O campo-chave para efe- 
tuar todos os acessos e transações com 
o sistema é o número da conta do clien- 
te, e não seu nome. 

Quanto mais sofisticado um SGBD, 
maior será sua flexibilidade, e mais fá- 
cil a localização de informações. 
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Existem vários métodos de busca de 
informações, alguns dos quais já cita- 
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dos anteriormente. Em uma busca inde- 
xada, a informação desejada está con- 
tida em um ou mais campos do arquivo- 
índice. A busca propriamente dita é feita 
nesse arquivo, onde cada registro tem 
um apontador para O registro corres- 
pondente no arquivo-mestre. 

Quando se realiza uma busca por 
campo único, em geral se utiliza um 
campo-chave para localizar a informa- 
ção diretamente no arquivo-mestre. 

Em uma busca por critérios, várias 
informações são combinadas de modo 
a fornecer uma expressão lógica, que é 
resolvida para cada registro do arqui- 
vo-mestre, até que resulte verdadeira. 
No exemplo dado, o presidente da com- 
panhia poderia querer localizar todos os 
empregados com mais de cinqienta anos 
de idade, mais de trinta anos de servi- 
ço, que fossem do sexo masculino e re- 
sidissem na capital de São Paulo ou na 
cidade de Campinas. 

Finalmente, existe a busca por sub- 
cadeias literais — com certeza a mais 
versátil, mas também a mais lenta, por 
ser linear. O computador simplesmente 
procura em um determinado campo a 
ocorrência de uma cadeia de caracteres 
— uma palavra, ou então um número 
— especificada pelo usuário e mostra to- 
dos os registros em que a mesma ocor- 
re. É um tipo de busca muito útil para 
achar informações situadas no meio de 
um campo, ou que não foram isoladas 
em um campo próprio. Por exemplo: lo- 
calizar todas as pessoas que têm um de- 
terminado sobrenome em uma agenda 
telefônica em que o nome completo é o 
campo-chave. 
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Um SGBD de qualidade sempre in- 
clui algum tipo de recurso de formata- 
ção de relatórios de saída (em vídeo 
e/ou impressora). Isso permite ao usuá- 
rio construir um relatório exatamente na 
forma em que será apresentado. Cabe 





OTDATA 1.02 


As telas mostram várias funções de um 
sistema moderno de gerenciamento de 
bancos de dados para micros. Da 
esquerda para a direita: menu das 
operações disponíveis, procedimento de 
definição da estrutura do banco, 
formatação de entrada e edição 
de dados, busca seletiva, 
relatório de saída. 





a ele definir os campos que devem ser 
incluídos e em que ordem, a largura e 
o título de cada coluna de dados, se os 
totais devem ser calculados, se o relató- 
rio será subdividido em diversos níveis 
(com ou sem subtotais) etc. 

A forma mais simples de saída é o re- 
latório (report), cuja formatação pode 
ser estipulada de maneira muito simples 
por alguma opção constante do sistema 
de gerenciamento. 

Os SGBD mais sofisticados oferecem 
ao usuário a opção de determinar um ou 
mais critérios de seleção, de modo que 
o relatório contenha apenas um subcon- 
junto específico do banco de dados. 

Outros tipos de saída, como etique- 
tas para endereçamento, gráficos, for- 
mulários específicos etc., podem ser ob- 
tidos por meio de funções especiais dos 
SGBD mais profissionais, ou da trans- 
ferência de dados pelo formato SDF ou 
outro, para os programas que são capa- 
zes de realizar essas tarefas. 
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Alguns SGBD destinados a micro- 
computadores, como o dBASE II por 
exemplo, são muito mais do que um sis 
tema pronto para gerenciamento de ban- 
cos de dados. Como se baseiam em uma 
linguagem de comandos (diretivas sim- 
ples, formadas por palavras e frases em 
inglês ou português), é possível escrever, 
armazenar e executar programas a par- 
tir deles. Assim, sistemas muito mais 
complexos podem ser desenvolvidos. 
Linguagens desse tipo são chamadas lin- 
guagens de quarta geração. 

Existem versões do dBASE II, que é 
o SGBD relacional mais utilizado em to- 
do o mundo, para todo os micros com- 
patíveis com o sistema operacional 
CP/M: Apple Z-80, CP-500M, a linha 
MSX com disquetes etc. Já se desenvol- 
veu inclusive uma versão cóm os coman- 
dos em português, chamada DIALOG. 



















Sistemas de processamento de imagens 
já se encontram à disposição 

dos usuários de microcomputadores 
pessoais, abrindo-lhes as portas para 
um fascinante campo de aplicações. 


O processamento de imagens por 
computador é uma das áreas mais fas- 
cinantes e complexas do mundo das apli- 
cações da eletrônica digital. 

O computador pode realizar verda- 
deiros milagres ao converter uma ima- 
gem em impulsos digitais (números bi- 
nários) e processá-la com programas es- 
peciais, em alta velocidade. 

Para satisfação dos usuários de mi- 
cros domésticos, muitas dessas aplica- 
ções, antes restritas a computadores de 
grande porte, estão agora disponíveis 
para máquinas como as suas. 

O passo central para o processamen- 
to de imagens consiste em sua captação 
e conversão em sinais digitais. Isso é fei- 
to por um periférico composto por uma 
câmara especial, acoplada a um conver- 
sor e a uma interface. 

Existem atualmente câmaras simples 
(digitais), de preço razoável, para apli- 
cações em micros. Elas são baseadas na 
tecnologia do circuito integrado (CCD, 
ou Charge-Coupled Device). 


O OLHO ELETRÔNI! 


Podem-se captar imagens em tempo 
real por meio de câmaras de vídeo se- 
melhantes às que são usadas em conjun- 
to com videocassetes ou em estúdios de 
televisão ou através de câmaras digitais, 
Há, entre ambas, uma grande diferen- 
ça de preço, correspondente à qualida- 
de da imagem obtida. 

A câmara de vídeo é baseada no tu- 
bo de imagem, ou vidicon — uma am- 
pola de vidro, dentro da qual se produ- 
ziu vácuo absoluto, e que contém um ou 
mais “'canhões” eletrônicos, que geram 
feixes de elétrons como em um tubo de 
TV (cinescópio). A imagem, captada 
por lentes e projetada na parte plana do 
tubo, impressiona elementos fotossen- 
síveis que recobrem sua superfície. Os 
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feixes eletrônicos varrem sistematica- 
mente a superfície e transformam os ní- 
veis de luminosidade em ondas elétricas. 
Na conversão destinada ao uso por um 
computador, um conversor analógi- 
co-digital produz segiências de bits que 
são enviadas à memória da máquina, re- 
presentando um retrato mais ou menos 
fiel da imagem captada. 

O vidicon tem uma alta resolução de 
imagem — ou seja, o número de linhas 
da varredura é grande (trezentas a qui- 
nhentas por tela, geralmente). O efeito 
disso, na conversão para números biná- 
rios, é a divisão da tela em uma espécie 
de quadriculado, em que cada “quadra- 
dinho” equivale a um ou mais bytes de 
informação, descrevendo a intensidade 
luminosa, cor etc. do ponto. Esses ele- 
mentos são chamados pixels (do inglês, 
picture elements). 

Uma câmara digital, por sua vez, é 
baseada em um circuito integrado cuja 
larga superfície já é dividida em uma 
matriz de elementos fotossensíveis. Ca- 
da elemento corresponde a um pixel. A 
imagem, projetada sobre essa superfície, 
é automaticamente dividida em pixels, 
sem a necessidade de uma varredura por 
um feixe eletrônico. 

A câmara digital é muito mais sim- 
ples e barata do que o vidicon, pois não 
requer tubo blindado de vidro, vácuo, 
nem filamentos de aquecimento. O con- 
sumo de energia é pequeno e a câmara 
pode ser facilmente miniaturizada. 

Entretanto, há uma desvantagem: se 
comparados ao vidicon, os dispositivos 
CCD têm uma resolução de imagem ain- 
da pobre. Os modelos mais baratos, dis- 
poníveis para micros, possuem uma ma- 
triz de 64 por 64 pixels, o que resulta em 
uma imagem bastante grosseira. Câma- 
ras CCD profissionais já atingem 256 
por 256 pixels, ou 512 por 512. Estas úl- 
timas oferecem uma resolução que, a 
olho nu, é praticamente indistinguível de 
uma boa fotografia. 

O CCD tem a vantagem de não exi- 
gir um conversor analógico-digital espe- 
cial, pois geralmente os circuitos conver- 
sores de luminosidade estão embutidos 
no próprio chip. Uma lente razoável e 
a interface de conexão é tudo de que se 
precisa — sem falar, é evidente, no soft- 
ware que controla o sistema. 
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Não faz muito sentido utilizar um 
CCD com um computador que tenha re- 
solução mais baixa que a da câmara. As- 
sim, os micros Apple e MSX são os que 
dispõem de maior oferta de periféricos 
de captação de imagens. 

Os micros compatíveis com a linha 
IBM-PC têm sido os mais usados para 
processamento de imagens, devido a sua 
velocidade e capacidade de memória. 
Existem vários modelos para essas má- 
quinas, entre eles o PC-Eye. 

Podem-se utilizar também interfaces 
comerciais para ligar um videocassete e 
sua câmara a um micro de boa resolu- 
ção gráfica. Essas interfaces dispõem de 
um conversor analógico que, embora rá- 
pido, serve apenas para imagens estáti- 
cas, por não conseguir acompanhar os 
sessenta quadros por segundo da filma- 
gem de vídeo. 
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Diversos tipos de programa de pro- 
cessamento de imagens já foram desen- 
volvidos para micros. Os mais elemen- 
tares são geralmente vendidos com o pe- 
riférico, e servem apenas para capturar 
uma imagem e armazená-la em disco. 
As versões mais sofisticadas permitem 
escolher filtros de imagem, determinar 
uma intensidade mínima para a capta- 
ção (thresholding) etc. 

Softwares mais complexos são dota- 
dos de outras funções de processamen- 
to de imagens, como detecção automá- 
tica de bordas, aumento de contraste, 
cálculo de áreas, falsa-cor etc. Suas apli- 
cações se estendem a vários ramos das 
ciências e da tecnologia. Uma das mais 
interessantes para micros refere-se ao 
desenvolvimento de bancos de imagens. 
Estes permitem a armazenagem, por 
exemplo, de fotografias de pessoas — 
junto com uma ficha contendo nome, 
endereço, dados funcionais etc. — ou 
das ilustrações de um livro de zoologia, 
para programas didáticos. O único pro- 
blema desse tipo de aplicação é o gran- 
de espaço de memória ocupado por uma 
imagem detalhada em disco. 




















ESCREVA CARTAS SEM ESFORÇO ... 
Um programa simples para edição de cartas 





ORGANIZE AS SUAS COLEÇÕES!(1) ..... 
Programa para arquivamento de dados 








ORGANIZE AS SUAS COLEÇÕES (2) .. 
Busca, modificação e apagamento de registros 


PONHA ORDEM EM SUAS CONTAS .. 
Um programa para contabilidade doméstica 









































REÚNA SEUS DADOS EM GRÁFICOS .... «e 1481-187 
Construção de gráficos de barras 

UM PROFESSOR DE DATILOGRAFIA .. « 2583-259 
Programa que ensina a usar o teclado 

DATILOGRAFIA: ALFABETO COMPLETO ..... « 276-280 
Segunda parte do programa 

MELHORE A SUA DATILOGRAFIA . 281-286 
Um teste de rapidez e exatidão 

DATILOGRAFE FRASES LONGAS +. 3128-333 
Extensão do programa de aprendizado 

CONVERSÕES NO COMPUTADOR ... «= 3714-380 
Programa para converter medidas inglesas em métricas 

UM ASSISTENTE DE ARTE .... «« 414-420 
Pacote completo de desenho na tela com o cursor 

ROTINAS PARA O CAD .... «. 421424 
Desenho de retângulos e preenchimento com cores 

GERAÇÃO DE BLOCOS GRÁFICOS (1) .. «+ 489-495 
Como gerar blocos gráficos na tela e armazená-los 

GERAÇÃO DE BLOCOS GRÁFICOS (2) ... are $07-S12 
Rotinas para inversão, rotação e reflexão de desenhos 

UM EDITOR DE TEXTOS (1) . «« 576-S80 
Primeira parte de um programa editor de textos 

UM EDITOR DE TEXTOS (2) ... «- 586-591 
Criação e modificação de textos 

UM EDITOR DE TEXTOS (3) ... «« 614-620 





Parte final do programa de processamento de textos 


APERFEIÇÕOE SEU BANCO DE DADOS .... 
Mais rotinas para o programa de arquivamento de dados 





UMA AGENDA ELETRÔNICA (1) 
Um programa para calendário e agenda de compromissos 





UMA AGENDA ELETRÔNICA (2) 
Segunda parte do programa de calendário e agenda 








UMA AGENDA ELETRÔNICA (3) .. 
Terceira parte do programa de calendário e agenda 





UM ASSISTENTE PARA O DOS .. 
Acionamento dos comandos de disquetes por um menu 


» 1049-1055 


UM AMPLIADOR GRÁFICO .... 
Programa para ampliar ou reduzir gráficos 












































UMA PLANILHA ELETRÔNICA (1) .. 1108-1115 
Primeira parte de um programa de folha de cálculo 

UMA PLANILHA ELETRÔNICA (2) «+ 1134-1138 
Segunda parte do programa de folha de cálculo 

UMA PLANILHA ELETRÔNICA (3) .. « M5S-1160 
Terceira parte do programa de folha de cálculo 

TRS-COLOR: UM EDITOR DE DISCOS .... « 1216-1220 
Modificação direta das trilhas do disco 

PROGRAMA PARA TESTE DO VÍDEO ... 1257-1258 
Teste se o seu monitor de vídeo está bem ajustado 

CONSULTA AOS ASTROS . 1261-1270 
Um programa para a elaboração de horóscopos 

FERRAMENTAS PARA O SPECTRUM ... «eve 1281-1283 
Rotina de máquina com novas funções para o BASIC 

DESENHO ARQUITETÔNICO (1) 1367-1371 
Programa de decoração de interiores 

DESENHO ARQUITETÔNICO (2) «e. 1386-1390 
Segunda parte do programa de decoração de interiores 

UM EDITOR MUSICAL (1) «+ 1398-1400 
Aplicativo que transforma o computador em um piano 

UM EDITOR MUSICAL (2) +. 1408-1411 
Segunda parte do programa de edição musical 

UM EDITOR MUSICAL (3) 1421-1425 
Terceira parte do programa de edição musical 

ORGANIZAÇÃO DE PROJETOS 1451-1460 
Planejamento de projetos pela técnica PERT 

UM INDEXADOR DE PROGRAMAS «. 1461-1463 





Complete o arsenal de ferramentas para seu Spectrum 


PROGRAMAÇÃO EM LINGUAGEM DE MÁQUINA .... 
O que é código de máquina e programação Assembler 








APRENDA A CONTAR COM UM DEDO SÓ .... 
O sistema binário e sua conversão para decimal 





APRENDA ARITMÉTICA HEXADECIMAL .. 
Programa para a conversão de numeros hexa em decimais 


COMO ENTRAR CÓDIGO DE MÁQUINA .... 
Um monitor para programar em hexadecimal 





++ V09-112 


NO CORAÇÃO DE UM MICRO .. 
UCP, pilha e registros internos 





ABAIXO DE ZERO .. 
Números negativos nos sistemas binário e hexa 


+ 142-145 





MEMÓRIAS SÃO FEITAS ASSIM .. 
A organização interna das memórias ROM e RAM 


ou V7A-180 





TRADUÇÃO MANUAL DO ASSEMBLY .... 
Mnemônicos, endereçamento e tradução do Assembler 


«+ 196-200 





PROGRAMAS EM CÓDIGO DE MÁQUINA 
Tradução manual de programas em Assembly 


« 213-220 





ASSEMBLER PARA O APPLE ... 
Um programa montador escrito em BASIC 


+» 238-240 





ASSEMBLER PARA O SPECTRUM .. 
Um programa montador escrito em BASIC 


«« 248-252 





ASSEMBLER PARA O TRS-COLOR .. 
Um programa montador em Assembler 


«+ 296-300 





FIGURAS MÓVEIS 
Animação de gráficos no Apple e no ZX-81 


316-320 








MOVIMENTE FIGURAS NA TELA 
Criação e animação de blocos gráficos: tanques e sapos 


341-347 


RASTREAMENTO NO SPECTRUM ... 
Programa para a localização de erros 





ASSEMBLER PARA O MSX .. 
Um programa montador escrito em BASIC 





GRÁFICOS INSTANTÂNEOS .... 
Mais blocos gráficos e conversão binária/hexadecimal 





DRAGÃO ANIMADO 
Blocos gráficos binários em animações complexas 





O BASIC NÃ MEMÓRIA ... 
Listagem de programas armazenados na memória 





UM COMPACTADOR DE PROGRAMAS .... 
Programa utilitário de compressão para o TRS-Color 





EFEITOS SONOROS NO SPECTRUM .... 
O uso de BEEP e OUT para a obtenção de sons 





COMO FUNCIONA O GERADOR GRÁFICO 
Listagem em Assembler do programa de animação gráfica 


+ 565-569 





AMPLIE O BASIC DO TRS-COLOR ... 
Novas instruções e funções para o BASIC 





UM RELÓGIO NA TELA 
Programação de interrupções e suas aplicações 





UM ASSEMBLER PARA O TRS-B0 ... 
Um programa montador escrito em BASIC 








APPLE E TK-2000: EFEITOS SONOROS .... 
Como produzir sons e ruídos em linguagem de máquina 


« N2-714 





AVALANCHE: UM VIDEOGAME EM ASSEMBLER ....... 748-755 
Parte 1: objetivos do jogo e tela de título 


AS INSTRUÇÕES DO JOGO .. 
Parte 2: tela de instruções de Avalanche 


+» 7161-765 





AVALANCHE: EFEITOS SONOROS .... 
Parte 3: programação da melodia “Greensleeves"" 


«+ 788-795 





BLOCOS GRÁFICOS EM AVALANCHE .... 
Parte 4: definição dos elementos gráficos 


« B15-820 





AVALANCHE: MONTE O CENÁRIO .. 
Parte 5: definição gráfica do cenário do jogo 


« 824-833 





AVALANCHE: RISCOS E PRÊMIOS .... 
Parte 6: perigos e recompensas 





AVALANCHE; A ROTINA PRINCIPAL .... 
Parte 7: rotina de inicialização do jogo 


AVALANCHE; ACERTO DAS VARIÁVEIS ... 
Parte 8: rotina de sincronização 





AVALANCHE: CONTE OS PONTOS 
Parte 9: rotina de contagem de pontos 


1001-1008 





EFEITOS SONOROS COMPLEXOS 
Efeitos de tiro laser no Apple e no 


- 1027 





AVALANCHE: O VÔO DAS GAIVOTAS ... 
Parte 10; rotinas de movimentação das gaivotas 


+ V028-1031 





SONS E RUÍDOS NO TRS-80 ... 
Rotinas em linguagem de máquina para o BASIC 


«+ 032-1033 





PERIPÉCIAS NO MUNDO DE NETUNO .... 
Parte 11: movimentação do mar em Avalanche 
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Quanto espaço de memória necessito para escrever um jogo de 
aventura? 
O que devo fazer se cair numa armadilha durante a aventura? 
É possivel colocar textos na tela gráfica do Apple II? s 
O que fazer quando um programa longo — como o Assembler — 
não funciona depois de digitado? 
O que acontecerá se houver um erro em meu programa-fonte? 
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Existe uma maneira de se programar em Assembler no ZX-81? .. 
Qual a velocidade de datilografia que devo tomar como meta para 
começar? 
Como acentuar textos em português em um microcomputador? 
Como funciona um conversor analógico-digital? ... 
Existe limite para o tamanho dos números usados em AND e OR? 
Deve-se seguir alguma regra ou modificar as frases do programa? 333 
Qual o tamanho do maior círculo desenhado pelo computador? .. 340 
Podemos usar joysticks nos outros programas de jogos já publica- 
dos em INPUT? ..... 
O que fazer para transformar o desenho do pato em um alvo 
diferente? 33 
O que acontecerá se houver um erro em meu programa-fonte? ... 402 
Que sistema de numeração — binário, decimal ou hexa — é melhor 
usar nas linhas DATA? .. 
Por que recebo uma mensagem de erro quando tento calcular a raiz 
quadrada de um número negativo? 
Existe uma forma simples de combinar programas no ZX-81 
Posso modificar os programas de modo a misturar dados positivos 
e negativos em um só gráfico? 
O que é escalamento? . 
Quantas portas existem? . 
Quais são as principais diferenças entre o editor de textos de INPUT 
e os editores vendidos nas lojas especializadas? .. ” 
Posso colorir wireframes? 
Só há uma forma de o micro aceitar instruções adicionais? . 
Como melhorar a velocidade de execução do simulador de vôo? 607 
Posso modificar o programa para desenhar imagens diferentes? .. 630 
Como assegurar bons resultados na procura de ouro? 
Como variar a velocidade de simulação do movimento? 
O que é um Disassembler? . 
Há alguma forma de se acelerar o desenho da estação espacial? .. 
É possível transformar o programa em um jogo de palavras 
cruzadas? - 



























Por que as teclas musicais criadas pelo programa nos microcompu- 
tadores da linha TRS-Color não têm auto-repetição? .. 
A duração de uma nota pode ser controlada pelo tempo em quea a 
tecla se mantém sob pressão? .. 
Por que as linhas em que há a instrução CALL diferem nos progr: 
mas do Apple e do TK-2000? . 
Como o computador produz sons? . 
Qual a diferença entre os comandos outi e otir no MSX? 
Como adaptar um jogo que utiliza peças coloridas para um micro 
com vídeo monocromático? .... 
A agenda é uma espécie de banco de dados? .. 87 
Qual a utilidade dos códigos? 
O que é Inteligência Artificial? 
Quais são as vantagens da utilização de cartuchos de programas em 
vez de fitas e discos? Posso gravar meus próprios programas em 
um cartucho? .. 

































O BASIC é muito lento e eu não gosto de programar em código de 

máquina. Tenho outras opções? 
É possível usar um sintetizador de voz para animar O jogo? 
O que é rollover? . 
É possível adaptar os demais microcomputadores para à produção 














de acordes? arenas 1o14 
O que é uma simulação aleatória? .. 1040 
1083 


O que é análise espectral? .... 
Há vantagens em se criptografar um programa de computador? 1094 
Quantas variáveis cabem na memória? «o 1126 
Por que não usamos sprites para representar as pedras no MSX? 1132 
Como chegar mais rapidamente à sequência correta das cores? .. 1140 






















O que é uma planilha integrada? 1160 
É possível realizar em um micro animações gráficas em três dimen- 
sões como as que aparecem na TV? ... . 1197 
Como uma cadeia é armazenada na memória do computador? .. 1215 
Como gravar dados em fita cassete no Apple e no TK-2000? .... 1254 
O que faz a instrução LINE INPUT? . 1260 
Há robôs para micros no Brasil? . 1287 
O que é edição em tela completa? .. 133 
Como posso traduzir os comandos de meu LOGO que estão em 
inglês? +. 1320 
. 1342 


O que é um micromundo LOGO? 
Quais as etapas para o desenvolvimento de uma nova linguagem? 1346 















Existe alguma aplicação prática para os fractais? . 1360 
Qual é a vantagem de empregar cadeias alfanuméricas, em vez de con- 
juntos numéricos, para armazenar grupos de bits? .. . 1380 
Como funciona um sprite? - 1427 
É possível comprimir sons e melodias em jogos de aventuras? ... 1430 





Como interromper um programa 
Use o laço certo 
Um modelo para números em dif 
Os operadores lógicos . 
Conversão do Color para o TRS-BO .... 
Exterminador de problemas . 
Funções de conversão hexadecimal 
Como tornar um programa longo mais fá 
O que é um sprite? .. 
Organize melhor os comandos DATA em um programa . 
Como contar fem computês . 
Efeitos sonoros no TRS-80 .. 
Planejamento de sprites . 
Como editar uma linha DATA 
Como usar a declaração REM 
Como detectar erros em programas longos 
Como aumentar a velocidade de digitação 
Como encontrar erros em programas longos 
A apresentação de um texto 
Descubra os códigos ... 
Como encontrar erros em programas longos 
Programas editores . 
Cores no Spectrum .. 
Detecte erros automaticamente 
Como renumerar linhas ... 
























ferentes bases 





de digitar 





BIB ES E E e OS A US SO 


Para uma ordenação mais rápida 
Como comparar dados . 
Faça música no Spectrum .. 
Adicione seus próprios comandos 
Fora da tela . 
Aperfeiçoe os programas 
Caracteres invertidos . 
Utilização de modelos dinâmicos . 
Utilização das rotinas da ROM no seu programa em Assembler 
Como melhorar a nitidez ... 

Manipulação de cordões . 
Não perca seus dados 
O mini-Assembler 
Seleção de partituras . 
Como é feita a simulação de um movimento 
O processador do TRS-Color 
Programação de matrizes 
Parábolas € hipérboles 
Como calcular datas em um programa de calendário . 
Cuidados especiais com linhas DATA 
Condições de visualização .. 
Aplicações profissionais do programa de agenda . 
Como ligar e desligar o acionador . 
Como usar a impressora para confeccionar cartazes e faixas . 
Como modificar o timbre 
Idéias para o jogo 
Aplicação em jogos 
Fazendo previsões . 
Leitura e escrita na VRAM do MSX 
Use a planilha com mais eficiência 
Mais melodias . 
Programas longos: melhore a velocidade de montagem 
Aplicações para a rotina ... 
Como aperfeiçoar o programa 
Proteja o seu programa . 
Conversão para o MLOGO . 
Tradução para o MLOGO . 
Tradução para o MLOGO 
Como enganar o computador 
Melhore a qualidade do som 
Varredura do teclado 
Transcrição de partituras 
Acentuando textos comprimidos 











BELAS 


Conjuntos de cores no TRS-Color .. 
Variáveis: o que você pode e não pode usar 
Tabela de código ASCII .. 
PEEK e POKE de teclado do TRS-Color 
Tabela de localização de códigos de erros . 
Sumário dos comandos de EDIT 
Tabela de códigos de tecla .. 
Caracteres do PRINT USING 
Caracteres gráficos do MSX 
Caracteres gráficos para o TK-2000 
Tabela de conversão de escala musical ... 
Tabela de conversão de escala musical para o MSX 
Variáveis do sistema para o Spectrum 
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Ábaco binário 40 

ABS (LOGO) 1344 

Abstratos, desenhos 358-360 

Acaso 774-780, 1176-1180, 1181-1185 
(Et. Aleatórios, números) 

- utilização em jogos de simulação 1040 
Aceleração de um corpo 770 
Acentuação 

- de textos 280 

- de textos comprimidos 1431 
Acesso 

- arquivos aleatórios 688, 1467 

- arquivos sequenciais 687, 1466 

- direto à memória V. PEEK e POKE 

- remoto 561-564, 1404-1407 

- senhas (programa) 166-167, 888-893, 

1091-1095, 1260 
Acidentes musicais 743-744 
Acoplador acústico 564 
Acordes musicais 1009-1015 
Acumulador (UCP) 10 
ADA 1288-1290 
ADDB 199 
Adivinhação 

- de palavras (programa) 701-705, 728-733 

- jogos 12-13, 42-43 

- jogo Senha (programa) 1139-1140 
Agenda eletrônica (programa) 834-840, 
841-845, 868-871 

- aplicações profissionais 870 
Agenda telefônica (programa) 129 
Alarme antiladrões 1322 
Alavanca 982-984 
Alça V. Laços 
Alça de fita 877-878, 908 
Alça de mira (programa) 348-353 
Alça fechada (sistemas de controle) 1323 
Aleatória, distribuição 777-780, 1176-1177 
Aleatórios, números 11-16, 1121-1127, 
1176-1180, 1181-1185, 1344 
Alfa-beta, algoritmo 874 
Alfabetização (programa) 390-391 
(V.t. Ordenação) 
variáveis 13, 99-10, 194-195, 
HOL-H07, 1215 (V.t. Cordões) 
ALGOL 1288-1290, 1436 
Algorítmicas, linguagens 1290, 1436 
Algoritmo 1437 

-alfa-beta 874 

- linguagens algorítmicas 1290, 1436 
Alice, impressora 1442-1443 
Alisamento exponencial 1349 
Alofônico, sintetizador 446-448 
Alunissagem (programa) 821.823 
Amostragem 1126, 1176-1177 

- aplicações 

análise sonora 1084 - 
produção digital de sons 743 





sistemas de reconhecimento da fala 1311 


tabletes digitalizadores 967 
Ampliação de caracteres (programa) 913-920, 
921-925 
Ampliador gráfico (programa) 1049-1055 


Anagrama (programa) 242-244 
Análise espectral 1083 
- em sistemas de reconhecimento da fala 1311 
Análise sonora 1081-1085 
Analógico-decimal, conversor V. Conversor 
analógico-decimal 
Análogos, modelos 1176 
AND 43, 301-304 
- limite para tamanho dos números 305 
- na manipulação de bits 1335, 1378 
Andamento 744-745 (V.t, Música) 
Animação gráfica 4-10, 316-320, 341-347, 
406-413, 474-477 
- alça de mira 348-353 
- bicicleta 478-480 
- bomba moto-continua 1143-1145 
- corredor 6 
- cubo 1097-1098 
- dançarino 6-8 
- dragão 474-477 
- em Avalanche 1028-1031, 1076-1080, 
1116-1120, 1128-1132, 1146-1154, 
1168-1175, 1186-1193, 1241-1245 
- figuras tridimensionais 1194-1199, 1391-1395 
- foguete 28-33 
- helicóptero 10 
= míssil 28-33 
monstro 319-320 
- motocicleta 316-318 
- nado parabólico 863-864 
- no Apple 316-318 
- no TK-2000 316-318 
- no TR$-Color 478-480 
- no TRS-BO 120, 160, 669 
-no ZX-BI 319320 
- sapo 344-347 
prites em LOGO 1426-1427 
ubmarino 316-318 
- tanque de guerra 342-347 
- técnica de paginação 1096-1100, 1141-1145 
- trajetórias 670-678, 766-773, 781-787, 1166 
Apagamento 
- da tela 12, 52, 118, 393, 1318 
- de arquivos em BASIC 911, 940 
- de arquivos em LOGO 1330 
- de linhas 425, 911, 940, 1281-1283 
- rotina de (Spectrum) 1281-1283 
APAGUEDESENHO 1318 
APAREÇATAT 1329 
APL 1288 
Aplicativas, linguagens 1290 
Apontadores 
- em blocos gráficos 528-529 
- na memória 174-180 
- na UCP. 109-112 
Apple 
- acionadores de disquetes 906-907 
- animação gráfica 316-318 
- áreas da memória 180 
- Assembler (programa) 238-240 
- Autostart ROM 1249 
- CATALOG 269, 940 
- CHRS 269 
- círculos (desenho) 117-118 
- códigos de controle 
- COLOR 116 
- compilador PASCAL 
- controle de vídeo 503 
- cores 1250 
- criação de caracteres 534-535 





1438-1439 





- desenho com DRAW 116, 237, 318, 343-344 * | 
- diferenças do CALL com TK-2000 732 
- efeitos sonoros 266, 712-714, 1027 
- escrita na tela de alta resolução S34-535 
- gravação de dados em fita cassete 1254 
- interpretador LOGO 1317 
- joysticks 291 
- organização da memória 179-181 
APPLESOFT 179 | 
APRENDA 1319 
Aranha Marciana, A (programa) 955-960, 
974-980 
Arco co-seno 613 
Arcos 
- desenho de 232 
Arco seno 613 
Área 
- comparação entre quadrados 
(programa) 436-439 
- conversão de medidas (programa) 374-380 
“- simulação do crescimento 1063 
Áreas da memória 
- atributos 175 
- edição 175 
- entrada e saída 180 
- exibição 175 
- informação de canal 175 
matrizes (MSX) 179 
programa 
no MSX 179 
no Spectrum 175 
no TRS-BO 178 
no ZX-B1 177 
- trabalho 
Apple 180 
Spectrum 176 
ZX-81 177 
- usuário 180 
- variáveis 
no Apple e no TK-2000 180 
no MSX 179 
no Spectrum 175 
no TRS-Color 178 
no TRS-BO 178 
no ZX-81 177 
Aritmética hexadecimal 56-60 
Aritméticas, expressões V. Expressões 
aritméticas e Operações 
Armazenagem 
- de datas 1279 
- de números. 894-900, 1101-1107 
- de programas em BASIC 1101-1107 
- de tela 947, 994 
- de variáveis 1101-1107, 1215 
- em DATA e arquivos 
(comparação) 1252-1256 
Arquitetura interna 
- 6502 112 
- 6809 112, 793 
- 2:80 MI-2 
Arquitetura por computador 1367-1371, 
1386-1390 
ARQUIVOS 1330 
Arquivos 75, 1464 (V.t. Banco de dados) 
- acesso direto 688, 1467 
- apagamento de 940 
- área de blocos de controle (MSX) 179 
- buffer 690 
- comparação com armazenagem em 
DATA 1252-1256 





- controle de 692 
- de nomes 908-910 
- em LOGO 1329 
- formato ASCII 688 
- mestre 1464 
- Segienciais 1466 
- técnicas de programação 687-692, 1252-1256 
uso do CHRS (Apple) 692, 1254-1256 
- transferências entre computadores 1404 
Arredondamento 1347 
- erros 899 
Arte por computador 358-360, 388-393, 1197 
(V.r. Gráficos) 
- aplicações dos fractais 
- canetas ópticas 926 
- Desenho Auxiliado por Computador 
(programa) 414-420, 421-424 
- editor gráfico (programa) 846-850, 
1021-1026, 1367-1371, 1386-1390 
- instrumentos musicais digitais 1306-1310 
- mouse 1000 
- paginação gráfica 1096 
- tablete digitalizador 964-968 
- uso de curvas geométricas 865 
Árvore, busca em 873 
ASC 263, 362, 364, 1214 
ASCIL 361-366, 1332 
- arquivos 688 
- códigos de compressão 1332 
- comparações entre códigos 364 
- correspondência com códigos de teclado 
(TK-2000) 499 
- tabela 263 
- técnicas de programação 361-366 
- versão brasileira (BRASCII) 280 
Ashby, Ross 1287 
ASL 199 
ASR 199 
Assembler 1288, 1314 (V.1, Código 
de máquina) 
- códigos operacionais 2 
- definição 2 
- geração de blocos gráficos 
(programa) 565-569 
- montagem de programas longos 1244 
- para o Apple Il (programa) 238-240 
- para o MSX (programa) 401-405 
- para o Spectrum (programa) 248-252 
- para o TRS-Color 
crrata 794 
programa 296-300 
- para o TRS-80 (programa) 679-680 
- para o ZX-81 25] 
- tradução manual 196-200, 213-219 
- uso do CLEAR 217 
- vantagens em relação ao código de máquina 3 
Assembly V. Assembler 
Assimetria 1372-1374 
Assistente para o DOS (programa) 936-940 
Astrologia (programa) 1261-1270 
ATN 771 
ATRIBUA 1345-1346 
Atribuição (V.1. Expressões aritméticas e 
Expressões lógicas) 
-em BASIC 13, 96, 933 
- em LOGO 1345-1346 
-em PASCAL 1438 
Atributos, área de (memória) 175 
Atributos de tela 515, 716-720, 814 
-no MSX 515, 814 


1360 


- no Spectrum 716-720 
Atrito, simulação de 673 
ATTR 47, 155, 369, 716-720 
Atuadores 1322, 1324 
Autocarregamento de programas 549-550 
Autodiscagem 1406 
Auto-execução de programas 550 
Automação 

- bancária 1407 

- comercial 892 
Auto-repetição 726 

- no Spectrum 265, 1248 

- no TRS-Color 265, 1248, 1251 

- no TRS-80 1313, 1412-1413 
Auto-resposta 1406 
Auto-semelhança 1358 
Autostart ROM (Apple e TK-2000) 
Autoteste em impressoras 649 
Auxiliar, memória 876-880 (V.1. Disco e Fita) 
Avalanche 

- animação gráfica 1028-1031 


1249 


cobras 1241-1245 

jogador 1146-1154, 1168-1175, 1186-1193 
mar 1056-1060 

pedras 1116-1120, 1128-1132 


tempo 1076-1080 
- blocos gráficos 815-820 
- cenário 824-833 
ontagem de pontos 1001-1008, 1228-1233 
- controle de vidas 1208-1213 
- controle global 969-971 
- efeitos sonoros 788-795 
- estrutura geral 748-755 
nicialização 995-999 
nstruções 761-765 
stagem completa 1291-1300 
- montagem do programa 765 
- níveis de dificuldade 941-946, 1228-1233, 
1241-1245 
- programa principal 969, 971, 1271-1276 
= riscos e prêmios 941-946 
- sprites 815-820 
- variáveis 995-999 
- vôo das gaivotas 1028-1031 
Aventura, jogo de 208-212, 226-231, 270-275, 
306-310, 321-327, 394-398 
- características 209-211 
- compressão de melodias 1430 
- compressão de textos 1332-1339, 
1414-1418, 1428-1435 
- criação 211-212, 394-398 
- linhas de ajuda e instrução 321-327 
- lista de variáveis 397-398 
- mapeamento do ambiente 226-231 
- movimentação do aventureiro 270-275 
- origem e tipos 208 
- planejamento 208-212 
- programação dos objetos 306-310 
- tipos de mensagens e textos 1430 








BACK 1287, 1318 
Back-up 488, 878, 908 
Backus-Naur Form 1446 (V.t, PASCAL) 


Bactérias v. Simulação 
Balística 766-773, 781-787, 1161-1163 
Banco de dados 706-711, 1464-1469 
- acesso remoto 561-564, 1404-1407 
- agenda 871 
- campo-chave 1468 
- definição 75, 1464 
- de imagens 1470 
- modelos 75 
- pesquisa 81-82, 1468-1469 
- programa aplicativo 68-75, 81-85, 706-711 
- técnicas de programação de arquivos 687-692 
Bandeira 110 
Bandido de um braço só (programa) V, Caça- 
niqueis 
Bar (simulação) 1181-1185 
Baralho, naipes do (MSX, TK-2000) 554-555, 
736-737 
Barras, código de 892 
Barras, gráfico de V. Histogramas 
BASE 268, 531-533, 812, 1361-1366 
Base de dados V, Banco de dados 
Bases de numeração 34-40, 56-60 
- modelos 36 
- programa de conversão 35-37, 1281-1283 
BASIC 1288, 1314 
- acesso direto às rotinas do sistema 
operacional 1246-1251 
- apagamento de arquivos 940 
- armazenagem de números 894-900 
- armazenagem de variáveis 1101-1107, 1215 
- atribuição 13, 96, 933 
- cálculo de datas 840 
- compactador de programas 
(TRS-Color) 536-540 
- comparação com o PASCAL 1436 
- decisões em 27, 41-45, 78-80, 222-223, 444, 
625-626, 940 
- definição de funções 608-613 
- entrada de dados 161-167 
- extensão de comandos 
no Spectrum 1281-1283 
no TR$-Color 597-600 
- interpretador 1247-1248 
- manipulação de bytes 1378-1380 
- Organização de programas na memória 513, 
HO1-1107 
- prevenção de erros 441-445 
- rotinas em código de máquina 972-973 
TRS-80 1032-1033 
- tabela de códigos de erro 312 
- técnicas de aumento de velocidade 930-935 
Bauds 1406 
BCD 11, 45 
Beasty 1286 (V.t. Robôs) 
BEEP (Spectrum) 168-170 
BEGIN 1438 
Bell, padrão 1405 
BEQ 
- no 6502 199 
- no 6809 200 
Bequadro 744 
Bernoulli, processos de 1176 
Bicicleta (animação gráfica) 478-480 
Bimodal, distribuição 1454 
Binária, pesquisa 873, 934, 1468 
Binário 
= circuitos eletrônicos 40 
- codificação em decimal (BCD) 111, 145 
- conversão do decimal (programa) 38-39 

















- conversão para hexadecimal (programa) 56-60 
- definição de UDGS 406 
- frações em 38 
- multiplicação em 37-39 
- na criação de sprites 808-B11 
Júmeros negativos 142-145 
istema de numeração 37 
- técnicas de uso em BASIC 1378 
BINS 814 
Binomial, distribuição 780 
BIOS 1248 
Bit 
- definição 38 
- em padrão de transmissão de dados 1406 
- mais e menos significativo 144 
- manipulação de 1335, 1378-1380 
BitPadOne 965 (V.t. Tablete digitalizador) 
Blefe, jogos de 1348-1355 
BLKOUT 1250 
BLO 219 
BLOAD 55, 93-94 
Blocos de controle (MSX) 179 
Blocos de informação 879 
- no TRS-Color 1217 
Blocos gráficos 86-87 (V.t. Caracteres) 
- animação 341-347, 406-413 (V.t. Animação 
gráfica) 
- apontadores 528-529 
- combinação 541-547, 570-575 
- criação 489-495, 507-512, 526-535, 
541-547, 570-575 
- criação de sprites 107, 188-191, 808-B11, 
1426-1427 (V.t. Sprites) 
- em Avalanche 815-820 
- no Spectrum 122 
-no TRS-BO 160, 627, 660, 669 
- programa gerador em Assembler 565-569 
BNE 219-220 
BNF 1446 
Bola, movimento da 670, 678 (V.t. Animação 
gráfica e Simulação) 
Bolha, ordenação tipo 292-295, 469-471 
Bomba de combustivel (simulação) 96-98 
Bomba moto-contínua (simulação) 1143-1145 
Bombardeio (efeito visual) 121-127 
Booleana, variável 1449 
Borda decorativa (programa) 245-246 
(V.t. Tela) 
BORDER 114-115, 556 
- truques de programação (Spectrum) 867 
Botão de disparo (Joysticks) 287 
Braços robóticos 1286-1287 
BRASCII 280 
BRASLOGO 1316 
- conversão para MLOGO 1319, 1344 
BREAK (tecla) 16, 78-79, 442, 559 
- desativação da (TRS-B0) 1313 
BRIGHT 716 
- com impressora 650 
- por código de controle 269 
BSAVE em programação Assembler 
(MSX) 405 
Buffer 
- de teclado 990 
- em arquivos 690 
- em impressoras 525 
Buggy 1286-1287 (V.t. Robôs) 
Bulletin Boards 562, 1404-1407 
Busca V. Pesquisa 
Bússola (desenho) 335-337 





BUTFIRST 1345-1346 

BUTLAST 1345-1346 

Byte 144 

- definição 38 

- manipulação em BASIC 1378-1380 


Cabo para gravador cassete 54-55 
Caça-níqueis (programa) 43-45, 855-860, 
881-887 
CAD V. Desenho Auxiliado por Computador 
Cadeias V, Cordões 
Caixa postal V. Quadros de avisos 
Calculadora (programa) 
- MSX 625-626 
Cálculo 
- de datas 840, 1279-1280 
- de trajetórias 677-678 
- estatístico 1176-1185 
- folhas de V. Planilha eletrônica 
- infinitesimal 772 
- lógico 302-305, 334-340, 359-360 
- matemático 434-440, 608-613, 1312, 
1342-1344, 1347 
- probabilístico 277, 774-780 
- sistemas de 1304-1305 
Caleidoscópio (programa) 25-26 
Calendário 
- agenda eletrônica (programa) 834-840, 
841-845, 868-871 
- cálculo de datas 840, 1279-1280 
CALL 220, 240, 503, 1249 
- diferença entre Apple e TK-2000 732 
Câmara 
- CCD 1470 
- de vídeo 1470 
Caminho crítico 1451, 1455 
Campo-chave 1468 
Campo de golfe (programa) 233-234 
Campo minado (programa) 61-67 
Campos 69, 1464, 1468 (V.t. Banco de dados) 
Camundongo V. Mouse 
Canal 
- área de informação 175 (W.t. Áreas da 
memória) 
- efeitos sonoros (MSX) 171 
Canetas ópticas 289, 926-929 
Caos (simulação) 1166 
Capa e Espada V. Guerra, jogos de 
Caracteres (V.t. Gráficos) 
- ampliação de (programa) 913-920, 921-925 
- análise de frequência 1092-1093, 1332-1339 
- comparação 364 
- criação 
no Apple 534-535 
no MSX 1361-1366 
no Spectrum 122, 341-347, 529 
no TRS-Color 478-480, 535-536 
no TRS-80 627, 660, 669 
- detecção na tela 715:720 
- gráficos 
em impressoras 1442-1445 
no MSX 553-555, 1361-1366 









































no Spectrum 640, 661 
no TK-2000 499, 734-737 
no TRS-80 627, 660, 669, 1413 
técnicas de animação 4-10 
uso do CHR$ V. CHR$ 
- utilizados no PRINT USING 500 
Caracteres de controle Y, Códigos 
Caracteres definidos pelo usuário 341-347, 
489-495, 507-S12, 526-535, 541-547, 570-575 
(Ft, Caracteres e Sprites) 
- definição e animação 406-413 
- em Avalanche 815-820 
- modificação 373, 406-413 
- no Apple 534-535 
- no MSX 1361-1366 
- no Spectrum 122, 341-347, 529 
- no TRS-Color 478-480, 535-536 
- no TRS-BO 627, 660, 669 
- programa gerador em Assembler 565-569 
- técnicas de programação 406-413 
Característica (notação cientifica) 894 
Cardápio V. Menu 
Carregamento 
- autocarregamento de programas 549-550 
- comandos V. CLOAD, LOAD 
- em LOGO 1330 
- rotinas em código de máquina 93-94, 973 
CARREGUE 1330 
Carro (desenho) 389-390 
Carry 10 
Cartas 
- em processadores de textos 1384-1385 
- programa de impressão 17-20 
Cartuchos 911 
CAS: 1255 
Casa (desenho) 131-133 
CASE 1291, 1448 
Castelo (desenho) 133 
CATALOG 
- em LOGO 1330 
- no Apple 269, 940 
Catástrofes, teoria das 1163-1164 
Catódicos, tubo de raios 852 
CBBS 1404-1407 
CCD, câmara 1470 
Cerrr 1405 
CEEFAX 563, 1407 
Cenários, programação de 
- em Avalanche 824-833 
Censura de entrada 1259-1260 
(V.t. Verificação) 
Centronics, padrão 525 
Chamas (programação gráfica) 121-127 
CHANS (Spectrum) 175 
Chave de acesso V. Senhas 
Checksum 1277-1278 
Cheques, preenchimento de 1440 
CHRS 263, 703, 1214 
- para controle de DOS (Apple) 269 
- Uso com caracteres gráficos 
no MSX 553-555 
no Spectrum 123, 155 
no TK-2000 734-737 
no TRS-80 160, 627, 660, 669 
- uso com códigos de controle 260, 367 
- uso com códigos de impressora 652, 
1442-1445 
- uso em arquivos (Apple) 692, 1254-1256 
- uso em auto-execução (Apple) 550 
- uso em teclas programáveis (MSX) 622-623 
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- uso na manipulação de bits 1378 

= uso na programação de impressora 1442-1445 
Cifras 888-893, 1091-1095 (V.r. Códigos e 
Senhas) 
Cinemática 670-678, 766-773, 781-787, 1161-1163 
Cirandão 561, 563, 1406 
CIRCLE 337, 865 

-no MSX 120, 234.235 

- no Spectrum 115, 232 

- no TRS-Color 118-119, 234-235 

- uso em gráficos de segmentos 639 
Circuitos eletrônicos 

- digitais 40 
Círculos (V.t. Gráficos) 

- desenho de 15, 119, 234-235, 339-340, 865 

-em LOGO 1329 

- no Apple e no TK-2000 117-118 

- no Spectrum 232 


-no ZX-81 116 
Clave musical 741 
CLC 198 


€ 





EAR 932 
- função no sistema operacional 1247 
-no MSX 91-92, 179 
- no TRS-Color 300 
- no TRS-80 90 
- Uso em programação Assembler 217 
CLEARSCREEN [318 
CLOAD 53-55, 910-911 
Clock V. Relógio 
CLOSE 691-692, 1254-1256 
cLs 12 
- conversão do TRS-Color para o TRS-80 52 
CMD 940 
CMPX 219 
COBOL 1288-1290 
Cobra, jogo da (programa) 514-520 
CODE 263 
- no Spectrum 252 
- no ZX-81 362, 364 
CODE (tecla) 553-555 
Codificação (V.t. Códigos) 
- em decimal 11, 145 
Código de máquina 
- Assembler para o Apple (programa) 238-240 
- Assembler para o MSX (programa) 401-405 
- Assembler para o Spectrum 
(programa) 248-252 
- Assembler para o TRS-Color 
(programa) 296-300 
- Assembler para o TRS-80 (programa). 679-680 
- carregamento de rotinas 93-94, 973 
- compactador de programas 
(TRS-Color) 536-540 
- definição 1 
- entrada 88-95 
- pravação de rotinas 93 
- indexador de programas 1461-1463 
- programação com valores negativos 142-145 
- rotina de INKEYS (TK-2000) 499 
- rotinas do sistema operacional 1246-1251 
- rotinas embutidas em BASIC 972-973 
MSX 1419-1420 
- rotinas para produção de sons 
(TRS-80) 1032-1033 
- vantagens em relação ao BASIC 1 
Código p 1450 (V.t. PASCAL) 
Códigos 
- ASCII 263, 280, 361-366, 499, 1332 (V.t. 
ASCIN 


= cifra de Saint-Cyr 890-891 
- cifras de posição 888-891 
- cifras multiplicativas 1093-1095 
- de barras 892 
- de controle 260, 269, 364 
de arquivos 692 
edição de programas no MSX 425 
impressoras 652, 1442-1443 
no Apple e no TK-2000 269 
no MSX 367 
no Spectrum 269 
no TRS-80 260 
uso do CHR$ 260, 367 
- degenerado 1332 (V.t. ASCIN 
- em compressão de textos 1332-1339, 
1414-1418, 1428-1435 
- Epson 652, 1442-1443 
- escape 220, 652, 1442-1445 
- gerados pelo joystick 351 
- gráficos 
impressoras 1442-1445 
no TRS-BO 627, 660, 669 
- mnemônicos 196 
- Morse 891-893 
- operacionais (Assembler) 2 
- secretos 888-893, 1091-1095 
- teclado (MSX) 499 
- ulilidade prática 892 
Coelhos, populações de (simulação) 1065-1067 
Coleções, organização de (programa) 68-75, 
81-85 
Coleta de lixo” 





- em LOGO 1330 

- rotina no TRS-Color 1251 
Colisões 

- detecção na tela 715-720 
COLOR 

- no Apple e no TK-2000 116 

- no TRS-Color 118, 393 
Comandos, criação de 

- no Spectrum 1281-1283 


- no TRS-Color 597-600 
Comandos múltiplos 

- incidência de erros 313 

- influência sobre velocidude de execução 932 
Combinação 

- bits em BASIC 1378 

- de blocos gráficos 541-547, 570-575 

- de programas 456-460 
Come-come (programa) 46-52 
Comentários (em programas) 207 
Compactador de programas (TRS-Color) 536-540 
Comparação 

- área de quadrados (programa) 436-439 

- armazenagem em DATA e 

arquivos 1252-1256 

- BASIC com o PASCAL 1436 

- busca linear com busca binária 

- dados 487 

- de cordões alfanuméricos 241-242 

- discos rígidos e disquetes 1133 

- entre editores de texto 580 

- escalonamento em conversores AD 967 

- PEEK e POINT 947 

- televisor versus monitor 851-854 

- velocidade do BASIC e código de 

máquina 925, 930 

Compatibilidade em PASCAL 1446 
Compiladores 607, 925, 1437 
Complemento binário (programa) 142-145 


1468 


Composição musical 1310 (V.1, Música) 

- programa 1398-1400, 1408-1411, 1421-1425 
Compressão 

- códigos de 1332 

- de melodias 1201-1207, 1430 

- de programas 536-540 

- de textos 1332-1339, 1414-1418, 1428-1435 

método chinês 1414, 1416-1418 

- formatos de datas 1279 
Comprimento 

- conversão de medidas (programa) 374-380 

- de um registro 1464 

- fitas magnéticas 876-878 

- variáveis em BASIC 97 
CompuServe 1407 
Conexão 

- computador-gravador, cassete 54-55 

- controle de dispositivos externos 1321-1325 

- direta (modem) 564 

- disquetes ao computador 906-908 

- entre computadores 561-564 

- impressoras ao computador 648-652 

- microcomputador a instrumentos 

musicais 1306-1310 
temas de reconhecimento da fala 
Conjuntos 192-195 

- bidimensionais 201-207 
Consistência de dados 1259-1260, 1465 (V.r. 
Verificação) 

Contabilidade 
- doméstica (programa) 134-140 (V.r. 
Planilha eletrônica) 

- uso de planilhas eletrônicas [14-15 
Contador de programa (UCP) 110 
Contagem V. Fregiiência 
Contínua, reconhecimento de fala 1311 
CONTROL (tecla) 260, 367, 551, 624 

- no TK-2000 734-737 
CONTROL-BREAK (teclas) 16 
CONTROL-C (teclas) 16, 78-79, 551 
Controle 

- blocos de (MSX) 179 

- códigos de 260, 269, 364 

de arquivos 692 

edição de programas no MSX 425 

impressoras 652, 1442-1445 

no Apple e no TK-2000 269 

no MSX 367 

no Spectrun 269 

no TRS-80 260 

uso do CHR$ 260, 367 
- comandos em processadores de textos 
- comandos para impressora 650-652, 

1442-1445 

- dispositivos externos 1321-1325 

- proporcionais 1323 

- robôs para microcomputadores 1284-1287 

- sistemas de 1321-1325 

- uso de teclas múltiplas 988-993 
CONTROL-RESET (teclas) 16 
CONTROL-STOP (teclas) 16 
Conversão 

- analógico-digital 291, 967, 1084, 1324, 1470 

- de ASCII para códigos próprios 1332-1335 

- de bases (programa) 35-37, 1281-1283 

- de binário para hexadecimal 56, 60, 406 

- de BRASLOGO para MLOGO 1319, 1344 

- de coordenadas gráficas e de texto 

(TRS-80) 1312-1313 
- de cordões para números 244-245, 900, 1214 
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- de decimal para binário (programa) 38-39 
- de graus em radianos 334-336 
- de hexadecimal para decimal 1281-1283 
- de LOGO em inglês para português 1320 
- de medidas (programa) 374-380 
- de minúsculas para maiúsculas 1215 
- de números para cordões 237, 245, 703, 1214 
- de programas do TRS-Color para o 
TRS-80 52 
- formatos de datas 1279-1280 
- notação científica (programa) 894-896 
- tabela de notas musicais (MSX) 1015 
Conversor analógico-digital 1324 
- funcionamento 291 
- uso em câmaras de vídeo 1470 
- uso em tabletes digitalizadores 967 
Conversor digital-analógico 743 
Coordenadas 
- alteração com POKE (Spectrum) 1248 
- cálculo de trajetórias 677-678 
- gráficas V, Conversão 
istema de (TRS-80) 1312-1313 
- transformação para perspectiva 644-647, 
1391-1395 
- transmissão por tablete 966 
Cópia 
- comando do DOS 936 
- tela para impressora 650, 1441-1445 
- tela para memória (TRS-80) 947, 994 
COPY 650, 917, 1442 
Cordões 99-100 (V.t. Funções) 
- armazenagem de tela 947, 994 
- armazenagem em BASIC 1101-1107 
- busca em bancos de dados 1469 
- comparação de 241-242 
- conversão 237, 244-245, 703, 900, 1214 
- definição de funções alfanuméricas 612 
- em LOGO 1344 
- em variáveis indexadas 194-195 
- fracionamento 242-244 
- função INSTR 624 
- linguagens especiais 1291 
- manipulação 703 
- operações 1214-1215, 1401-1403 
- subcordões, obtenção de 242-245, 1401-1403 
- substituição de subcordões 245-246 
- tamanho 244 
- técnicas de programação 241-247, 
1214-1215, 1401-1403 
- uso em manipulação de bits 1378-1380 
- vazios 100 
Cores 
- armazenagem em uma matriz 798 
- detecção na tela 715-720 
- em monitores e TV 853 
- influência no despejo de tela 1444 
- jogo de adivinhação de cores 
(programa) 1139-1140 
- no Apple 1250 
- opção para o editor de textos 577 
- programa de teste para vídeo 1257-1258 
- seleção 
em LOGO 1318 
no planejamento de telas 501-506 
no Spectrum 115, 389-390, 424 
no TRS-Color 87, 118, 393 
- simulação em vídeo monocromático 800 
- tabela para o MSX 832 
- tabela para o TRS-Color 87 
- uso em wireframes 585 





Correção ortográfica 1382 
Corredor (animação gráfica) 6 
Correio 
- cuidados no envio de disquetes e fitas 488 
- eletrônico 561, 564, 1407 
Correspondência (programa) 1384-1385 
cos 
-em LOGO 1344 
- em modelos cinemáticos 771 
- para desenhar círculo 116, 118 
- para desenhar espiral 359 
- uso em curvas cônicas 802 
- uso em gráficos 337-340, 354-360 
Cos-seno V. COS 
CP/M (gestão de projetos) 1451-1460 
cry 220 
Crescimento, simulação do 1061-1068, 1166-1167 
Criptografia 1091-1095 
- compressão de textos 1338 
- estatística 1092-1093 
- programas de computador 1094 
- programas no Spectrum 1248 
- técnicas de programação 888-893 
Cronometragem 65-66 
- no Spectrum 658-659 
CRT 852 
CSAVE 54, 910-911 
CSAVEM 300 
CUBO 1342 
Cubo (animação) 1097-1098 
Cubo, lei do 1063 
Cursor 
- códigos de controle no MSX 367 
- códigos de controle no TRS-80 260 
- função 12 
- piscante no TRS-80 1413 
- posicionamento na tela 146-152 
no TRS-80 1312-1313, 1412-1413 
- teclas no comando EDIT 399-400, 425, 
5s2, 1329 
Curvas 
- aplicações de parábolas e hipérboles 861-866 
- colocação de dados em gráficos 481-487 
- cônicas 801-807, 861-866 
- de distribuição aleatória 777-780, 1176-1177 
- em balística 766 
- envoltórias 1161-1167 
- famílias de 801-807, 861-866, 1161-1167 
- seno e co-seno 3238-339 
Cúspides 1163-1164 





Dados 
- acesso remoto 561-564, 1404-1407 
- arquivos em disquete 687-692 (V.t. arquivos) 
- banco de 706-711, 1464-1469 (V.t, Banco 
de dados) 
- colocação em gráficos 634-639 
curvas (programa) 481-487 
histogramas (programa) 181-187 
- comparação 487 
- consistência de 1259-1260, 1465 
- entrada 
comandos em BASIC 161-167 


em conjuntos 193-194 
rotina com INKEYS e GET 496-499, 
1259-1260 
- formatação de registros 1464-1466 
- formatação de telas 1396-1397 
- importação e exportação V, Banco de dados 
- padrões de transmissão 1405 
- programação com READ e DATA 128-133 
- programa para organização 68-75, 81-85, 
701-706 
- redução (sistemas de controle) 1323-1324 
Dados, jogo de (programa) 79-80, 1234-1240 
Dançarino (animação gráfica) 6-8 
DATA 128-133 
- comparação com armazenagem em 
arquivos 1252-1256 
- cuidados na programação 860 
- edição de linhas no MSX 191 
- em programação gráfica 131-133 
- organização das linhas em um programa 134 
- tipos 128-129 
- tipos de erro 312-313 
- uso de decimal versus hexadecimal 410 
- uso em rotinas em linguagem de 
máquina 1419-1420 
- uso para definição de sprites 188-189 
Data recorder 876-878 
Datas 
- armazenagem de 1279 
- cálculo em BASIC 840, 1279-1280 
- compressão de formatos 1279 
- distância entre duas datas 1280 
- em bancos de dados 1465 
- operações 1279-1280 
- ordenação 472 
- rotina de formatação de entrada 1396-1397 
- tipos 840 
- validação 1280, 140] 
Datilografia, Professor de (programa) 253-259, 
276-280, 281-286, 328-333 
- velocidade de aprendizado 257 
Daysywheel (margarida) 523 
dBASE IL 1288, 1291 
DDR 1286 
DECA 199 
DECB 219 
Decim 
- codificação do binário em (BCD) 11, 145 
(V.1. Códigos) 
- comparação com hexadecimal em DATA 410 
- conversão de hexadecimal 60 
- conversão para binário (programa) 38-39 
- conversão para hexadecimal 
rotina para o Spectrum 1281-1283 
- sistema de numeração 34 
Decisões 








- em Assembler 196-200, 213-219 
- em BASIC 27, 41-45, 78-80, 222-223, 444, 
625-626, 940 
- em LOGO 1331 
- em PASCAL 1448 
Declarações de tipo 1438 
DEFEXEC 300 


DEF EN 106, 608-613 
- novas funções matemáticas 1347 
Definição 
- de funções em BASIC 608-613 
- de UDG 406 
DEFSTR 97 
DEFUSR 973 


Degenerado, código 1332 
DEL 1281-1283 
DEL (tecla) 425 
DELETE 911, 940 
Densidade de gravação V. Gravação 
Depuração de programas V. Erros e Programas 
DESAPAREÇATAT 1329 
Desenho Auxiliado por Computador 
(Ve. Projeto Assistido por Computador) 
- aplicações 521 
desenho arquitetônico 1367-1371, 1386-1390 
programação em 3-D 581-585, 628-633, 
641-647, 693-700, 1097-1098, 1391-1395 
- programa 414-420, 421-424 
- mouse 1000 
- tablete digitalizador 964-968 
Desenhos V. Gráficos 
Desenhos animados V, Animação gráfica 
Desenvolvimento de linguagens 1346 
Deslocamento da tela (programa em 
Assembler) 213-219 
Despejo de tela 1441-1445 
Desvios condicionais 
- em Assembler 1196-200, 213-219 
-em BASIC 41-45, 78-80, 222-223, 444, 
625-626, 940 
- em código de máquina 
- em LOGO 1331 
Desvios incondicionais 
- em Assembler 196-200, 213-219 
- em BASIC 76-80 (V.t, GOTO) 
- em código de máquina 142-145 
Desvios relativos 142-145 
Detecção 
- de erros 
técnica 311-315, 443 
- figuras na tela 715-720 
- teclas múltiplas 988-993 
Determinísticos, modelos 1176 
DEY 220 x 
(variável de sistema no ZX-81) 177 
DFSZ 551 
Diagnóstico em impressoras 645 
Diagnóstico por computador 905 
Diagrama 
- de bloco 222 
- de sintaxe 1446 
- de telas 501-506 
DIALOG 1469 
Diário eletrônico (programa) 834-840, 
841-845, 868-871 
Diferenças finitas 772 
Dificuldade, níveis de 153-160 
- em Avalanche 941-946, 1228-1233, 1241-1245 
DigiPad 964 (V.t, Tablete digitalizador) 
Digitação (V.t. Entrada e Erros) 
-erros 44 
- programas longos 71 
- rollover 989 
- velocidade 257, 286 
jogo (programa) 281-286 
Digitalização 291 
- gráfica 964-968 
-som 1081-1085 
DIM 192 
Dimensionamento de conjuntos 192 
Dimensões fracionadas 1356-1360, 1372-1377 
Dinâmica 
- simulação de trajetórias 670-678, 766-773, 
781-787, 1161-1163 


142-145 





DIP 652 
DIR 910, 940, 1217 
Diretriz 862 
Disassembler 714 
Disco 

- flexível V. Disquetes 


- magnético (V.t. Disquetes) 
comandos em LOGO 1329 
como utilizar 906-911 
disco rígido ou fixo 879, 1133 
programa editor (TRS-Color) 1216-1220 
tipos de dispositivos 878 
utilização de arquivos 687-692, 1252-1256 
Disco voador (animação gráfica) 5 
Disparo, botão de V. Botão de disparo 
Disparo de um projétil (simulação) 783 
Disquetes 878 
- acionadores (Apple) 906-907 
- arquivos de dados 687-692 
- como utilizar 906-911 
- comparação com discos rígidos 1133 
- conexão ao computador 906-908 
- cuidados 488 
- formatação 908 
- funções do DOS 936 
- rotina de armazenagem de telas (TRS-80) 994 
Distância 
- conversão de medidas 374-380 
- entre dois pontos 807 
- entre duas datas 1280 
- simulação de alavancas e polias 981-987 
Distribuição de probabilidades 7777-780, 
1176-1177, 1181-1185 
- bimodal 1454 
- binomial 780 
- exponencial 1180 
- normal 7779-780, 1179-1180, 1181-1185 
em tempos PERT 1454 
- uniforme 1180 
Divertimentos matemáticos 
DIVIDE 1343 
Divisão em binário 37-39 
DINZ 198, 215, 558 
Documentação de programas 207 
Doméstica, contabilidade V. Contabilidade 
DOS 879-880 
- Apple 179 
- funções 936 
- programa assistente 936-940 
- uso do CHR$ 269, 692, 1254-1256 
Downloading 1404 
Dragão (animação) 474-477 
DRAW 104, 113 
- no Apple IL 116, 237, 318, 343-344 
- no desenho de letras 236-237 
-no MSX 234-235 
- no Spectrum 114, 232-233, 1248 
- no TK-2000 116, 237, 318, 343-344 
- no TRS-Color 234-235 
Drive V. Disco 
DSKINIT 908 
Dump 
- de memória 60 
- de tela 1441-1445 
Duodecimal, sistema de numeração 35 
Duplex 1406 
Duplicação de linhas 552 
Duração 
- atividades de um projeto 1454 
- controle de notas musicais 726, 745 





1301-1305 


- controle em efeitos sonoros 1027 
Dutos circulares 807 


Economia de memória 269, 899, 932-933 
- no TRS-Color (programa) 536-540 
EDFIG 1427 
Edição 
- área de (memória) 175 
- de figuras 1427 
- de programas 412 
em PASCAL 1438-1439 
- em tela completa 1313 
- linhas DATA no MSX 191 
no MSX 425 
no TR$-Color e no TRS-80 399-400 
no ZX-81 552 
- textos (aplicativo) 576-580, 586-591, 614-620 
EDIT 
- em LOGO 1329 
-no MSX 425 
- no TRS-Color e no TRS-80 399-400 
- no ZX-8l 552 
Editor (V.t, Processamento de textos) 
- de discos (programa) 1216-1220 
- de textos (programa) 576-S80, 586-591, 
614-620 
- gráfico 
ampliador e redutor (programa) 1049-1055 
para o MSX 8LI-Bl4 
para o TK-2000 (programa) 846-850 
programa 1367-1371, 1386-1390 
Projeto Assistido por Computador 
(programa) 1021-1026 
- musical (programa) 1398-1400, 1408-1411, 
1421-1425 
- sprites 811-814, 1427 
Educação 
- programa para alfabetização 390-391 
- programa para datilografia 253-259, 
276-280, 281-286, 328-333 
Efeito gravitacional (simulação) 766-773, 781-787 
Efeitos sonoros 168-173, 721-727 
(Vit, Música) 
- com POKE 265 
- compressão de melodias 1201-1207 
- controle de duração 1027 
- em Avalanche 788-795 
- instruções no MSX 792 
- no Apple 266, 712-714, 1027 
-no MSX 170-172 
- no Spectrum 168-170, 556-560 
- no TK-2000 168-170, 712-714, 1027 
“-no TRS-Color 172-173 
- no TRS-BO 170, 1032-1033 
- explosões 1032 
- produção de efeitos naturais 560 
- programação de acordes 1009-1015 
- programa genérico para o MSX 171 
- teclado musical 721-727, 741-747 
Efeitos visuais (V.t. Animação gráfica e Gráficos) 
- explosões 121-127 
- incêndios 121-127 
= listras multicores (Spectrum) 867 
















































Eletrônicos, circuitos V. Circuitos eletrônicos 
Elevador hidráulico (simulação) 986-987 
ELIMINE 1330 
ELIMINEARQ 1330 
E-LINE (variável de sistema no ZX-81) 177 
Elipse 
- desenho 340 
- no cálculo de órbitas 781-787 
ELSE 45 
-em PASCAL 1448 
- em programação estruturada 221-225 
Embaralhamento, técnica de 426-433 
Embratel 563, 1406 
Encadeamento de programas 456-460 
END 1319 
- em Assembler no Spectrum 252 
- em PASCAL 1448 
Endereçamento 196-200 
- com PEEK e POKE 261-268 (V.t. PEEK e 
POKE) 
- efetivo 793 
- no 6502 198 
- no 6809 199, 793 
-no Z-80 196 
Endereços 
- controle de vídeo no Apple 503 
- identificação de teclas no TRS-80 1413 
- início de programas BASIC 513 
- notação em código de máquina 144 
- organização da memós 174-180 
- portas de entrada e saida 1286 
- tabela do teclado do TRS-Color 267 
« variáveis de sistema no Spectrum 1340 
ENTER (tecla) 364 
Entrada 
- área de (memória) 180 
- censura de 1259-1260 
- código de máquina 88-95 
- de dados 
comandos em BASIC 161-167 
em conjuntos 193-194 
GET 164, 496-499, 1259-1260 
INKEYS 28-29, 164, 496-499, 1259-1260 
INPUT 164 
- formatação de telas 1396-1397 
- formatos 162, 1396-1397 
- senhas 166-167, 888-893, 1091-1095, 1260 
Envoltórias, curvas 1161-1167 
EOF 690, 692, 1255 
EOL 1251 
EPROM 911 
Epson, códigos de 652, 1442-1443 
Equações 
- diferenças finitas 772 
- lineares 1304-1305 
ERASE 1330 
ERASEFILE 1330 
ERL 444 
ERR 444 
Errata (programa Assembler do 
TRS-Color) 794 
ERROR 444 
Erros 
- arredondamento de números 899 
- Assembler para o TRS-Color 296-300 
- cálculo de raiz quadrada 440 
- chamadas recursivas de sub-rotinas 1225 
- depuração de programas-fonte em 
Assembler 251, 402 
- depuração de programas longos 240, 252, 





- desenhos fora da tela 31, 632 
- digitação 44 
- dimensionamento excedido 193 
- funções de localização 444 
- laços múltiplos 206 
- localização e depuração no Spectrum 
(programa) 387 
- mensagens 311, 41-46 
- nomes de variáveis em IF... THEN 141 
- números de linhas inexistentes 80 
- ON...ERROR 444, 940 
- operação de canetas ópticas 929 
- operações numéricas AND, OR e NOT 305 
- prevenção em gravações em fita cassete 4 
- prevenção em programas BASIC 41-45 
- programação com READ e DATA 128-129 
- tabela de códigos de erro em BASIC 312 
- técnicas de depuração 240, 251-252, 300, 
311-315, 402-403 
- técnicas de detecção 311-315, 443 
- técnicas de indicação 444-446 
ERR-SP (variável de sistema no ZX-81) 177 
Escada 862 
Escala cromática 742 
Escalamento 486 (V.1, Gráficos) 
- gráfico 116, 183, 318 
- programa de ampliação gráfica 1049-1055 
Escalas musicais 7722-724, 742 
ESCAPE (tecla) 442 
Escape, segiiências de 220, 625, 1442-1445 
Escolhas múltiplas 224 (4.4, ON...GOTO e 
ON...GOSUB) 
Escore V. Placar 
ESCREVA 1342 
Espaçamento 313, 932, 1214 
Espaço de memória 174-180 
Espaço de trabalho V. Áreas da memória 
Espaços 


- efeito sobre velocidade de execução 932 
- remoção (rotina) 1214 
Espalhamento (técnica de ordenação) 739 
Espect álise V. Análise espectral 





iral 
- desenho com o uso de COS 359 
Espirógrafo (programa) 360 
Esquema (banco de dados) 1464 
Estação Espacial (programa) 101-108 
Estatística 
- amostragem e previsão 1127-1128 
- aplicações 
em criptografia 1092-1093 
em programação de jogos 1349 
na compressão de textos” 1335-1338, 
1414-1418, 1428-1435 
- cálculo de tempos em projetos 1455 
- modelos 1176-1180, 1181-1185 
Estocásticos, modelos 1176 
Estrapes 652 
Estratégia (V.t. Jogos e Simulação) 
- jogos 756-760, 796-800, 1348-1355 
bar 1181-1185 
guerra 1016-1020, 1034-1048, 1069-1075, 
1086-1090 
mina de ouro 662-668, 681-686 
Estruturadas, linguagens 1291, 1436 
(V.t. Linguagens de programação) 
Estruturas de programação 221-225 
EVAL 1291 
Eventos 774-780 





Evolução das linguagens 1290 
EXEC 94, 1250 
Execução de programas 

- auto-execução 550 

- efeito da REM e dos espaços na 

velocidade 932 

-em BASIC 11, 940 

- em código de máquina 94-95 
EXECUTE 1291 
EXG 200 
Exibição, área de (memória) 175 
Explosões 

- efeitos sonoros no TRS-B0 1032 

- gráficos de segmentos 639 

- programação gráfica 121-127 
Expoente (notação científica) 897 
Exponencial, alisamento 1349 
Exponencial, distribuição 1180 
Expressões aritméticas (V.t. LET) 

- em LOGO 1342-1344 

- uso de expressões lógicas 1312 

- uso de funções 434-440 
Expressões lógicas 202 

- com números 304-305 

- uso em expressões matemáticas 1312 
Extensíveis, linguagens V. Funcionais, linguagens 





Faixas de números aleatórios 16 
F: 





- reconhecimento da 1311 
- sintetizadores da 46-48, 963 
Famílias 
- de curvas 801-807, 861-866, 1161-1167 
- de linguagens 1288-1291 
- de sprites 1427 
Fatorial (programa) 1223-1225 
FFT 1083 
Fibonacci, números de 1067-1068 
Fibras ópticas 564 
- simulação 1164 
Figuras geométricas 801-807, 861-866, 1194-1199 
FILES 910-911 
Filtro anti-reflexivo 864 
FILVRM 1144 
FIM 1319 
Fim de arquivo (EOF) 1255 
FIRE (tecla) 498 
FIRST 1345-1346 
Fisica 
- simulação de mecânica 981-987 
- simulação de movimentos 670-678, 
766-773, 781-787 
Fita 
- cassete 53-55, 876-878 
arquivos em 690 
cuidados 488 
gravação de blocos gráficos 489-495, 
575-576 
gravação de dados (Apple e TK-2000) 1254 
rotina de armazenagem de telas 
(TRS-80) 994 
utilização de arquivos 1252-1256 


- de impressão 645 
- magnética 
tipos 876-878 
Flag bits 1380 
FLASH 47, 716 
- com impressora 650 
- no Apple 390, 506 
- no Spectrum 116, 269, 504 
Flippy 911 
Floppy V. Disquetes 
Fluxograma 222 
- PERT 1451 
FN 608-613 (V,1, Funções) 
Focos 1163-1164 
Foguete, disparo e animação de 28-33 
Folha de cálculo V. Planilha eletrônica 
Fontes, criação de 921-925 (V.t. Caracteres) 
Força, jogo da 701-705, 728-733 
Forças mecânicas 981-987 
FOR...DO 1447-1448 
FORMAT 908 
Formatação 
- bancos de dados 1464 
- datas 1279-1280 
- discos magnéticos 879 
- disquetes 908 
no TRS-Color 1216-1220 
- em processadores de textos 614-620, 1382 
- telas de entrada 1396-1397 
- telas de texto 501-506 
- usando o PRINT USING 500, 1440 
- valores numéricos 899-900 
Formato 
- de datas 1279 
- de entrada 162 
- padronizado de dados (SDF) 1467 
Formulário contínuo 524 
FOR...NEXT 21-27 
- emprego correto 26 
- em programação estruturada 225 
- entrelaçados 206 
- técnicas para economizar memória 141 
- velocidade de execução 932 
FORTH 1288-1290 
FORTRAN 1288-1290 
FORWARD 1287, 1318 
Fósforo 
- uso em vídeos 854 
Fourier, transformada de 1083 
FPBASIC 179 
Frações em binário 38 
Fractais 1356-1360, 1372-1377 
FRAMES 1340 
Fraudes 564 
- em redes de computadores 1407 
- uso de códigos 892 
- vantagens dos códigos 1094 
FRE 212, 656 
FRED 1288 
Frequência 
- análise sonora 1081-1085 
- caracteres 
análise criptográfica 1092-1093 
na compressão de textos 1335-1338, 
1414-1418 
- palavras 1416-1418 
- som 722-724 
Full-duplex 1406 
Funcionais, linguagens 1290 
Funções 


- alfanuméricas V. INSTR, LEN, LEFTS, 
MIDS, RIGHTS, STRS, VAL etc. 
- de localização de erros 444 
- de um banco de dados 464 
- DOS 936 
- elaboração de gráficos (programa) 481-487 
- fórmula de escalamento 486 
- funções definidas pelo usuário 608-613 
- INSTR 624 
- manipulação de cordões 612, 624, 1214, 1402 
em LOGO 1345-1346 
- matemáticas 434-440, 608-613, 1347 
em LOGO 1344 
gráficos 482 
influência na velocidade de execução 933 
raiz quadrada 439-440 
trigonométricas 334-340, 354-360 
- remoção de espaços em um cordão 1215 
- teclas (MSX) 621-626 


Gabarito de saída 500 
Galileu 766 
Gaussiana, curva 1454 
Generalizáveis, linguagens 1290 
Geometria 
- aplicações da tartaruga (LOGO) 1287 
- curvas cônicas 801-807, 861-866 
- dimensões fracionadas 1356-1360, 1372-1377 
- gráficos tridimensionais 
V. Tridimensionais, gráficos 
- sólidos de revolução 1194-1199 
Gerações 1065-1067 
Gerenciamento de bancos de dados 1464-1469 
Gestão de projetos (programa) 1451-1460 
GET 


- com joysticks 290 
- entrada de dados 496-499, 1259-1260 
no Apple e no TK-2000 164 
- uso em gráficos 107, 352, 478-480, 535-536 
- uso em programa de desenho livre 
na tela 164-165 

- uso em programa de senhas de acesso 166-167 
Globo (desenho) 693-700 
Golfe, campo de (desenho) 233-234 
GOSUB 79-80 (V.1. ON...GOSUB) 

- com sprites no MSX 191 

- diminuição de velocidade de execução 931 
GOTO 27, 76-80 (V.r. ON...GOTO) 

- diminuição de velocidade de execução 931 

- endereçamento variável (Sinclair) 77 
GR 116 
Gradeados 

- definição 582 
Gráficos (V.t. Caracteres, CIRCLE, DRAW, 
LINE, PLOT, PSET, SET etc.) 

- abstratos 358-360 

- alça de mira 348-353 

- aleatórios 23-25 

- ampliação 1049-1055 

- animação V. Animação gráfica 

-arcos 232 

- barras 3-D 637-638 


- bicicleta (animação) 478-480 
- blocos gráficos 341-347, 406-413 
criação 489-495, 507-S12, 526-535, 
541-547, 570-575 
em Avalanche 815-820 
no Spectrum 122 
no TRS-80 627, 660, 669 
programa gerador em Assembler 565-569 
- borda decorativa (programa) 245-246 
- bússola (desenho) 335-337 
- caleidoscópio (programa) 25-26 
- campo de golfe 233-234 
- carro 389-390 
- casa 131-133 
- castelo 133 
- círculos 15, 119, 234-235, 337, 339-340, 865 
no Apple e no TK-2000 117-118 
no MSX 120, 234-235 
no Spectrum 115, 232 
no TRS-Color 118-119, 234-235 
no ZX-81 116 
- comandos em LOGO 1318-1320, 1326, 
1426-1427 
- combinação de blocos gráficos 541-547, 
570-575 
- com POKE 265 
- cópias em impressoras S21-525, 1441-1445 
- corredor (animação) 6 
- criação de blocos gráficos 489-495, 
507-S12, 526-535, 541-547, 570-575 
- criação de sprites 808-814 
- curvas 
cônicas 801-807, 861-866 
co-seno 338-339 
cúspides 1161-1167 
distribuições aleatórias 777-780 
envoltórias 1161-1167 
seno 338-339 
- cúspides 1161-1167 
- dançarino (animação) 6-8 
- de segmentos 
explosões 639 
- despejo de tela na impressora 1441-1445 
- detecção de pontos na tela 715-720 
- disco voador $ 
- dragão (animação) 474-477 
- editor gráfico 
ampliador 1049-1055 
para o MSX B1I-B14 
para o TK-2000 846-850 
programa 1367-1371, 1386-1390 
- efeitos visuais 
explosões 121-127 
incêndios 121-127 
listras multicores (Spectrum) 867 
- elaboração de curvas (programa) 481-487 
- elaboração de histogramas 634-639 
programa 181-187 
- elipse 340 
- em impressoras 652, 1441-1445 
- entrada de caracteres pelo teclado 1413 
- erros de programação 31 
- escada escorregando (animação) 862 
- escalamento 116, 183, 318, 486, 1049-1055 
- espiral 359 
- espirógrafo (programa) 360 
- figuras geométricas 801-807, 861-866 
- figuras tridimensionais V. Tridimensionais, 





gráficos 
- fractais 1356-1360, 1372-1377 





- gerador gráfico em Assembler 565-569 
- gráficos de segmentos 634-639 
- grau de resolução 114, 120 
TV versus monitor 851-854 
- gravação em fita cassete 575-576 
- helicóptero 10 
- impressão 1441-1445 
- monstro (animação no ZX-81) 319-320 
- motocicleta (animação no Apple) 316-318 
- padrões naturais 1161-1167 
- paginação gráfica 1096-1100, 1141-1145 
= perspectiva 628-633, 641-647, 693-700, 
1391-1395 
- polígonos 865 
- ponte (programa) 131-132 
- Pôr-do-sol (programa) 25-26 
- processamento de imagens em 
robôs 1286, 1461 
- programação de caracteres no 
MSX 1361-1366 
- programação de sprites no MSX 188-191 
- programação em 3-D 581-585, 628-633, 
641-647, 693-700 
- programação, técnicas de 86-87, 113-120, 
121-127, 232-237, 388-393, 406-413, 639 
- programa de criação de sprites 189 
- programa de demonstração (TRS-Color) 87 
- programa de desenho livre 164-165, 846-850 
- programa de testes para vídeo 1257-1258 
- programa para desenho em tela 414-420, 
421-424, 846-850, 1367-1371, 1386-1390 
- Projeto Assistido por Computador 
(programa) 1021-1026 
- relógio 354-358 
- retas : 
no Apple e no TK-2000 116 
no MSX 119 
no TRS-Color 118 
- rotinas do sistema operacional 
no Apple 1249 
no MSX 1249 
- sapo (animação) 344-347 
- simetria e assimetria 1372-1374 
- simulação de alta resolução no ZX-81 320 
- simulação de sprites no TRS-80 627, 660, 669 
- sombreamento 115, 1394-1395 
- sprites 107, 188-191, 808-814, 1132, 1426-1427 
no TRS-80 627, 660, 669 
- submarino (animação no Apple) 316-318 
- tabelas de forma 237 
- tabletes digitalizadores 964-968 
- tanque de guerra (animação) 342-347 
- textos em tela de alta resolução 
(Apple) 534-535 
- uso de canetas ópticas 926 
- uso de funções trigonométricas 334-340, 
354-360 
SIN e COS 337-340, 354-160 
- uso do comando PCOPY (TRS-Color) 596 
- uso do GET 107 
- uso do OPEN “GRP:” no MSX 594 
- uso do PUT 104, 107 
Grafismos 1197 
Grafix, impressora 1442-1443 
GrafPad 964 (V.t. Tablete digitalizador) 
GRAPH (tecla) 
-no MSX 553-555 
- no Spectrum 640 
- no TK-2000 734-737 
Graus 








- conversão em radianos 334-336 
Gravação 

- agenda eletrônica 868-871 

- análise sonora 1082 

- blocos gráficos 489-495, 575-576 

- dados em fita cassete (Apple e TK-2000) 1254 

- densidade de 880 

- rotinas em código de máquina 93 
Gravador cassete 53-55, 876-878 

- arquivos em 690 

- conexão ao computador 54-55 

- porta de saída para efeitos sonoros 1032 

- rotinas de comunicação 

no MSX 1249 
no TRS-Color 1250 

- uso para produção de efeitos sonoros 170 
GRAVETUDO 1330 
Gravidade (simulação) 766-773, 781-787 
*Greensleeves”” (melodia) 788-795, 1014 
Gregoriana, data 840 
Guerra, jogos de 1016-1020, 1034-1048, 
1069-1075, 1086-1090 


Half-duplex 1406 
HALT 556 
Hanói, As Torres de (programa) 1226-1227 
Hardcopy 521, 1442-1445 
Harmonia musical 1009 
HCOLOR 116 
Helicóptero (animação gráfica) 10 
Hero I (robô) 1285 
Heurística 905, 1040, 1086-1087 
HEXS 58 
Hexadecimal 
- aritmética 56-60 
- comparação com decimal em DATA 410 
- conversão do binário 406 
- conversão para binário (programa) 56-60 
- conversão para decimal 60 
Spectrum 1281-1283 
- necessidade para programação 60 
- notação de endereços 144 
- notação em BASIC 58 
- números negativos 142-145 
- sistema de numeração 56-57 
HGR 116 
HGR2 116 
HIDETURTLE 1329 
Hidráulica 986-987 
Hifenação automática 580, 1383 
HIMEM 180 
Hipérbole 801-807, 861-866 
Histogramas 181-187, 634-639 
HLIN 116 
HOME 12, 116, 1318 
-no MSX 367 
Horizontal, movimento 766-773 
Horóscopo (programa) 1261-1270 
HoiLOGO 1317, 1426-1427 
HPLOT 116 
HTAB 10, 503 
- com impressora 650 








Iate (programa) 1234-1240 
Icônicos, modelos 1176 
TEE-488 525 
IF... THEN 27, 41-45 
- combinação múltipla 44 
- efeitos sobre velocidade de execução 932 
- em LOGO 1331 
-em PASCAL 1448 
- em programação estruturada 222-223 
- técnicas para economizar memória 141 
- uso do ELSE 45 
Imagens 
- armazenagem de 968 
- processamento de 1286, 1470 
Imperativas, linguagens 1290 
Impressão 
- cópia de gráficos na impressora 1441-1445 
- de bancos de dados 83 
- tela (TRS-80) 947, 994 
Impressoras 
- acentuação em português 280 
- Alice 1442-1443 
- autoteste 649 
- buffer 525 
- códigos de controle 652 
- códigos gráficos 1442-1443 
- conexão ao computador 648-652 
- elaboração de cartazes e manchetes 917 
- margarida 523,1385 
- matriciais 522, 1385 
- programação 1442-1443 
- programação interna 652 
- seleção 521-525 
- seleção para processamento de textos 1385 
- térmicas 524 
- tipos 522-524 
- utilização 648-652. 
INC 214, 216 
Incêndios (programação gráfica) 121-127 
Indexação 
- de bancos de dados 1464 
- de programas 1461-1463 
- de variáveis 192-195, 201-207, 1101-1107 
- em código de máquina 196-200 
- registros da UCP 110 
- sistema (programa) 221-225 
Indicadores 110, 175 
Indireção 1291 
Infinitesimal, cálculo V. Cálculo 
Infixa, notação 1343 
Informação de canal, área de (memória) 175 
INIR 217 
INT 908 
INK 47, 113, 115, 640, 716 
- por código de controle 269 
INKEYS 28-29 
- com joysticks 290 
- entrada de dados 164, 496-499, 1259-1260 
- no TRS-80 1413 
- rotina de entrada de dados 1259-1260 
- simulação 
no Apple 167, 266 
no TK-2000 167, 496-499 


- uso com teclas programáveis 624 
- uso em edição em tela completa 1313 
- uso em jogos 28-29 
- uso em programa de desenho livre 
na tela 164-165 
- uso em programa de senhas de acesso 166-167 
P 1286 
INPUT 12, 14, 161-167 
INPUTS 624 
INPUT A 691.692 
INS (tecla) 425 
Inserção (técnica de ordenação) 739-740 
INSTR 245, 624, 1214 (V.t. Cordões) 
Instrumentos musicais 1306-1310 
(Ft. Música) 
INT II 
-em LOGO 1344 
- uso com números aleatórios 13 





INTEGER 1438 

INTEGER BASIC 179 

INTEIRO 1344 

Inteiros 11, 13, 932, 1344 
- funções 1347 


- programa 1222-1223 
Inteligência Artificial 873, 905, 1315-1316 
- aplicações em jogos de guerra 1086-1087 
- linguagens 1291 
Intercomunicações (V.t. Interfaces) 
- de computadores 1404-1407 
Interfaces 
” conexão computador-sintetizador 1306-1310 
- controle por computador 1322 
- discos magnéticos 880 
- homem-máquina 1324 
- padrões 525 
- para impressoras S25 
- para vídeo 1470 
Interpretadores 607, 930, 1247-1248, 1437 
Interrupção 
- de um programa BASIC 16 
- programação de um relógio 658-659 
- teclado 988 
Inversão de vídeo 1249 
- caracteres no Spectrum 640, 661 
- gráfica 320 
- rotina para o TRS-Color 597-600 
- uso em jogos 800 
INVERSE 390 
- com impressora 650 
-no Apple 1249 
- no Spectrum 640, 661 
- rotina para o TRS-Color 597-600 
INY 20 
Irregularidade, matemática da 1356-1360, 
1372-1377 
Isométrica, projeção 628-633, 641-647 
Mautec LOGO 1317 


Janelas de texto 580 
Jaque para gravadores 54-55 
Jipe (programa) 119-120 
JKL (teclas) 1442 


IMP 
-no 6502 198 
- no 6809 200 
JOGOS 

- aplicações da digitalização de sons 1084 

- aplicações de reconhecimento da fala 1311 

- programas 
A Aranha Marciana 955-960, 974-980 
Adivinhação de Palavras 701-705, 728-733 
A Raposa e os Gansos 872-875, 901-905, 
948.954 
Avalanche 748-755, 761-765, 788-795, 
815-820, 824-833, 995-999, 1001-1008, 
1028-1031, 1056-1060, 1076-1080, 
1116-1120, 1208-1213, 1291-1300 
Bandido de um braço só V. Caça-níqueis 
Caça-niqueis 43-45, 855-860, 881-887 
Campo Minado 61-67 
Capa e Espada 1016-1020, 1034-1048, 
1069-1075, 1086-1090 
Come-come 46-52 
da Cobra 514-520 
da Vida 961-963 
de adivinhação 12-13, 42-43 
de aventura V, Aventura, jogo de 
de blefe 1348-1355 
de dados 79-80, 1234-1240 
de guerra 1016-1020, 1034-1048, 
1069-1075, 1086-1090 
Estação Espacial 101-108 
Labirinto 46-52, 153-160, 170-172 
Módulo Lunar 821-823 
Otelo 756.760, 796-800 
PacMan V. Come-come 
Papel, Pedra, Tesoura 1348-1355 
Pintor Aloprado 1277-1278 
Senha 1139-1140 
Serra Pelada 662-668, 681-686 
Torres de Hanói, As 1226-1227 








adaptação de jogos em cores 800 
cartas de baralho 426-433 
compressão de textos 1332-1339, 
1414-1418, 1428-1435 
contagem de pontos 47-52, 61-67 
controle de movimentos 28-33 
distribuições de probabilidade 1177 
escolha de teclas de controle 31 
estatística 1349 
estratégia 7756-760, 796-800, 1348-1355 
explosões e incêndios 121-127 
Joysticks 348-353, 368-373 
labirintos aleatórios 153-160 
ção de recordes 64-66 
níveis de dificuldade 153-160 
ruídos e explosões 168-173 
sprites em Assembler 818-820 
teclas programáveis 655 
uso de matrizes 798 
uso do INKEYS 28-33 
Jornalismo eletrônico 564 
Joysticks 287-291 
- analógico 289 
- aplicações 288, 351-352 
- códigos gerados 351 
- funcionamento 289 
- no Apple 291 
-no MSX 350-351 
- no Spectrum 349 
- no TK-2000 351-352 








- no TR$-Color 352-353, 1251 
-no ZX-81 350 
- operação 290 
- programação 348-353, 368-373 
-tipos 288 

JOYSTK 353 


Juliana, data 840, 1280 
Juros, cálculo de (função) 612 


- programação 622-623 
- utilização em jogos 655 

KEY LIST 622 

KEY OFF 351, 622 

KEY ON 622 

KILL 911, 940 

KoalaPad 965 


Labirinto (programa) 46-52, 153-160, 170-172 
Laços 


- de corrente 525 
-em BASIC 21-27, 26 
- em planilhas eletrônicas 1156 
- múltiplos 206 
LAN 1200, 1407 
Lápis óptico |. Canetas ópticas 
Largura de faixa 854 
Laser, efeitos sonoros (Apple e TK-2000) 1027 
LAST 1345-1346 
Layout do arquivo 75 
LBEQ 200 
LD 197, 216 
LDA 196 
- no 6502 198, 220 
- no 6809 200, 219 
LDB 219 
LDDE 216 
LDDR 216 
LDIR 214 
LDIRMV 1144 
LDX 219 
LDY 220 
LEFT 1287, 1318 
LEFTS 244, 703, 1214 
Lego 1287, 1325 
LEN 244, 703, 1214 
LET 13, 9,933 
- com operadores relacionais 302 
- eliminação para encurtar programas 141 
- em comparação com DATA 128 















































Letras (V.t. Caracteres) 
- ampliadas (programa) 913-920, 921-925 
- desenho com DRAW 236-237 
- frequência (programa) 1414 
- rotina de desenho (TRS-Color) 760 
Letreiros (programa) 913-920, 921-925 
LIFO 110 
Limites de crescimento 1063 
Limites de valores 443 
LINE 
-no MSX 119, 234-235 
- no TRS-Color 118, 234-235 
Linear, pesquisa 1468 
LINEFEED 367 
LINE INPUT 163 
- simulação com INKEYS 1259-1260 
Linguagem Assembler V, Assembler 
Linguagem macromusical 
-no MSX 170 
- no TR$-Color 172-173 
Linguagens de programação 1288-1291 
- classificação 1290-1291 
- compiladores 925, 1437 
(V.t. Compiladores) 

- desenvolvimento 1346 

- LOGO 1288-1290, 1314-1320, 1326-1331, 
1341-1346, 1426-1427 

- para bancos de dados 1291, 1469 

- PASCAL 1288-1290, 1436-1439, 1446-1451 

LINHAS 
- comandos múltiplos 44 
- duplicação 552 
- no Spectrum 661 
- numeração 16 

LISA 1000, 1291 

LISP 1288-1290, 1291, 1316, 1436 

LIST 513, 552, 650-652 
- listagem de teclas de função 622 

Lista de opções V. Menu 

Listas 1346 

Lista telefônica (programa) 129 

Listrada, tela (Spectrum) 867 

Livro-código 1094-1095 

Livro eletrônico 994 

LLIST 513, 650-652 

LOAD 910-911, 1255 
- com gravador cassete 53-55 
- efeito sobre relógio interno 659 
- em LOGO 1330 

Localização do cursor 1412-1413 

LOCATE 10, 150, 503, 553-555, 1366 

LOCK 911, 940 

Lógica de programação 41-45, 76-80, 301-305, 

1291 

Lógico, cálculo V. Cálculo 

LOGO 1288-1290, 1314-1320, 1326-1331, 

1341-1346, 1426-1427 
- arquivos 1329-1330 
- atribuição 1345-1346 
- autocarregamento de programas 549-550 
- CATALOG 1330 
- círculos (desenho) 1329 
- “coleta de lixo" 1330 
- conversão do inglês para português 1320 
- conversão entre dialetos 1319-1344 
- expressões aritméticas 1342-1344 
- interpretador (Apple) 1317 
- micromundo 1342 
- no controle de robôs 1287 
- operações com cadeias 1344-1346 





- procedimentos 1287, 1319-1320 

- sprites 1426-1427 

- uso do COS 1344 
LOMEM 180 
Loteria esportiva (simulação) 1121-1127 
LPRINT 650-652, 917 





MA 88, 180 
Macintosh 1000, 1291 
Macromusical, linguagem 


-no MSX 170 
- no TRS-Color 172-173 
Maiúsculas 


- obtenção com POKE (Spectrum) 265 
- Professor de Datilografia (programa) 281-286 
- rotina de conversão 1215 
- uso em comandos BASIC 23 
MAKE 1345-1346 
Mala direta 1384-1385 
Malha , Laços 
Manchetes (programa) 913-920, 921-925 
Manipulação 
- de bits 1335, 1378-1380 
uso do CHR$ 1378 
- de cordões 703 
Mantissa 894 
Mapa de memória V. Memória 
Mapeamento 
- de bits 1380 
- jogos de guerra 1034-1040 
Máqui 1450 
“Marcha dos Santos, A” (melodia) 1010 
Margarida, impressora 523 
Máscara de texto 614-615 
Mascaramento 1379-1385 
Mastermind (programa) 1139-1140 
Matemática 
- dimensões fracionadas 1356-1360, 1372-1377 
- divertimentos matemáticos 1301-1305 
- em LOGO 1342-1344 
- fractais 1356-1360, 1372-1377 
- funções 434-440, 608-613, 1344, 1347 
- operações matemáticas V. Expressões 
aritméticas, Expressões lógicas, LET 
e Operações 
Matriciais, impressoras 522 
- uso com gráficos 1441 
Matriz, gerador de (teclado) 988 
Matrizes 201-207, 1303-1304 
- aplicações 207 
- aplicações em jogos de tabuleiro 798 
- área de (memória) 
MSX 179 
- armazenagem 1101-1107 
- programa para cálculo de planilhas 1108-1115 
- velocidade de execução 932 
MAXFILES (variável de sistema do MSX) 179 
Mecânica (simulação) 981-987 
Meccano 1287, 1325 
Medidas, conversão de (programa) 374-380 
Melodias |. Música 
MEM 212 





Memória (V.t. Áreas da memória) 
- armazenagem 
de números em BASIC 894-900 
de programas 513, 1101-1107 
de tela (TRS-80) 947, 994 
de variáveis 1215 
- auxiliar 876-880 (V.1. Disco e Fita) 
- cartuchos 911 
- cuidados com fitas e discos 488 
- discos rígidos 1133 
- disponível em BASIC 212 
- economia 269 
armazenagem de números em BASIC 899 
e a velocidade de execução 932-933 
no TRS-Color (programa) 536-540 
- EPROM 911 
- exame com PEEK 262, 264 
- HIMEM e LOMEM 180 
- intermediária 175 (Vit. Buffer) 
- limitações em páginas gráficas 1141 
- listagem do Avalanche 1291-1300 
- organização 174-180 
de programas BASIC 13 
em LOGO 1330 
no Apple 180-181 
no MSX 179, 808 
no Spectrum 175-177 
no TK-2000 180-181 
no TRS-Color 177-178 
no TRS-80 178-179, 1412 
no ZX-81 177 
- páginas gráficas 1096-1100, 1141-1145 
- ponteiros e indicadores 175 
- RAM 174-175 
- reserva no Spectrum 176 
- ROM 174-175 
- vídeo 
endereços no Apple 180 
endereços no TK-2000 180 
no MSX 179, 531-533 
no Spectrum 175 
no TRS-Color 178 
no TRS-B0 178 
- virtual 1385 
Mensagens 
- codificação de 888-893 
- de erro 311, 441-446 
- de prontidão 162 
- desenho com DRAW 236-237 
- secretas 1091-1095 (V.1. Senhas) 
- tipos de textos em jogos de aventura 1430 
- uso em programas 441-443 
Menu 441-443, 504-506, 623-624 
- assistente para o DOS (programa) 936-940 
- uso de canetas ópticas 926 
- uso de subcordões 1402 
MERGE 456-460 
- uso na proteção de programas 55] 
MESA 1290 
Mesa digitalizadora V. Tablete digitalizador 
Método chinês 1414 (V.t. Compressão) 
Métricas, conversões (programa) 374-380 
Microdisquete 880 
Microdrives 175, 877, 908 
Micromundo 1342 
Microprocessadores 109-112 
- 6502 112, 199, 793 
- 6809 200, 793 
- Z-80 11-12 
Microscópio eletrônico (simulação) 1164-1165 


Microsoft 1290-1291 

MIDS 244, 703, 1214 

MIDI 1306-1310 

Mini-Assembler 180, 714 

Minidisquetes V. Disquetes 

Minski, Marvin 1315-1316 

Minúsculas 

- rotina de conversão 1215 

- uso em comandos BASIC 23 

Míssil (animação gráfica) 28-33 

MIT 1287, 1291, 1314 

MLOGO 1317 

- conversão do BRASLQGO 1319, 1344 

Mnemônicos 196 ; 

MO 1330 

MODI6 814 

Modelos 

- bancos de dados 75 

- dimensões fracionadas 

- dinâmicos 
aplicações 677 
simulação 670-678 
trajetória de objetos 670-678, 766-773, 


1359 


781-787 
- distribuições de probabilidades 1176-1180, 
MIBI-118S 
- óptica 1164 
- padrões gráficos naturais 1161-1167 


- ressonância 1165-1166 
- simulação 670-678, 981-987, 1061-1068 
- sistemas de numeração 36 
- tipos de 1176 
Modem 561-564, 1200, 1404 
- acústico 564 
aracterísticas 
- tipos 1407 
Modo gráfico 1442-1443 
MODULA 1288-1290 
Módulo 1347 
Módulo Lunar (jogo) 821-823 
Moeda, lançamento de (simulação) 775-776 
Mônica, impressora 1442-1443 
Monitor 3, 88, 714, 1217 
- comparação com televisor 851-854 
- de vídeo 851-854 (V. £. Tela) 
- programa 92-93, 1217 
- programa de testes para vídeo 1257-1258 
Monocromático, vídeo 800, 854 
Monstro (animação) 319-320 
Montagem (linguagem de máquina). Assembler 
Morse, código 891-893 
Motocicleta (animação) 316-318 
Moto-continua, bomba 1143-1145 
MOTOR 1251 
Motores de passo 
MOTS 1330 
Mouse 289, 1000, 1291 (V.t. Desenho Auxiliado 
por Computador) 
Movimentação 
- de objetos 28-33, 670-678, 766-773, 781-787 
- gráficos V. Animação gráfica 
Movimento aleatório (simulação) 1166 
Movimento planetário 786-787 
MP 180 
MSX 
- áreas da memória 179 
- Assembler (programa) 401-405 
- atributos de tela SIS, 814 
- calculadora (programa) 625-626 
racteres definidos pelo usuário 1361-1366 


1406 








1324 





- CIRCLE 120, 234-235 
- CLEAR 91-92, 179 
- códigos de controle 367, 425 
- comandos de edição 425 
- compilador PASCAL 1438-1439 
- cursor de texto 367 
- desenho com DRAW 234-235 
ferença entre comandos OTIR e OUTI 792 
- edição de linhas DATA 191 
- efeitos sonoros 170-172 
- função CHRS 8553-555, 622-623 
- interpretador LOGO 1317 
- Joysticks 291 
- organização do teclado 989 
- organização do video 531-533, 808, 1132, 
1361-1366 
- padrão MIDI 130 
- programação de músicas polifônicas 1009-1015 
- rotinas em código de máquina 1419-1420 
- símbolos gráficos de teclado 553-555 
= sprites 
em BASIC BOB-814 
em LOGO 1426-1427 
- tabela de conversão de notas musicais 
- tabela de cores 832 
- teclas programáveis 621-626 
- VRAM 531, 808, 1132 
MUDECL 1319 
MUDEFIG 1427 
Multiplexação 1406 
Multiplicação em binário 37-39 
Multiplicativas, cifras (criptografia) 1093-1095 
(V.1. Códigos) 
Múltiplos 1347 
Múltiplos, comandos |. Comandos múltiplos 
Múltiplos eventos (probabilidade) 776-777 
Multitonal, vídeo 800 
Música 721-727, 741-747, 1009-1015, 1082 
(V.t. Efeitos sonoros) 
- acidentes musicais 743-744 
- acordes musicais 1009-1015 
- andamento 744-745 
- clave 741 
- composição 1310 
programa 1398-1400, 1408-1411, 
1421-1425 
- compressão de melodias 1201-1207, 1430 
- editor musical (programa) 1398-1400, 
1408-1411, 1421-1425 
- efeitos em jogos 788-795 
- escalas musicais 722-724, 742 
escala cromática 742 
instrumentos digitais 1306-1310 
- no Spectrum 560 
- notação musical 741-742, 745 
- notas musicais 722-726, 742 
- pauta musical 741 
- sintetizadores 1306-1310, 1400 
- tabela de conversão para o MSX 1015 





1015 





Nado parabólico 863-864 
NAME 940 


Negativos, números 
- programação em linguagem de 
máquina 142-145 
Newton, Isaac 766-784 
NEXT V, FOR...NEXT 
Nibble 1335 
Ninhos FOR...NEXT 206 
Nitidez de desenhos na tela 700 
Níveis de dificuldade 153-160 
- em Avalanche 941-946, 1228-1233, 
1241-1245 
N-key-roll-over 989 
Nodos 1330 
Nomes 
- arquivos 689-690, 908-910, 940 
- conjuntos 194-195 
- funções definidas pelo usuário 610 
- tabela de nomes (MSX) 533, 1361-1363 
- variáveis 1126 
efeito sobre velocidade de execução 932 
em BASIC 99-100 
Nonúário, sistema de numeração 35 
NOP 558 
NORMAL 390, 1249 
Normal, distribuição 779-780, 1179-1180, 
1181-1185 
- tempos PERT 1454 
NOT 224-225, 301-304 
- na manipulação de bits 1335, 1378 
Notação 
- BNF 1446 
- científica 894 
- de engenharia 894 
- hexadecimal em BASIC 58 
- musical 741-742, 745 
- sufixa e infixa 1343 
Notas musicais 722-724, 742 
- controle de duração 726, 745 
- tabela de conversão para o MSX 1015 
Numeração 
- bases de 34-40, 56-60 
- de linhas 16, 80, 932 ; 
efeito sobre velocidade de execução 932 
erro por numeração inexistente 80 
- sistemas 34-40 
conversão hexadecimal para o 
Spectrum 1281-1283 
Números 
- aleatórios 11-16 
em LOGO 1344 
especificação de faixas 16 
intervalo de especificação 13 
uso em simulação 1121-1127, 1176-1180, 
1181-1185 
- armazenagem em BASIC 894-900 
- de Fibonacci 1067-1068 
- de linha 16, 80, 932 
- digitação de (programa de 
aprendizado) 281-286 
- em LOGO 1342-1344 
- formatação com PRINT USING 899-900, 
1440 
- influência na velocidade de execução 932 
- negativos 
no cálculo de SQR 440 
no sistema binário 142-145 
no sistema hexadecimal 142-145 
representação em gráficos 484 
- quebra-cabeças 1305 
- randômicos V, Aleatórios, mimeros 








Observação, ponto de 642-644 
Octal, sistema de numeração 60 
OCTS 60 


Off-set 112 
OLD 597-600 
ON ERROR...GOSUB 444 
ON ERROR...GOTO 940 
ON...GOSUB 80 
ON...GOTO 78-79 
ON KEY...GOSUB 625, 655 
ON SPRITE...GOSUB 191 
ON STOP...GOSUB 626 
- uso na proteção de programas 551 
Opcodes 2 
OPEN 691-692, 1254-1256 
- para saída em vídeo (MSX) 594 
Operacional, sistema V, Sistema operacional 
Operações 
- alfanuméricas 1214-1215, 1401-1403 
- aritméticas 
em LOGO 1342-1344 
em PASCAL 1438 
influência na velocidade de execução 933 
por funções definidas pelo usuário 613 
programa para planilhamento 1108-1115 
símbolos 14 
sistema binário 37-39 
sistema hexadecimal 56-60 
- com datas 1279-1280 
- lógicas 301-305 
uso em expressões matemáticas 1312 
Operadores lógicos 43 (V.r. AND, NOT e OR) 
Operadores relacionais 301-305 
Óptica, simulação 1164 
, canetas V. Canetas ópticas 
OR 43, 301-304 
- limite para tamanho dos números 305 
- na manipulação de bits 1335, 1378 
ORACLE 563, 1407 
Órbitas (simulação) 781-787 
Orçamento 
- programa 134-140 
- uso de planilhas eletrônicas 1114-1115 
Ordenação 
- cordões alfanuméricos 242 
- no processador de textos 614-620 
- técnicas de 468-473, 738-740 
bolha 292-295, 469-471 
instantânea 740 
por espalhamento 739 
por inserção 739-740 
por substituição retardada 7738-739 
Quicksort 740 
recursão 1225-1226 
Shell 471-473 
Shell-Metzner 473 
- velocidade de execução 933 
ORG 
-no Apple 240 
-no MSX 405 
- no Spectrum 251 
-no TR$-Color 300 
Organização 





- de coleções (programa) 68-75, 81-85 
- memória 174-184 
programas BASIC 513, 1101-1107 
- microprocessador 109-112 
- vídeo 86-87, 178, 268, 531-533 
Otelo (jogo) 756-760, 796-800 
Otimização 905 
OTIR 792 
OUT 556, 1286 
- em Assembler 217 
- programação de efeitos sonoros no 
TRS-80 170 
OUTI 792 
OUTIR 217 
OVER 350 
- com impressora 650 
Overflow (sinalizador da UCP) 110 


PAC YV. Projeto Assistido por Computador 
PacMan (jogo) 46-52 
Paddles 288, 351 
Padrões 
- Centronics 525 
- de pontos 1164-1165 
- de transmissão de dados 1405 
- práficos (programa) 14-15 
- R$-232C 525 
- tabela de (MSX) 830-831, 1362 
- teste de monitores 1257-1258 
Paginação 1096-1100, 1141, 1145, 1385 
Páginas 
- direta no TRS-Color 178 
- gráficas 1096-1100, 1141-1145 
no Apple e no TK-2000 180 
no TRS-Color 178, 596 
no TRS-80 947, 994 
- registro (UCP) 112 
PAINT 113 
-no MSX 119-120 
- no TR$-Color 119 
PALAVRA 1344 
Palavras 
- cruzadas (jogo) 704 
- em LOGO 1344 
- frequência 1416-1418 
- processamento de V. Processamento de textos 
- vazias 1345-1346 
Paleta eletrônica (programa) 846-850 
Palíndromo 1448 
Pantógrafo 965 
Papel 645 
- termossensível 524 
Papel, Pedra, Tesoura (programa) 1348-1355 
PAPER 47, 115, 640, 716 
- com impressora 650 
- por código de controle 269 
Papert, Seymour 1287, 1314 
Parábolas 803-804, 807, 861-866, 1161-1163 
- em balística 766 
Parabolóides 807 
PARACENTRO 1318 
PARADIREITA 1318 
PARAESQUERDA 1318 


PARAFRENTE 1318 
Paralelas, interfaces 525 
Parâmetros de uma função 609 
Parênteses 
- uso em valores monetários 1440 
Paridade, bits de 1406 
Partículas subatômicas (simulação) 1164-1165 
Partituras musicais 744, 1423 
PASCAL 1288-1290, 1314, 1436-1439, 1446-1451 
- atribuição 1438 
- comparação com o BASIC 1436 
- compatibilidade 1446 
- recursividade 1223 
Pascal, triângulo de 277 
Pascalina 1436 
Pausas 
- em código de máquina 559 
- programação em Assembler 748-755 
PAUSE 115 
Pauta musical 741 
PCLEAR 90, 237 
PCLS 118, 393 
PCOPY 59%, 1142 
PDL 351 
PEEK 261-268 
- acesso direto ao sistema 
operacional 1248-1251 
- auto-repetição de teclas 
no TR$-Color 265 
no TRS-80 1313, 1412 
- comparação com POINT 947 
- cópia de telas (TRS-80) 947 
- efeitos sonoros no Apple 266, 712 
- encadeamento de programas 
no Apple 460 
no TR$-Color 458 
no TRS-80 460 
- exame de programas em memória 513 
- localização do cursor (TRS-B0) 1313 
- medida de tempo no Spectrum 65-66, 265 
rogramação em código de máquina 88 
- simulação do INKEYS 
no Apple 167, 266 
no TK-2000 496-499 
- variáveis de sistema no Spectrum 1340 
- varredura do teclado (TRS-B0) 1413 
Peixes, populações de (simulação) 1166-1167 
Penas ópticas |, Canetas ópticas 
PENCOLOR 1318 
PENDOWN 1287, 1318 
PENUP 1287, 1318 
Persistência visual 853 
Perspectiva 628-633, 641-647, 693-700, 1391-1395 
- animação gráfica de um cubo 1097-1098 
PERT (programa) 1451-1460 
Peso 
- conversão de medidas (programa) 374-380 
- simulação de alavancas e polias 981-987 





esquisa 
- binária 873, 934, 1468 
- de subcordões alfanuméricos 245-246, 1469 
- de valores em um conjunto 195 
- em árvore 873 
- em bancos de los 1467-1468 
- em conjuntos bidimensionais 
(programa) 203-207 
- em um arquivo 81-82 
- linear 1468 
- no processador de textos 614-620 
- otimização de busca 905 





- uso em simulação e previsão 1127-1128 
- velocidade de execução 933, 1468-1469 
Pessimista, tempo 1454 
Piaget, Jean 1314 
Pilha 
- no 6809 793 
- no Apple e no TK-2000 180 
- no Spectrum 176 
-no ZX-81 177 
- UCP 110 
PILOT 1288 
Pintor Aloprado (programa) 1277-1278 
Pixels 86-87, 114, 1470 
“Pizza”, gráficos 634-639 
PL-1 1288 
Placar 47-52, 61-67 
- em Avalanche 1001-1008, 1228-1233 
Planejamento 
- de projeto (programa) 1481-1460 
- formatação de telas de texto 501-506 
- jogos de aventura 208-212 
- jogos de guerra 1016-1020 
- planilha eletrônica 1110 
Planetas 
- simulação de órbitas 786-787 
Planilha eletrônica (programa) 1IOS-IHIS, 
1134-11387 1154-1160 
Planta 
- crescimento (simulação) 1063 
PLAY 725-727 
- efeito sobre relógio interno 659 
-no MSX 170-172, 1010 
- no TRS-Color 172-173 
PLOT 113 
- no Spectrum 114, 502, 1248 
-no ZX-81 116 
Plotter 968 
Plugue para gravadores 54-55 
PMODE 86-87, 118, 178, 236, 345, 392, 479, 
1142 
PO 1330 
POINT 716-720, 1312 
- comparação com PEEK 947 
- conversão do TRS-Color para o TRS-80 52 
Poisson, processos 1177 
POKE 261-268 
- acerto do relógio interno 659 
- acesso direto ao sistema 
operacional 1248-125] 
- alteração da RAMTOP 212 
- controle de robôs 1286 
- cópia de telas (TRS-80) 947 
- delimitação da área de tela no Apple 266 
- desativação da tecla BREAK 1313 
no TRS-80 1412-1413 
- encadeamento de programas 
no Apple 460 
no TRS-Color 458 
no TRS-80 460 
- entrada de código de máquina 88 
- modificação da tabela de atributos 
(Spectrum) S1S 
- obtenção de efeitos sonoros 265 
- obtenção de teclas auto-repetitivas 265 
- para alterar a velocidade de processamento 
(TRS-Color) 266 
- programação gráfica 122 
- rotinas em código de máquina 973, 1419-1420 
- tela gráfica (TRS-Color) 86-87 
- variáveis de sistema no Spectrum 1340 


Polias 984-986 
Polifonia (música) 1009 
Polígonos, desenho de 865 
Ponte, desenho de (programa) 131-132 
Ponteiros 175 
Ponto de fuga 1391 
Ponto de observação 642-644 
Pontos 
- contagem em Assembler 1228-1233 
- contagem em jogos 47-52, 61-67 
- em Avalanche 1001-1008, 1228-1233 
- funções para detecção 715-720 
- padrões 1164-1165 
Pontuação em PRINT 13, 146-152 
POP 215 
Populações 
- de coelhos (simulação) 1065-1067 
- de peixes (simulação) 1166-1167 
Póquer de dados (programa) 1234-1240 
Pôr-do-sol (programa) 25-26 
Portadora, onda 1407 
Portas 556 
- controle de dispositivos externos 1286 
- definição 556 
- no TRS-80 1032 
POS 1313 
Pós-byte 793 
Posição, cifras de 888-891 (V.1. Códigos) 
Potenciação 434-439 
Potências binárias 59 
Potência sonora 1083 
POTS 1330 
PPOINT 716-720 
P-RAMT (variável no Spectrum) 176 
Precisão 1440 
- do relógio interno 67 
-erros 899 
- especificação no PRINT USING 500 
PRESET 265, 392 
Pressão 
- conversão de medidas (programa) 374-380 
Prestel 1407 
Previsão 1121-1127, 1181-1185 
PRIMEIRO 1345-1346 
PRINT 
- com operadores relacionais 302 
- em LOGO 1342 
- melhoria da apresentação de um texto 332 
- pontuação 13 
- relação com BASE 1366 
- sinais de pontuação 146-152 
- USING 500, 899-900, 1440 
PRINTO 4-10, 150, 502, 1312-1313 
- com impressora 651 
- conversão do TRS-Color para o TRS-80 52 
- em animação gráfica no TRS-80 160 
- uso em animações gráficas 669 
- uso no TRS-80 160 
PRINT AT Il4, 148, 502 
- no Spectrum 867 
- uso em animação gráfica 341-342 
PRINT 691-692, 917, 1254-1256 
- com impressora 651 
Probabilidades 774-780, 1176-1180, 1181-1185 
- cálculo de 277, 774-780 
- distribuição de 777-780, 1176-1177, 
1181-1185, 1454 
- simulação de uma moeda 775-776 
- triângulo de Pascal 277 
- uso em previsão 1121-1127 





- uso em simulação 1121-1127, 1176-1180, 
1181-1185 

Problemas, resolução de 873, 1301-1305 
Procedimentais, linguagens 1290 
Procedimentos 1223 

-em LOGO 1287, 1319-1320 

- linguagens 1290 

- PASCAL 1436 
Processador, registro de (UCP) 112 
Processamento de imagens 1286, 1470 
Processamento de textos 
- acentuação em português 280, 1431 
apresentação de um texto 332 

- cartas 

mala direta 1384-1385 
programa de impressão 17-20 
- comparação entre editores 580 
- editor de textos (programa) S76-S80, 
586-591, 614-620 

- funções 245-246 

- pacotes aplicativos 1381-1385 

- substituição de palavras 1403 
Processos 








- controle de 1321-1325 
- de Bernoulli 1176 
- de Poisson 1177 
PRODUCT 1343 
Professor de Datilografia (programa) 253-259, 
276-280, 281-286, 328-333 
PROG 175, 1340 
- na proteção de programas 550 
PROGRAM 1438 
Programa, área de (memória) 175-179 
Programação (V.t. Técnicas de programação) 
- Assembler V. Assembler 
- características da impressora 652 
uso do CHRS 1442-1445 
- cursor no TRS-80 1413 
- de arquivos 687-692, 1252-1256 
- de blocos gráficos 406-413 
- de cenários 
em Avalanche 824-833 
- de jogos V. Jogos 
- desenvolvimento de novas linguagens 1346 
- em código de máquina  V. Código de máquina 
- estruturada 221-225 
PASCAL 1436 
repercussão sobre velocidade 931 
- ferramentas 
extensão do BASIC (Spectrum) 1281-1283 
indexador de programas (Spectrum) 
1461-1463 
- gráfica V. CIRCLE, DRAW, Gráficos, 
LINE, OT, PL, PSET, SET etc. 
- heurística 905 
- linguagens 1288-1291 
- lógica 301-305 
- LOGO V. LOGO 
- PASCAL V. PASCAL 
- sintetizadores de voz 448 
- técnicas V. Técnicas de programação 
- top-down 222 
Programa-fonte 1437 
Programa-objeto 1437 
Programas 
- armazenagem em BASIC 1101-1107 
- autocarregamento 549-550 
- auto-execução 550 
- combinação de 456-460 
- comentários em 207 








NUDE O O A E O 


- compactador para programas BASIC 
(TRS-Color) 536-540 
- documentação de 207 
- edição de 412 
- encadeamento de 456-460 
- indexador de programas (Spectrum) 1461-1463 
- melhoria da velocidade de montagem 1244 
- no Spectrum 240, 250-252, 300, 311-315, 
381-387, 402-403, 441-445 (V.t. Erros) 
- organização em memória 513, 1101-1107 
- vantagens da criptografia 1094 
Projeção 628-633, 641-647 
Projeto Assistido por Computador (V.t, 
Desenho Ausxiliado por Computador) 
- aplicações 1096, 1367-1371, 1386-1390 
- editor gráfico (programa) 1021-1026 
- gestão de projetos 1451-1460 
cálculo estatístico de tempos 1455 
PROLOG 1288, 1291, 1314, 1316 
Prontidão, mensagem de 162 
Proteção 
- alarme antiladrões 1322 
- de programas S48-551 
Protocolo de comunicação 1406 
PR$ 650 
PSET 86-87, 18, 265, 345, 391 
Pseudo-parâmetro 609 
PSG 1013 
PSHB 219 
p-System 1438-1439, 1450 
PULS 219 
PUSH 214 
PUT 
- desenho de sprites 189, 373, 812 
- uso em gráficos 104, 107, 353, 478-480, 
535-536 
PUT SPRITE 373, 812 


Quadrado, lei do 1063 
Quadrados, comparação de (programa) 436-439 
Quadriculado (gráfico) 345 
Quadros de avisos 562, 1200, 1404-1407 

- caixa postal 1407 
Qualidade carta 1385 
Quarta geração, linguagens de 1291, 1468 
Quebra-cabeças 1301-1305 
Queda de objetos 

- cálculo do tempo (programa) 439-440 
QuickBASIC 1291 
Quicksort (técnica de ordenação) 740 
QWERTY 276-280 








- conversão de graus em 334-336 
Raios catódicos, tubo de 852 
Raiz quadrada 439-440 
- em LOGO 1344 
RAM 174-175 
RAMTOP 
- no Spectrum 88, 176, 1340 
- no TRS-Color 112 
-no TRS-80 178 
-no ZX-81 90, 177 
RANDOM 13 
Randômicos, arquivos V. Arquivos 
Randômicos, números V. Aleatórios, 
números 
RANDOMIZE 13, 1344 
- com USR (Sinclair) 94, 320, 1248 
Raposa e os Gansos, A (jogo) 872-875, 
9OI-905, 948-954 
Raquete eletrônica 288 
Rastreamento 381-387 
Razão de crescimento 1064 
READ 128-133 
- cuidados na digitação de DATA 860 
- em arquivos 692 
- em PASCAL 1438 
- tipos de erro 312313 
Recordes 64-66 
Recursão 1221-1227 
- em LOGO 1330-1331 
- uso em fractais 1358 
Rede MIDI 1306-1310 
Rede PERT 1451-1460 
Redes de computadores 561-564, 1200, 1407 
- quadros de avisos 1404-1407 
Redução de dados 1323-1324 
Referências cruzadas (programa) 1461-1463 
Reflexão 673-678 
Registros 
- banco de dados 69, 1464-1466 
- de indexação (UCP) 110 
- de página direta 178, 199 
- internos da UCP 109-10 
- modificação 82-83 
- processador 112 
- status 112 
Regra da mão direita 154 
Regulação 1322-1323 
Relacional, modelo 75, 1468 
Relatórios 1469 


Relógio 
- animação 354-358 
- em Assembler 658-659 
- interno 67 
efeito de SAVE e LOAD 659 
- no Spectrum (rotina) 1248 
REM 
- como eliminar (programa) 536-540 
- como utilizar 207 
- efeitos sobre a velocidade de execução 932 
- eliminação para encurtar programas 141 
- uso na depuração de erros em programas 312 
- uso na programação em código de 
máquina 90 
REMAINDER 1344 
RENAME 940 
Renumeração de linhas 
- e o comando MERGE 459 
- rotina para o Spectrum 1281-1283 
REPEAT 1287, 1320 
REPEAT...UNTIL 225, 1447-1448 


Repetição 
-em BASIC 21-27 
- em LOGO 1330-1331 
- em PASCAL 1447-1448 
- em programação estruturada. 224-225 
REPRODUZA 1344 
RESET 1312 
RESET (tecla) 16, 551 
- em programação Assembler 219 
- no TR$-Color 1251 
Resistência do ar (simulação) 783 
Resolução de problemas 873, 1301-1305 
Resolução gráfica 114, 120, 851-854 
- canetas ópticas 928 
- no Apple e no TK-2000 116 
- no Spectrum 114 
- no ZX-81 116, 320 
- programa de teste 1257-1258 
Ressonância (simulação) 1165-1166 
RESTO 1344 
RESTORE 130, 132-133 
RESUME 444 
RET 215, 217 
- no Spectrum 251 
Retas V. Gráficos 
Retroalimentação 1323 
RETURN (tecla) 364 
RGB 854 
Rifle óptico 926 
RIGHT 1318 
RIGHTS 244, 703, 1214 
Rígido, disco V. Disco 
Ritmo 744 
RND 11-16, 42-43, 1040, 1126 
- em efeitos gráficos 23-25 
RO 180 
Robôs 1284-1287, 1322 
Rolamento de tela 442 
- programa em Assembler 213-219 
Roldanas 984-986 
Roll-over 989 
ROM 174-175 
- Autostart (Apple e TK-2000) 1249 
- gráficos 
no MSX 553-555 
no Spectrum 640, 661 
no TK-2000 734-737 
no TRS-BO 1413 
- resseleção no TK-2000 180 
ROT 318 
Rotação 
- curvas cônicas 805-807 
- geração de gráficos 1194-1199 
ROTATE 116 
ROTATE (instrução em código de máquina) 556 
Rotinas de máquina V. Código de máquina 
Rótulos 197 
ROUND 1344 
RRCA 556 
RS-232C, padrão 525, 878, 1200, 1311 
- uso com mouse 1 
RTS 
- no 6502 220 
- no 6809 219 
- no Spectrum 251 
Ruídos (V.t. Efeitos sonoros) 
- efeitos no Apple e no TK-2000 1027 
- no TRS-80 1032-1033 
- técnicas de programação em jogos 168-173 
RUN 11, 940 





Saída, área de (memória) 180 
Saint-Cyr, cifra de 890-891 (V.1. Códigos) 
Sapo (animação gráfica) 342-348 
SAVE 910-911, 1255 
- com gravador cassete S4 
- efeito sobre relógio interno 659 
- em LOGO 1329 
- programas em Assembler 252 
SCALE 116, 318 
SCREEN 
- no MSX 119, 268, BO8, 1249 
uso com sprites 189 
- no TRS-Color 86-87, 118, 392, 506 
SCRN 716-720 
Serolling 
- horizontal 828-829, 832 
- programa em código de máquina 94-95 
SDF 1467 
SE...ENTÃO (LOGO) 1331 
Segmentos, gráficos de 634-639 
Segurança 
- alarme antiladrões 1322 
- cuidados com fitas e discos 488 
- disquetes 911 
- redes de telecomunicações 564 
- técnicas de proteção de programas 548-551 
Seleção 
- canetas ópticas 928-929 
- computadores para processamento de 
textos 1385 
- de memória 180 
- dispositivos de memória auxiliar 876-880 
- impressoras para processamento de 
textos 1385 
- vídeos para microcomputadores 854 
Selos, o vendedor de (programa) 1303-1304 
SEMPRIMEIRO 1345-1346 
SEMÚLTIMO 1345-1346 
Seno V. SIN 
Senhas 888-893, 1091-1095, 1260 
- entrada (programa) 166-167, 888-893, 
1091-1095, 1260 
- jogo (programa) 1139-1140 
- por deslocamento de código 
(programa) 363-366 
Senóides, curvas 1163-1164 
Sensibilidade 
- canetas ópticas 926 
Sensores 967, 1322, 1324 
SENTENÇA 1346 
SENTENCE 1346 
V. Seriais 





Seqiiências alfanuméricas V, Cordões 
Seqiiências de escape 1442-1443 
Seriais 

- acesso a fitas 878 

- arquivos 687, 1467 

- comunicação 1200 

- interfaces 525 (V.t. R$-232C) 

- pesquisa 933, 1465 
Séries matemáticas 1067-1068 
Serra Pelada (jogo) 662-668, 681-686 


Servomecanismo 1323 
Servomotores 1286, 1324 
SET 1312 
- conversão do TRS-Color para o TRS-80 52 
Setores 879, 908, 1217 
SGBD V. Banco de dados 
Shell, ordenação 471-473 
Shell-Metzner, ordenação 473 
SHIFT 556 
SHOWTURTLE 1318, 1329 
Simbólicos, modelos 1176 
Símbolos (V.r. Caracteres) 
- gráficos de teclado 
no MSX 553-555 
no Spectrum 640, 661 
no TK-2000 734-737 
- operações aritméticas 14 
Simetria 1372-1374 
SIMULA 1290 
Simulação 1121-1127 
- alavanca 982-984 
- aleatória 1040, 1166, 1176-1180, 1181-1185 
- alunissagem 821-823 
- atrito 673 
- balística 766-773, 781-787, 1161-1163 
-bar 1181-1185 
- bomba de combustível 96-98 
- bomba moto-contínua 1143-1145 
- caos 1166 
- colônia de bactérias 961-963 
- cores em vídeo monocromático 800 
- crescimento 1061-1068, 1166-1167 
Jogo da Vida 961-963 
- curvas envoltórias 1161-1163 
- dinâmica populacional 1061-1068 
Jogo da Vida 961-963 
- elevador hidráulico 986-987 
- função INKEY$ 
no Apple 167, 266 
no TK-2000 167 
- jogos econômicos 662-668, 681-686 
- lançamentos de uma moeda 775-776 
- LINE INPUT 1259-1260 
- loteria esportiva 1121-1127 
- mecânica 981-987 
- microscópio eletrônico 1164-1165 
- modelos aleatórios 1176-1180, 1181-1185 
- movimento aleatório 1166 
- órbitas 781-787 
- polias 984-986 
- populações de coelhos 1065-1067 
- populações de peixes 1166-1167 
- reflexões ópticas 1164 
- relógio 354-358, 658-659 
- reprodução de bactérias 961-963 
- ressonância 1165-1166 
- sistemas dinâmicos 772 (V.t. Cinemática) 
- sprites no TRS-80 627, 660, 669 
- STRINGS no Spectrum 661 
- trajetória de objetos 670-678, 766-773, 
781-787 
- vôo V. Simulador de vôo 
Simulador de vôo (programa) 592-596, 601-607, 
653.657 
SIN 
- desenho de uma espiral 359 
- em LOGO 1344 
- em modelos cinemáticos 771 
- para desenhar circulo 116, 118 
- uso em curvas cônicas 802 


- uso em gráficos 337-340, 354-360 
Sinalizadores 110 
- fim de arquivo 1256 
- UCP 110 
Sintaxe, diagrama de 1446 
Sintaxe, erro de 312-313 
Sintetizador de voz 446-448, 963 
- em robôs 1285 
Sintetizador musical 1306-1310, 1400 
Sirene (TRS-Color) 173 
Sistema binário 37-39 
Sistema de desenvolvimento 1325 
Sistema de equações lineares 1304-1305 
Sistema gerenciador de bancos de dados 75, 
706-711, 1464-1469 
Sistema hexadecimal 56-60 
Sistema octal 60 
Sistema operacional 880, 1246-1251 
- acesso direto em BASIC 1246-1251 
- de discos V. DOS 
- formatação 908, 1217 
- programa assistente 936-940 
- rotinas do 1246-1251 
Sistemas de controle 1321-1325 
Sistemas de numeração 34-40 
- hexadecimal 56-57 
- modelos 36 
- octal 60 
Sistema solar (simulação) 786-787 
SLOW (ZX-B1) 11 
SMALLTALK 1000, 1288-1291 
SNOBOL 1288, 1291, 1316 
Snooker 677 
Soft-sectoring 908 
Sólidos de revolução 1194-1199 
Som (V.t. BEEP, Efeitos sonoros, Música, 
Ruídos, SOUND) 
- análise 1081-1085 
- digitalização 1081-1085 
- editor musical (programa) 1398-1400, 
1408-1411, 1421-1425 
- presença em monitores de vídeo 854 
- produção de efeitos naturais 560 
- programação em Assembler 788-795 
Apple é TK-2000 712-714 
no Spectrum 556-560 
- programação em BASIC 32, 168-170, 265, 
721-727, 7141-747, 1009-1015 
compressão de melodias 1201-1207 
no Apple e no TK-2000 1027 
no TRS-80 1032-1033 
- som digital 743 
Soma cumulativa 1349 
Soma de verificação 1277-1278 
Soma em binário 37-39 
Sombreamento 115, 1394-1395 
- no Spectrum 388-389 
Sorteio 
- comandos em BASIC V. Aleatórios, números 
- moedas 775-776 
SOUND 22, 725-727 
- efeito sobre relógio interno 659 
- no MSX 170-172, 1013 
- no Spectrum 1168-170, 556-560 
- no TK-2000 168-170, 714 
- no TRS-Color 172-173 
Spectrum 
- acionadores de disquetes 907-908 
- áreas da memória 175 
- Assembler (programa) 248-252 













































- atributos de tela 716-720 
- auto-repetição 265, 1248 
- caracteres definidos pelo usuário 122, 
341-347, 529 
- CIRCLE 115, 232 
- círculos (desenho) 232 
- CODE 252 
- códigos de controle 269 
- compilador PASCAL 1438-1439 
- conversão de decimal para 
hexadecimal 1281-1283 
- cores 115, 389-390, 424 
- desenho com DRAW 114, 232-233, 1248 
- efeitos sonoros 168-170, 556-560 
- efeitos visuais 867 
- extensão do BASIC 1281-1283 
- função CHRS 123, 155 
- indexador de programas 1461-1463 
- interpretador LOGO 1317 
- Joysticks 290 
- manipulação de cordões 1214 
- organização do teclado 988-989 
- rastreamento de programas 381-387 
- relógio (programa em Assembler) 658-659 
- rotina de apagamento 1281-1283 
- símbolos gráficos de teclado 640, 661 
- sprites 122 
- técnicas de programação 867, 1340 
- utilização da área reservada da tela 867 
- variáveis do sistema 1248 
CHANS 175 
SPRITE OFF 191 
SPRITE ON 191 
Sprites 1132 
- bancos de 808-811 
- como funcionam 1427 
- criação 189, 808-814 
- definição 107, 188-189 
- em Avalanche 818-820 
- em LOGO 1426-1427 
- modificação 373 
- movimentação com joystick 350-351 
-no MSX 188-191 
- programação em Assembler 818-820 
- simulação no TRS-80 627, 660, 669 
- técnica de planejamento 190 
SPRITE STOP 191 
SQR 77, 439-440 
SQRT 1344 
Squash 677 
STA 199, 219-220 
Start bit 1406 
Status, registro de (UCP) 112 
STEP (V.t. FOR...NEXT) 
- definição 22 
-em PASCAL 1448 
Stepper, motor 1324 
STICK 350-351, 655 
STKBOT 
- variável de sistema 
no Spectrum 176 
no ZX-81 177 
STKEND (variável de sistema) 176-177 
- uso na proteção de programas 5$1 
STOP (comando) 312-313 
STOP (tecla) 16, 78-79, 442, 551, 624, 626 
Stop bit 1406 
STOP OFF 626 
STOP ON 626 
STRS 237, 245, 703, 1214 





- organização no TRS-80 1412 
- seleção para processamento de textos 1385 


STRINGS 62, 245, 703, 1214 
- emprego no PRINT USING 500 





- simulação - símbolos gráficos de (V.r. Caracteres) 
no Spectrum 661 no MSX 553-555 
no TK-2000 737 no Spectrum 640, 661 


no TK-2000 734-737 
no TRS-80 627, 660, 669, 1413 
- varredura (programa) 991-993 
Teclas 
- auto-repetição 726 
no Spectrum 265 
no TRS-Color 265, 1248, 1251 
no TRS-80 1313, 1412-1413 
- BREAK 16, 78-79, 442, 559 
desativação (TRS-80) 1313 
- CODE 553-555 
- códigos de teclado no TK-2000 499 
- comando EDIT 2399-400, 425, 552, 1329 
- como detectar 28-29 
- CONTROL 260, 267, 551, 624 
no TK-2000 734-737 
- CONTROL-BREAK 16 
- CONTROL-C 16, 78-79, 551 
- controle por pressões múltiplas 988-993 
- CONTROL-RESET 16 
- CONTROL-STOP 16 
- escolha para um jogo 31 
- identificação por PEEK no TRS-BO 1413 
- programáveis 655 
MSX 621.626 
- tabela de endereços no TRS-Color 267 
Técnicas de programação 
- aceleração de entrada de dados 163-164 
- aperfeiçoamento de gráficos 639 
- arquivos 687-692, 1252-1256 
- arredondamento 1347 
- aumento da velocidade de programas 
BASIC 930-935 
- cálculos com datas 1279-1280 
- caracteres definidos pelo usuário 406-413 
- combinação de programas 456-460 
- compactação de programas 536 
- compressão de textos 1332-1339, 1414-1418, 
1428-1435 
- controle por teclas múltiplas 988-993 
- criptografia 888-893 
- depuração de programas longos 240, 251, 
300, 403 
- depuração no Spectrum (programa) 381-387 
- documentação com REM 207 
- economia de memória 141, 269 
- edição de linhas 399-400, 412 
- elaboração de menus 504-506, 623-624 
- encurtando programas 141 
- formatação de telas 501-506 
- identificação de arquivos 488 
- localização e depuração de erros 311-315 
- manipulação de bits em BASIC 1378-1380 
- no Spectrum: 867, 1340 
- no TRS-80 912, 947, 994, 1312-1313, 
1412-1413 
- operações com cordões 241-247, 
1214-1215, 1401-1403 


- Uso com caracteres gráficos 
no MSX 553-555 
no TRS-80 627 
- uso com códigos de controle 260 
- uso em blocos gráficos 669 
Strings V. Cordões 
Stub 599 
Subcordões V. Cordões 
Submarino (animação) 316-318 
Sub-rotinas (V.t. GOSUB e ON... GOSUB) 
- acesso aos endereços do sistema 
operacional 1248 
- chamadas múltiplas 80 
- em BASIC 79-80 
- influência sobre velocidade de execução 932 
- pilha da UCP 110 
- pilha no Spectrum 176. 
- pilha no ZX-81 177 
- recursivas 1221-1227 
Substituição 
- em processadores de textos 1382 
- retardada (ordenação) 738-739 
- subcordões 245-246, 1403 
Subtração em binário 37-39 
SUBTRACT 1343 
Sufixa, notação 1343 
Sufixo 908-910 
SUM 1343 


TAB 146-152, 501-506 

- tecla 367 

- uso com impressora 650-652 
Tabela de códigos ASCH 263 
Tabela de figuras 316-318 
Tabela de nomes (MSX) 268, 1361-1363 
Tabelas de forma 237 
Tabelas-verdade 303-304 
Tablete digitalizador 289, 964-968 (V.1, 
Desenho Ausxiliado por Computador) 
Tabuada (jogo) 14-16 
Tabulação 

- com códigos de controle 367 

- na formatação de telas 501-506 
Tabuleiro, jogos de 756-760, 796800 
Tanque de guerra (animação) 342-346 
Tape-loop 877-878, 908 
TARTARUGA 1318 
Tartaruga 

- LOGO 1316, 1326 

- mecânica 1286-1287 
Taxas de transmissão 877 


Teclado - ordenação 468-473, 738-740 
- alteração do retardo do teclado - prevenção de erros 441-445 
(Spectrum) 1248 - programação estruturada 221-225, 292-295 
- buffer de 990 - proteção de programas S48-551 


- recursão 1221-1227 


- códigos de (MSX) 499 
- inteligente 280 
- musical 725-727, 741-747 





- utilização do código ASCII 361-366 











- utilização do GOTO 78-79 
Tela 
- acentuação em português 280 
- armazenagem em cordões 
alfanuméricos 947, 994 
- armazenagem em disco ou fita 994 
- atributos de 515, 716-720, 814 
- borda decorativa (programa) 245-246 
- códigos de controle no TRS-80 260 
- condições de visualização 864 
- cópia com PEEK e POKE (TRS-80) 947 
- delimitação com POKE no Apple 266 
- detecção de pontos e caracteres 715-720 
- edição em tela completa 1313 
- efeito multicor no Spectrum 867 
- endereços no MSX 1249 
- escrita com POKE 263-264 
- gráfica 
colocação de textos no Apple Il 237 
comparação entre TV e monitor 8$1-854 
conversão de coordenadas 52 
cópia na impressora 650, 1441-1445 
escrita em alta resolução (Apple) 534-535 
inversão no ZX-81 319-320 
melhorando a nitidez 700 
no Apple e no TK-2000 116 
no Spectrum 114 
no TRS-Color 86-87, 178 
pontos fora da tela 31, 632 
rotina de desenho de letras (TRS-Color) 760 
- organização da memória no MSX 531-533 
- programa de deslocamento 213-219 
- proteção da última linha (Spectrum) 867 
- rolamento 442 
- texto 
formatação de entrada 1396-1397 
formatação de saída 501-506 
janelas 580 
organização no MSX 268 
organização no TRS-Color 178 
programação de caracteres 1361-1366 
rotina de preenchimento 973 
rotinas de controle no Apple 503 
técnicas de organização 146-152 
Telecompras 562 
Telemática 561-564, 1407 
- sistemas de quadros de avisos 1404-1407 
- videotexto 561-562, 1200, 1406-1407 
Teletex 1407 
Teletexto 562, 1407 
Televisor V. TV 
Telex 1407 
Temperatura 
- conversão de medidas (programa) 374-380 
Tempo 
- comandos de acesso 15, 65-66 
- contagem em jogos 47-52, 61-67 
- controle 265 
- diminuição do tempo de execução de 
programas 930-935 
- em projetos PERT 1454 
- limite máximo para marcação 67 
- queda de objetos 439-440 
- retardo 
alteração no Spectrum 1248 
com laços FOR...NEXT 22 
programação em Assembler 748-755 
Tempo de reação (programa) 67 
Teorema binomial 780 
Teoria das Catástrofes 1163-1164 


Térmicas, impressoras 524 
Terminais de dados 1406 
Teste 

- de gravação (programa) 53 

- programa de teste para vídeo 1257-1258 
TEXT 116 
Textos 

- acentuação em português 280, 1431 

- apresentação 332 

- arquivos 688 

- impressão de cartas (programa) 17-20 

- processamento de V. Processamento de textos 
TER 199 
THEN V. JF... THEN 
Timbre 

- modificação no MSX 
TIME 15 
TIMER 65.66 
Tiny-PASCAL 1436 
Tipo, declarações de 1438 
Tiro ao Pato (programa) 368-373 
Tiros (efeitos sonoros) 

- no Apple e no TK-2000 1027 

- no TRS-80 1032-1033 
Titulação 639 

- elaboração de letras (programa) 913-920, 

921-925 

- em planilhas eletrônicas 1156 

- programação em Assembler 748-755 
TK-2000 

- acionadores de disquetes 907 

- áreas da memória 180 

- Autostart ROM 1249 

- círculos (desenho) 117-118 

- códigos de controle 269 
digos de teclado 499 

- COLOR 116 

- desenho com DRAW 116, 237, 318, 343-344 

- diferenças do CALL com Apple 732 

- Disassembler 714 

- editor gráfico (programa) 846-850 

- efeitos sonoros 168-170, 712-714, 1027 

- função CHRS 734-737 

- gravação de dados em fita cassete 

- Joysticks 291 

- míni-Assembler 714 

- monitor 714 

- organização do teclado 989-990 

- símbolos gráficos de teclado 734-737 

- simulação da função INKEYS 496-499 
TO 


1013 





1254 


- em LOGO 1287, 1319 
- utilização em funções alfanuméricas 1214 
- utilização em gráficos 661 
Tonalidade 741 
Toolkit (programa) 1281-1283 
Top-down, programação 222 
Toro 693-700 (V.1. Gráficos) 
Torres de Hanói, As (programa) 1226-1227 
Touchpad 289-290 
Trabalho, área de (memória) 176-180 
Traçador gráfico 968 
Traçadores de régua V. Tablete digitalizador 
TRACE 381 
Trackerball 289-290 
Tradução manual do Assembler 196-200, 213-219 
Trajetórias V. Animação gráfica e Simulação 
Transcrição musical 1423 
Transdata 563 
Transferência 





- de arquivos entre computadores 1404 
- tela 947, 994 
Transformação de coordenadas 3-D 644-647, 
1391-1395 
Transformada de Fourier 1083 
Transmissão em fitas magnéticas 877 
Trator 525 (V.t. Impressoras) 
“Três Ratinhos Cegos, Os" (melodia) 744, 
1012-1013 
Triângulos 
- relações 337-338 
Tridimensionais, gráficos 581-585, 628-633, 
6637-638, 641-647, 693-700, 1194-1199, 1391-1395 
Trigonometria 
- Uso em gráficos 334-340, 354-360 
Trilhas 879, 908, 1217 
TROFF 300, 403 
TRON 300, 381, 403 
TRS-Color 
- acionadores de disquetes 906 
- animação gráfica 478-480 
- Assembler (errata) 794 
- Assembler (programa) 296-300 
- auto-repetição 265, 1248, 125] 
no teclado musical 726 
- caracteres definidos pelo usuário 478-480, 
5353-536 
- CIRCLE 118-119, 234-235 
- CLEAR 300 
- “coleta de lixo” 
- COLOR 118, 393 
- comandos de edição 399-400 
- compactador de programas BASIC 
(programa) 536-540 
- compilador PASCAL 1438-1439 
- conversão de programas para o TRS-80 52 
- desenho com DRAW 234-235 
- editor de discos (programa) 1216-1220 
- efeitos sonoros 172-173 
- extensão do BASIC 597-600 
terpretador LOGO 1317 
- joysticks 291 
- organização do teclado 989 
- processador interno (6809) 793 
- programação gráfica 86-87, 118, 393 
- rotina de desenho de letras 760 
- tabela do teclado 267 
TRS-80 
- acionadores de disquetes 906 
- animação gráfica 160, 669 
- áreas da memória 178 
- Assembler (programa) 679-680 
- auto-repetição 1313, 1412-1413 
- caracteres definidos pelo usuário 627, 
660, 669 
- CLEAR 90 
- códigos de controle 260 
- códigos gráficos 627, 660, 669 
- comandos de edição 399-400 
- compilador PASCAL 1438-1439 
- conversão de programas do TRS-Color 52 
- eursor de texto 260 
- despejo de tela com JKL 1442 
- efeitos sonoros 170, 1032-1033 
- função CHRS 160, 627, 660, 669 
- Joysticks 291 
- programação gráfica 120, 160 
- sprites 160, 627, 660, 669 
- técnicas de programação 912, 947, 994, 
1312-1313, 1412-1413 


1251 

















Truques V, Técnicas de programação 
Tubo de raios catódicos 852 
Tudo-ou-nada, distribuição 1454 
Turbo-PASCAL 1438-1439, 1450 
TV 


- comparação com monitor 851-854 
- programa de testes 1257-1258 


UART 525 

UCP 109-112 

UCSD PASCAL 1436, 1450 

UDG V. Caracteres definidos pelo usuário 
ÚLTIMO 1345-1346 

Unidade algorítmica 1436 
Uniforme, distribuição 1180 
UNLOCK 911, 940 

UNPLOT [14 

Uploading 1404 
USEBORRACHA 1319 
USELÁPIS 1319 

USENADA 1318 

USING 500, 899-900, 1440 

- com impressora 651 

USR 94-95, 217, 973 

- efeitos sonoros no TRS-80 1032 
- na extensão da linguagem BASIC 599 
-no MSX 405 

- no Spectrum 1248 

Usuário, área do (memória) 180 





VAL 244-245, 900, 1214 
Valores monetários 
- formatação de 1440 
VAR 1438 
Variáveis 
- alfanuméricas 13, 99-100 
armazenagem de 1101-1107, 1215 
armazenagem de tela 947, 994 
dimensionadas 194-195 
- área de (memória) 175-180 
- booleanas 1448 
- de sistema 1248 
no Spectrum 175-177, 1340 
no TRS-Color 177-178 
no ZX-81 177 
uso em proteção de programas 550 
- dimensionamento 192 
- em BASIC 12, 96-100 
- em LOGO 1326-1329 
-em PASCAL 1448 
- emprego correto 26 
- e os comandos READ e DATA 128 
- indexadas 192-195, 201-207 
armazenagem 1101-1107 
influência na velocidade de execução 932 
icialização em Avalanche 995-999 











- lista do jogo de aventura 397-398 
- localização com VARPTR 972 
- nomes 96 
- numéricas 96-97 
armazenagem 1101-1107 
armazenagem em BASIC 894-900 
- número de variáveis definíveis 1126 
VARPTR 898, 947, 1378 
- uso em rotinas de código de máquina 972-973 
Varredura 
- teclado 988, 991-993 
- vídeo 852 
VARS 175 
Vazios, cordões 100 
VDP 808, 1249 
Velocidade 
- acesso a discos rígidos 1133 
- como melhorar no simulador de vôo 607 
- comparação entre BASIC e código 
de máquina 925, 930 
- desenhos em perspectiva 699 
- digitação 257, 286 
influência do roll-over 989 
- montagem de programas longos 
(Assembler) 1244 
- no TRS-Color 266 
- técnicas para aumento da 930-935 
efeito da REM 932 
efeito dos espaços 932 
- trajetória de uma bola 674-677 
- transmissão entre computadores 1405 
Vendedor de selos 1303-1304 
Verificação 
- de dados 1465 
- de datas 1280, 1401 
- de disquetes 55, 910-911, 940 
- soma 1277-1278 
VERIFY 55, 910-911, 940 
Vertical, movimento 766-773, 781-787 
Vida, Jogo da (programa) 961-963 
Vídeo (V.t. Tela) 
- câmara de 1470 
- composto 853 
- programa de teste 1257-1258 
- televisor versus monitor 851-854 
uso do fósforo 854 
Videotex 1407 
Videotexto 561-562, 1200, 1406-1407 
Vidicon 1470 
Vinte-e-um (programa) 426-433, 449-455, 461-467 
Visão 
- persistência visual e vídeos 853 
Visuais, efeitos V. Efeitos visuais 
Visualização 864 
VLIN 116 
Volume 
- conversão de medidas (programa) 374-380 
- simulação de crescimento 1063 
Vôo, simulador de (programa) V. Simulador 
de vôo 
Voz 
- reconhecimento 1311 
- sintetizadores 446-448, 963 
em robôs 1285 
Vozes (música) 1009 
VPEEK 179, 268, 517, 531-533, 1132, 1361-1366 
- na criação de sprites 808-814 
VPOKE 179, 217, 268, 517, 531-533, 1132, 
1361-1366 
- na criação de sprites 808-814 

















































- utilização em blocos gráficos 546 
VRAM 531-533, 808, 812, 1132, 1361-1366 
VTAB 10, 152, 503 

- com impressora 650 
VTRANSF (programa) 947 

- armazenagem de tela 994 


Wafadrive 877, 908 
WAIT 1286 


WAN 1200, 1407 
WARS (variável de sistema no ZX-81) 177 
WHILE...DO 224-225, 1447-1448 

Winchester (discos) V. Disco 

Wireframes 581-585, 628-633, 641-647, 693-700 
- definição 582 

Wirth, Niklaus 1436 

WORD 1344 

Wordwrap 1383 

WORKSP (Spectrum) 176 

WRITE 1254-1256 

- em arquivos 692 

WRITELN 1438 

WYSIWYG 1383 


Xadrez 873 


Yacht (programa) 1234-1240 


2-80 (microprocessador) 11-12 
Zero, sinalizador de 110 
Zodíaco, signos do (programa) 1261-1270 
Zoom gráfico 1049-1055 
ZX-81 

- áreas da memória 177 

- Assembler 251 

- círculos (desenho) 116 

- CODE 2362-364 

- combinação de programas 458 

- edição de programas 552 

- Joysticks 291 

- manipulação de cordões 1214 

- técnicas de animação gráfica 319-320 


EININ/NIA (GERAL 








Pág. 26 - legenda à esquerda 
Onde se lê: No TK-80X o Caleidoscópio 
Leia-se: No TK-90X, o Caleidoscópio 


Pág. 34 - 1º col. - 4º parágr. 
Onde se lê: 5 + 10 + 200 + 3000 
Leia-se; 5 + 70 + 200 + 3000 


Pág. 53 - 1º col. - 2º parágr. 
Onde se lê: um conector DID 
Leia-se: um conector DIN 


Pág. 56 - título da matéria 
Onde se lê: ARITIMÉTICA 
Leia-se: ARITMÉTICA 


Pág. 60 - 3º col. - quadro 

Onde se lê: O octal tem 8 dígitos: 0, 1, 
2,3,4,5,6,7€e8. 

Leia-se; O octal tem 8 dígitos: 0, 1, 2, 
3,4,5,6e 7. 


Pág. 87 - intertítulo - faixa preta 
EFEITOS DOS BLOCOS GRÁFICOS 


Pág. 245 - 1º col. - 1º e 4º parágr. 
Onde se lê: VAL(=AS$) e VAL(=BS) 
Leia-se; VAL(AS) e VAL(BS) 


Pág. 245 - 1º col. - 4º parágr. 
Onde se lê: B$''45 MARCOS” 
Leia-se: B$='*45 MARCOS” 


Pág. 260 - 1º col. - 5º, 6º, 7º parágr. 
Pág. 260 - 2º col. - 2º parágr. 

Onde se lê: CHRS 

Leia-se: CHR$ 


Pág. 290 - 1º col. - último parágr. 
Pág. 291 - 2º col. - último parágr. 
Onde se lê: comandos GETS 
Leia-se: comandos GET 


Pág. 294 - 1º col. - 2º parágr. 
Onde se lê: poderão ser chocados 
Leia-se: poderão ser checados 


Pág. 301 - 3º col. - 1º parágr. 
Onde se lê: A for menor que o de B 
Leia-se: A for menor ou igual ao de B 


Pág. 327 - 2º col. - 6º parágr. 
Onde se lê: COSUB 
Leia-se: GOSUB 


Pág. 364 - 1º col. - 2º parágr. 
Onde se lê: comandos de remuneração 
Leia-se: comandos de renumeração 


Pág. 366 - 2º col, - 2º parágr. 
Onde se lê: trará 65, o código de B. 
Leia-se: trará 66, o código de B. 


Pág. 398 - 2º col, - 7º parágr. 
Onde se lê: SIS 
Leia-se: S$ 


Pág. 398 - 3º col. - 11º parágr. 
Onde se lê: SIS() 
Leia-se: SS) 


Pág. 444 - quadro - 2º parágr. 

Onde se lê: Os micros das linhas 
TRS-80, TRS-Color, Apple, TK-2000 
e MSX, 

Leia-se: Os micros das linhas TRS-80, 
Apple, TK-2000 e MSX, 


Pág. 501 - 1º col. - 3º parágr. 

Onde se lê: mensagens do tipo “Você 
tem um canhão disponível”. 

Leia-se: mensagens do tipo “VOCE 
TEM | CANHOES DISPONIVEIS”. 


Pág. 561. - 2º col. - 5º parágr. 
Onde se lê: sistemas telemétricos, 
Leia-se: sistemas telemáticos, 


Pág. 564 - 2º col. - 2º parágr. 
Onde se lê: sistemas telemétricos 
Leia-se: sistemas telemáticos 





Pág. 584 - 2º col. - 2º parágr. 
Onde se lê: linhas 5000 e 5180 
Leia-se: linhas 5000 e 5130 


Pág. 609 - 1º col. - 1º parágr. 

Onde se lê: Alguns computadores (Apple, 
TK-2000, MSX e TRS-80) permitem 
dois ou mais parâmetros, enquanto 
outros (TRS-Color), apenas um. 

Leia-se: Alguns computadores (Spectrum, 
MSX e TRS-80) permitem dois ou 
mais parâmetros, enquanto outros 
(Apple, TK-2000 e TRS-Color), ape- 
nas um. 


Pág. 610 - 1º col. - 1º parágr. 
Onde se lê: Xx XxX 
Leia-se: X«X+ X 


Pág. 634 - 1º col. - 3º parágr. 

Onde se lê: Devido à falta de comandos 
gráficos adequados no ZX-81, não 
apresentamos programas para essa 
máquina. 

Leia-se; Devido à falta de comandos 
gráficos adequados no ZX-81 e no 
TRS-80, não apresentamos progra- 
mas para essas máquinas. 


Pág. 748 - 1º col. - 2º parágr. 
Onde se lê: Keytone Kappers 
Leia-se: Keystone Kappers 


Pág. 852 - nomenclatura no esquema 
de blocos 

Onde se lê: Detector de visão 

Leia-se: Detector de vídeo 


Pág. 906 - 2º col. - 2º parágr. 
Onde se lê: concectar 
Leia-se: conectar 


Pág. 908 - 1º col. - 2º parágr. 
Onde se lê: Sinclari 
Leia-se: Sinclair 





Pág. 924 - 2º col. - último parágr. 
Onde se lê: TR-Color 
Leia-se: TRS-Color 


Pág. 932 - 3º col. - 2º parágr. 
Onde se lê: LET A=VAL“100" 
Leia-se: LET A=VAL(“100") 


Pág. 1014 - 1º col. - 1º parágr. 
Onde se lê: artigo da página 816. 
Leia-se: artigo da página 794. 


Pág. 1124 - 2º col. - 3º parágr. 
Onde se lê: John von Newman 
Leia-se: John von Neumann 


Pág. 1180 - 1º col. - fig. 
Onde se lê: Waiting time (secs) 
Leia-se: Tempo decorrido (segundos) 


Pág. 1260 - 1º col. - 4º parágr. 
Onde se lê: <SCAPE> 
Leia-se: <ESCAPE> 


Pág. 1311 - 3º col. - 1º parágr. 
Onde se lê: saftware 
Leia-se: software 


Pág. 1320 - quadro 
Onde se lê: FORWARD D: 
Leia-se: FORWARD :D 


Pág. 1329 - 3º col. - 1º parágr. 
Onde se lê: <CIRL><C> 
Leia-se: <CTRL><C> 


Pág. 1349 - 3º col. - 6º parágr. 
Onde se lê: alistamento 
Leia-se: alisamento 


Pág. 1383 - 3º col. - 2º parágr. 
Pág. 1384 - 3º col. - 1º parágr. 
Pág. 1385 - 2º col. - 2º parágr. 
Onde se lê: WYSWYG 

Leia-se: WYSIWYG 


Pág. 1383 - 3º col. - 2º parágr. 

Onde se lê: (do inglês What You See 
What You Get) 

Leia-se: (do inglês What You See Is 
What You Get) 


Pág. 7-2º col. - 2º parágr. 
Onde se lê: (só vale para o TK-90X): 
Leia-se: (vale para toda a linha Sinclair): 


Pág. 30 - 1º col, - progr. 
Na linha 60, substitua a flecha para 
cima pela letra 1. 


Pág. 32 - 3º col. - progr. 
Na linha 150, substitua a flecha para 
cima pela letra 1. 


Pág. 39 - 1º col. - progr. 

Para funcionar no ZX-81, coloque tu- 
do em maitsculas e troque a linha 130: 
130 PRINT,,,, “OUTRO NUMERO (S/N)?” 


Pág. 41 - 1º col. - progr. 

Para funcionar no ZX-81, coloque 
tudo em maitísculas e faça as seguin- 
tes alterações no programa: 

25 LET T=0 

26 LET C=0 

40 IF N= —99 THEN GOTO 80 
80 PRINT “MEDIA ="":;T/C 

90 STOP 


Pág. 42 - 2º col. - progr. 

Para funcionar no ZX-81, coloque 
tudo em maiúsculas e faça as seguintes 
alterações no programa: 

50 IF G=N THEN GOTO 90 
90 PRINT “MUITO BEM” 
92 PAUSE 100 

94 GOTO 10 


Pág. 43 - 1º col. - 2º progr. 

Para funcionar no ZX-81, mude tu- 
do para maiúsculas e separe as instru- 
ções da linha HO em duas linhas: 

110 LET A$=INKEYS$ 
115 IF A$<>“S" AND A$<>“N” 
THEN GOTO 110 


Pág. 77 - 1º col. - 2º progr. 
Para funcionar no ZX-81, divida a li- 
nha 15 em: 
15 INPUT A 
16 INPUT B 


Pág. 78 - 2º col. - progr. 

Para funcionar no ZX-81, forme no- 
vas linhas com os comandos separados 
por dois pontos (GOTO 170) nas linhas 
130, 140 e 150, 


Pág. 94 - 2º col. - 4º parágr. 

Onde se lê: No ZX-81 a tecla RAMD 
fornece RAND na tela). 

Leia-se: No ZX-81 a tecla RAND pode 
ser usada para essa finalidade). 


Pág. 244 - 2º col, - 1º progr. 

O programa também funciona para 
o ZX-81. Apenas coloque o GOTO 10 
da linha 30 em uma linha separada. 


Pág. 245 - 2º col. - progr. 
O programa também funciona para 
o ZX-81, 


Pág. 334 - 3º col. - progr. 
O logotipo não se aplica a este 
programa. 


Pág. 1214 - 2? col. 
Onde se lê: XS(LEN X$-N TO+1) 
Leia-se: XS(LEN X$-N TO) 


Pág. 30 - 1º col. - progr. 
Na linha 60, substitua a flecha para 
cima pela letra 1. 


Pág. 32 - 3º col. - progr. 
Na linha 150, substitua a flecha para 
cima pela letra 1. 


Pág. 46 - 1º col. - progr. 
Acrescente a linha 90: 
90 DIM a$(32) 


Pág. 94 - 1º col. - 3º progr. 
Pág. 100 - 1º col. - 3º progr. 

O logotipo não se aplica a este 
programa. 


Pág. 136 - 3º col. - progr. 

Corrija a linha 200: 
200 CLS:PRINT BRIGHT v;PAPER 2; 
INK 6; AT 2,4;*MENU PRINCIPAL” 


Pág. 169 - 1º col. - 2º parágr. 

Acrescente: 

No micro nacional TK-90X, o co- 
mando BEEP recebeu o nome de 
SOUND. Portanto, se você tem um 
TK-90X, substitua todas as ocorrências 
do comando BEEP pelo comando 
SOUND nas linhas 8010 (programas da 
página 169, 1? e 3º colunas), 8010 e 8015 
(programa da página 170, 1º coluna) e 
400 (página 170, 2º coluna). 


Pág. 213 - 3º col. - 1º parágr. 

Onde se lê: Os comandos ld de, 16384 
eld hi, 1,16385 

Leia-se: Os comandos Id de, 16384 e Id 
hi, 16385 


Pág. 248 - 2º col. - progr. 

Na 4º linha da linha 5120, 
onde se lê: “Id” ,64,6, 
leia-se: “Id” ,64,22, 


Pág. 251 - 1? col. - progr. 
Acrescente ao final da linha 6110: 
:GOSUB 6160 
Na linha 6150, 
onde se lê: GOSUB 6260 
leia-se: GOSUB 6160 


Pág. 251 - 2º col. - progr. 
Acrescente a linha: 
9999 STOP 


Pág. 278 - 2º col. - progr. 
Corrija a linha IO10: 
1010 PRINT AT 12,6;S$ 


Pág. 304 - 2º col. - progr. 
O logotipo não se aplica a este 
programa. 


Pág. 309 - 1º col. - 2º progr. 

Corrija as linhas 140 e 145: 
140 DATA “NADAR”, SVESVAZIAR”,6, 
“ACENDER”,7, “DESISTIR” ,8,“LIS 
TAR”,9,ºMATAR”,10,“ATIRAR”, 
10,ºAJUDAR”,11 
145 DATA “PEGAR” 2ºAPANHAR”, 
2, “CARREGAR”,2,ºCOLOCAR”, 
3,“DEIXAR”,3,ºLARGAR",3,ºPU 
XAR”,4 


Pág. 309 - 2º col. - progr. 
Acrescente a linha 515: 
515 GOTO G(1) 


Pág. 366 - 2º col. - 1º progr. 
O logotipo não se aplica a este 
programa. 


Pág. 640 - 2º col, - 4º parágr. 
Onde se lê: UNK 
Leia-se: INK 


Pág. 824 - 2º col. - progr. 
Corrija a linha 750: 
750 REM org 58155 


Pág. 825 - 3º col. - progr. 
Corrija a linha 40: 

40 DATA 83, 67, 79, 82, 69, 45, 48, 
48, 48, 48, 48, 48, 76, 73, 86, 69, 83, 
45, 53, 71, 65, 77, 69, 32, 79, 86, 69, 
82, 32, 33, 33, 33, 35, 35, 33, 35, 35, 
35, 33, 35, 35, 33, 35, 33, 35, 35, 35, 
35,33, 35,33, 35, 35; 35, 35; 33,35; 
35;-33,. 38,35, 35 


Pág. 867 - 3º col. - progr. 
Corrija a linha 100: 
100 GOSUB 2 
e, na linha 2, substitua GOTO 10 por 
GoTOo 1 


Pág. 902 - 2º col. - progr. 

Corrija a linha 2720: 
2720 LET PF=0:IF 1$='““S” OR I$= 
“s” THEN GOTO 2760 


Pág. 921 - 2º col. - progr. 
Corrija a linha 50: 
50 FOR M=1 TO N(N) 


Pág. 1042 - 2º col. - progr. 
Corrija a linha 2790: 
2790 DATA “cavaleiro”, “sargento 


” , “lanceiros” , “lanceiros” , “arqu 
eiros” , “arqueiros” , “camponeses"” 
+ “camponeses” 


Pág. 1214 - 2º col. 
Onde se lê: XS(LEN X$S-N TO+1) 
Leia-se: XS(LEN X$-N TO) 








Pág. 6 - 3º col. - quadro 

Corrija a 2º linha de códigos 
numéricos: 
Onde se lê: 152 131 190 176 128 
Leia-se: 151 131 191 176 280 





Pág. 24 - 3º col. - progr. 

Para funcionar no TRS-80, substitua 
a linha 8 por: 
8 CLS 


Pág. 30 - 1º col. - 1º progr. 

Corrija a linha 40: 
40 IF K$=““F” THEN M=374 ELSE 
GOTO 30 


Pág. 31 - 2º col. - 4º parágr. 

Onde se lê: O programa para o TRS-80 
funciona de modo idêntico ao pro- 
grama para o TRS-Color. 

Leia-se: O programa para o TRS-80 
funciona de modo idêntico ao pro- 
grama para o TRS-Color. As teclas 
a serem pressionadas, porém, são L 
e R, que comandam, respectivamen- 
te, movimentos à esquerda e à direita. 


Pág. 33 - 3º col. - progr. 

Corrija a linha 150: 
150 IF PO>1022 OR PO<0 THEN 
PO=LP: GOTO 50 


Pág. 62 - 1º col. - progr. 
O logotipo não se aplica a este 
programa. 


Pág. 63 - 2º col. - 3º parágr. 

Onde se lê; programa para o TRS-80 e 
o TR$-Color, 

Leia-se: programa para o TRS-Color, 


Pág. 224 - 1º e 2º col, - progr. 

Acrescente (após o programa): 

O programa indicado funciona ape- 
nas no TRS-Color. Para executá-lo no 
TRS-80, faça as seguintes modificações: 
multiplique por dois todos os números 
depois dos comandos PRINT, nas li- 
nhas 10, 20, 30, 60, 90 e 110; suprima 
as linhas 15 e 120, e inclua a linha: 
95 TIMER = TIMER+0.1 


Pág. 270 a 275 

Todos os programas indicados para 
o TRS-Color também funcionam no 
TRS-80. 


Pág. 322 - 1º col. - 2º progr. 
O programa também pode ser execu- 
tado no TRS-80. 


Pág. 375 - 1º col. - progr. 
O logotipo não se aplica ao programa. 


Pág. 612 - 2º col. - progr. 
Acrescente a linha 35: 
35 PRINT FNTS(I$) 


Pág. 652 - 1º col. - 2º parágr. 
Onde se lê: POST (—2) 
Leia-se: POS (—-2) 


Pág. 702 - 3? col. - progr. 
O logotipo não se aplica ao programa. 


Pág. 932 - quadro - 11º parágr. 
Esta indicação também serve para o 
TRS-80. 


Rae: 
Pág. 
Pág. 
Pág. 
Pág. 
Pág. 
Pág. 
Pág. 


Pág. 1305 - 1º, 2º e 3º col. - progr. 
Os programas para o TRS-Color 
também funcionam no TRS-80. 


Pág. 19 - 2º col. - progr. 

Corrija a linha 430: 
430 RESTORE: FOR J=0 TO N— I:READ 
AS:PRINT& — P,STRINGS(LL — ML, ”); 
SP$;:PRINT& — P,MIDS(AS,2); 
CHR$(13); 


Pág. 31 - 2º col. - 3º parágr. 

Oni se lê; A linha 60 investiga se “L” 
foi pressionada... A linha 70 confe- 
re se “R” foi pressionada... 

Leia-se: A linha 60 investiga se “pr foi 
pressionada... A linha 70 confere se 
“Dr foi pressionada... 


1122 - 1º col. - progr. 
1126 - 3º col. - progr. 
1127 - 2º col. - progr. 
1177 - 3º col. - progr. 
1179 - 2? e 3º col. - progr. 
1180 - 3º col. - progr. 
1184 - 1º col. - progr. 
1303 - 1º col. - progr. 





Pág. 45 - 1º col, - 5º parágr. 

Onde se lê: apenas os das linhas TRS-80 
e MSX 

Leia-se: apenas os das linhas TRS-80, 
TRS-Color e MSX 


Pág. 52 - 3º col. - quadro 
Onde se lê: se N for a locução da tela 
Leia-se: se N for a locação da tela 


Pág. 65 - 1º col. - progr. 

Corrija a linha 420 
420 LET K$=INKEYS:IF K$=*"" 
THEN GOTO 420 





Pág. 90 - 3º « 

Onde se ll imitar a memória em 
$H3680... que se reserve memória 
só até $H3680... só poderá usar o 
CLEAR até $H1E80. 


4º parágr. 





Leia-se: ..limitar a memória em 
&H3680... que se reserve memória só 
até &H3680... só poderá usar o 
CLEAR até &H1E80. 


Pág. 219 - 2º col. - 3º parágr. 

Onde se lê: PSHB armazena tempora- 
riamente na pilha 

Leia-se: PSHS armazena temporaria- 
mente na pilha 


Pág. 296 - 1º col. - progr. 

Corrija a linha 10: 
10 PCLEAR 1:CLEAR 3000:CLS:PRIN 
TO233/INICIALIZANDO”:R$=CHRS( 
13):POKE 146,1 


Pág. 297 - 2º col. - progr. 

Corrija a linha 100: 
100 DATA COM, 115,3.CWAI,108,1,D 
AA,25,,0RA,186,1,TST,125,3,LEAS, 
66,3,LEAU,67,3,LEAX,64,3,LEAY, 
65,3,MUL,61,,EORA, 184,1,0RB,250,1 


Pág. 299 - 3º col. - progr. 

Corrija as linhas 1550 e 1560: 
1550 Pl=1478:P0=P1:P2=0 
1560 PRINT448 — P2,KTAB(6)TS(K2): 
P9=P0+LEN(TS(K2)) 
e acrescente a linha 1565: 
1565 IF LEN(TS(K2)) + PO> 1503 THEN 
P0=P0-32:P2=P2+32:Pl=Pl-—32: 
GOTO 1565 


Pág. 300 - 1º col. - progr. 

Corrija a linha 1950: 
1950 1F X$< >“*$8”"OR BD$<'““0" OR 
BD$>'“'G” THEN 1980 


Pág. 327 - 3º col. - 2º progr. 
Este programa também pode ser exe- 
cutado no TRS-Color. 


Pág. 495 - 1º col. - 6º parágr. 
Onde se lê: Após digiar C 
Leia-se: Após digitar C 


Pág. 535 - 3º col. - 6º parágr. 
Onde se lê; GEI 
Leia-se: GET 


Pág. 607 - 1º col. - progr. 
ia linha 2340, corrija IF ABS(OY) 
para IF ABS(PY) 


Pág. 656 - 1º col. - progr. 

Corrija as linhas 3040 e 3050: 
3040 IF PEEK(342) =247 THEN PT = 
Ep] 

3050 IF PEEK(343)=247 AND RL> 
—30 THEN 


Pág. 703 - 3º col. - progr. 
Acrescente a linha 950: 

950 FOR DE=1 TO 3000:NEXT:RE 

TURN 





Pág. 760 - 3º col. - progr. 
Corrija a linha 9200: 
9200 DIM LES$(27) 


Pág. 829 - 2º col, - progr. 
Corrija a linha 70: 
70 PSHS X 


Pág. 830 - 1º col. - progr. 
Corrija a linha 90: 
90 PULS B 


Pág. 932 - quadro - 11º parágr. 
Esta indicação também serve para o 
TRS-Color. 


Pág. 997 - 3º col, - progr. 
Corrija a linha 130: 
130 LDA &5 


Pág. 1040 - 2º col. - progr. 
Corrija a linha 1280: 
1280 IF NL>30 THEN NL =30 


Pág. 1044 - 2º col. - progr. 
Na linha 1420, onde se lê SR$(I), co- 
loque STR$(I) 


Pág. 1047 - 3º col. - pro; 
Na linha 2490, onde se E SR$(D, co- 
loque STR$(I) 


Pág. 1075 - 2º col. - progr. 
Apague a linha 18 e acrescente a 180; 
180 GOSUB 2410:CLS:END 


Pág. 1118 - 2º col, - progr. 
Corrija a linha 10: 
10 ORG 19781 


Pág. 1236 - 1º col. - progr. 
Apague a linha 9870. 


Pág. 1236 - 3º col, - progr. 
Onde se lê: 9870 (linha) 
Leia-se: 980 


Pág. 1239 - 2º col. - progr. 
Substitua o sinal circunflexo entre as- 
pas “* por *“ nas linhas 550 e 580. 


Pág. 1239 - 3º col. - progr. 
Substitua, na linha 950, PRINT 433 
por PRINTQ432 


+ Taba 


Pág. 10 - 3º col. - 3º parágr. 

Troque de lugar as linhas: 
20 HTAB 18:VTAB 10:PRINT “000” 
e 20 LOCATE 18,10:PRINT **000"" 


Pág. 16 - 1º col. - progr. 
Corrija a linha 140: 
140 GOTO 80 


inrESd E E E E E EDGE ES E ES E NORA 


Pág. 30 - 1º col. - progr. 
Corrija a linha 60: 
60 LOCATE 18,M:PRINT ““” 


Pág. 32 - 2º col. - 2º parágr. 
Onde se lê: a tecla CLEAR (código 26) 
Leia-se: a tecla <CLEAR> (código 27) 


Pág. 33 - 1º col. - 1º parágr. 
Onde se lê: teclas Z e X 
Leia-se: teclas com flechas 


Pág. 33 - 1º col. - 1º parágr. 
Acrescente: 
Nos micros da linha MSX, as teclas 
a serem utilizadas para deslocamento da 
base e disparo são, respectivamente, as 
flechas do cursor e da barra de espaços 
(correspondentes aos códigos 28, 29 e 32). 


Pág. 58 - 3º col. - progr. 

Corrija a linha 330: 
330 LOCATE 2+4+X+3,18:PRINT 
USING “%";N; 


Pág. 73 - 1º col. - progr. 

Corrija as linhas 20 e 30: 
20 CLS:CLEAR 10000:R$=“P RMCAI” 
30 CLS:LOCATE 5,1:PRINT“M E N U 
PRINCIPAL" 


Pág. 73 - 3º col. - progr. 

Corrija a linha 1130: 
1130 NEXT:R = INT(10000/(TS+43+A)) 
:PRINT:PRINT” Número máximo de 
registros — >";R 


Pág. 74 - 1º col. - progr. 
Corrija a linha 7070: 
7070 OPEN F$ FOR OUTPUT AS &1 


Pág. 84 - 2º col. - progr. 

Corrija a linha 3020: 
3020 INS$=INKEYS:IF INS=**" 
THEN 3020 


Pág. 85 - 1º col. - progr. 

Corrija a linha 5070: 
5070 IF D>NR AND G=1 THEN G=0: 
CH=—1 ELSE IF D>NR THEN 5230 


Pág. 93 - 1º col. - progr. 
Corrija a linha 250: 
250 POKE SA,VAL(“&HO” + S$) 


Pág. 95 - 2º col. - 1º parágr. 

Onde se lê: o comando RUN; 

Leia-se: o comando RUN (defina antes 
a área onde está a rotina, digitando 
DEFUSR = &HE001): 


Pág. 95 - 2º col, - 2º parágr. 
Onde se lê: 

$SHE001 

Leia-se: 

&HE001 





Pág. 107 - 2º col. - 6º parágr. 
Pág. 119 - 3º col. - 2º parágr. 

Acrescente: 

É possível desenhar letras e gráficos 
na mesma tela do MSX, porém usamos 
o comando DRAW neste programa, de 
modo a compatibilizá-lo com as versões 
para outros computadores. 


Pág. 120 - 3º col, - 9º parágr. 

Onde se lê: As cores disponíveis no 
PMODE 3,1 são: verde (1), amarelo 
(2), azul Q) e vermelho (4). 

Leia-se; As quatro primeiras cores dis- 
poníveis para o SCREEN gráfico no 
MSX são: preto (1), verde (2), verde- 
claro (3) e azul-escuro (4). 


Pág. 171 - 3º col. - progr. 
Acrescente estas linhas: 

135 FORZ=1 TO IS STEP .05: SOUND 8,Z 

137 NEXT:RETURN 

140 SOUND 1,0:FOR Z=0 TO T 

STEP .3 

145 SOUND A,Z:SOUND A,255-Z 

147 NEXT:RETURN 

150 FOR Z=0 TO 10 

154 FOR ZZ=0 TO T STEP 5 

156 SOUND 1,Z:SOUND A,ZZ 

157 NEXT ZZ,Z:RETURN 

160 FOR Z=15 TO T 

164 FOR ZZ=0 TO 15 

166 SOUND 1,Z:SOUND A,Z-ZZ 

167 NEXT ZZ,Z:RETURN 

170 IF T=255 THEN T=80 

171 SOUND 1,0:FOR Z=1 TO 40 

174 FOR ZZ=10 TO RND (1)+sT 

176 SOUND A,ZZ 

177 NEXT ZZ,Z:RETURN 

180 SOUND 1,1:IF T=255 THEN 

T=100 

184 FOR Z=10 TO T STEP 5 

186 FOR ZZ=5 TO Z 

187 SOUND A,Z-ZZ 

188 NEXT ZZ,Z:RETURN 

190 IF T=255 THEN T=16:A4=1 

191 FOR ZZ=1 TO 30 

192 SOUND A,RND(1)+T 

195 FOR Z=1 TO RND(1)+200 

197 NEXT Z,ZZ:RETURN 

200 IF T=255 THEN T=16:A=1 

201 FOR ZZ=1 TO 10 

202 SOUND A,RND(1)+T 

205 FOR Z=1 TO RND(1)+16 STEP 8 

207 SOUND 8,Z:NEXT Z,ZZ.RETURN 


Pág. 189 - 3º col. - 1º parágr. 
Onde se lê: SPRITE(O) A$ 
Leia-se: SPRITE(0) = AS 


Pág. 262 - 1º col. - progr. 
Este programa funciona no MSX, 


Pág. 401 - 2º col. - progr. 
Acrescente a linha 5005: 
5005 DIM G(110) 








Pág. 412 - 2º col. - 3º parágr. 

Onde se lê: O laço das linhas 70 a 90 co- 
loca nesse local 

Leia-se: O laço das linhas 60 a 90 colo- 
ca nesse local 


Pág. 429 - 1º col. - progr. 

Corrija a linha 2030: 
2030 DRAW “SIZBM” + STR$(CX+3) 
+" +STRHKCY +2)+S$ 


Pág. 430 - 3º col. - 3º parágr. 
Onde se lê: A linha 60 dimensiona 
Leia-se: A linha 82 dimensiona 


Pág. 431 - 2º col. - 2º parágr. 
Onde se lê: das linhas 70 a 110 
Leia-se: das linhas 88 a 96 


Pág. 452 - 1º col. - progr. 
Acrescente a linha 6505: 
6505 CLOSE 41 


Pág. 464 - 1º col, - progr. 
Run a linha 800: 
I e 


=“N” AND 





Pág. 553 - 3º col. 

Onde se lê: Linha 220: <SHIFT > 
<GRAPH> 

Leia-se: Linha 220: <SHIFT > 
<GRAPH> 


Pág. 579 - 2? col. - progr. 
Corrija a linha 10: 
10 CLS:KEYOFF 


Pág. 612 - 2º col. - progr. 
Acrescente a linha 35: 
35 PRINT FNTS(I$) 


Pág. 618 - 3º col. - progr. 

Na linha 3400, 
onde se lê: LPRINT TT$;CHR$(32); 
leia-se: LPRINT TT$;CHRS$(10); 


Pág. 622 - 2º col. - 2º parágr. 
Onde se lê: FIF2 
Leia-se: F1, F2 


Pág. 626 - 2º col. - 2º e 3º progr. 
Troque de posição estes programas. 


Pág. 681 - 2º col. - progr. 
Acrescente as linhas 1500 e 1510: 

1500 SCREEN 1 

1510 CLS 


Pág. 692 - 2º col. - 6º parágr. 
Onde se lê: CCTRL-D 
Leia-se: CTRL-D 


Pág. 792 - 2? col. - progr. 
Corrija a linha 10: 
10 org — 12213 


Pág. 793 - 1º col. - progr. 
Corrija a linha 10: 

10 org — 12197 

e suprima a linha 20. 


Pág. 794 - 2º col. - progr. 
Corrija as linhas 20 e 120: 

20 call — 12213 

120 call — 12210 


Pág. 831 - 1º col. - progr. 
Corrija a linha 30: 
30 Id hi, — 15200 


Pág. 916 - 3º col. - 3º parágr. 
Onde se lê: A linha 200 zera C 
Leia-se: A linha 220 zera C 


Pág. 945 - 2? e 3º col. - progr. 
Corrija estas linhas: 

10 org 53693 

80 Id de,222 

600 Id(— 5223),de 

640 Id de,(— 5223) 

670 Id(— 5223),de 


Pág. 946 - 1º col. - 2º parágr. 
Onde se lê: A sub-rotina his 
Leia-se: A sub-rotina ho 


Pág. 946 - 1º col. - 4º parágr. 
Onde se lê: a sub-rotina snp, 
Leia-se: a sub-rotina sn, 


Pág. 946 - 12, 2º e 3? col. 
Onde se lê: ho 
Leia-se: po 


Pág. 946 - 2º col. - 3º e 5º parágr. 
Onde se lê: hp 
Leia-se: pp 


Pág. 946 - 2º col. - 5º parágr. 
Onde se lê: as instruções pusch 
Leia-se: as instruções push 


Pág. 971 - 1º col. - progr. 
Corrija a linha 10: 

10 org — 11678 

e acrescente as linhas: 

25 ld a,88 

28 Id (— 12162),a 

135 call — 12144 


Pág. 1010 - 3º col. - progr. 
Acrescente a linha 180: 

180 FOR DI=1 TO T:NEXT 

e ordene as linhas 3000 a 3140 e 4000. 


Pág. 1011 - 1º col. - 1º parágr. 
Onde se lê: as variáveis KO a K5 
Leia-se: as variáveis Kl a K5 


Pág. 1034 - 2º col. - progr. 
Corrija a linha 355: 
355 DIM T(17,9) 


Pág. 1040 - 1º col. - progr. 

Corrija a linha 1180: 
1180 IF M(T(B,8),T(B,9)< >0 THE 
N GH=223+M(T(B,8), T(B,9)) 


Pág. 1042 - 3º col. - progr. 
Apague a linha 200 e acrescente: 
201 VC=0:DE=0 


Pág. 1131 - 2º col. - progr. 
Corrija a linha 90; 
90 cp O 


Pág. 1186 - 2º col. - progr. 
Corrija a linha 350: 
350 REM Id a,4 


Pág. 1213 - 1º col. - progr. 
Corrija a linha 900: 
900 jp 53850 


Pág. 1232 - 1º col. - progr. 
Corrija a linha 90: 
90 Id a,3 


Pág. 1329 - 1º col. - último progr. 
Substitua o programa por: 

AP CIRCULO :LADO 

DESAPAREÇA TAT 

REPITA 72 [PF :LADO PD 5] 

APAREÇATAT 

FIM 


Pág. 1344 - 2º col. - progr. 
Onde se lê: TO DADOS 
Leia-se: AP DADOS 


Pág. 1366 - 3º col. - último parágr. 

Elimine o trecho final do texto: Vol- 
taremos a este assunto oportunamente, 
quando explicarmos os registros do chip 
de vídeo — VDP. 


+ ESSES 


Pág. 18 - 2º col. - 2º parágr. 
Onde se lê: Modifique a linha 30 
Leia-se: Modifique a linha 120 


Pág. 20 - 1º col. - progr. 

O programa não funciona no Apple 
e no TK-2000 sem sistema operacional 
de disquete. 


Pág. 44 - 3º col. - penúltimo parágr. 
Acrescente: 
No Apple Il e no TK-2000, são mos- 
trados blocos coloridos na tela (coman- 
do VLIN das linhas 85 a 95). 


Pág. 45 - 1º col. - 1º parágr. 
Acrescente: 

As linhas 220, 230 e 240 dos programas 

para outros micros correspondem às li- 

nhas 110, 120 e 130 para o Apple. 


Pág. 52 - 2º col. - progr. 
Acrescente a linha 1095: 
1095 LET TI=TI+1 


Pág. 52 - 2º col. - 6º parágr. 
Onde se lê: em 999999 segundos 
Leia-se; em 99999 segundos 





Pág. 52 - 3º col. - 1º parágr. 
Onde se lê; indo-se FA por 50 
Leia-se: dividindo-se TI por 50 





Pág. 52 - 3º col, - 3º parágr. 

Onde se lê: A linha 1290 aguarda... ea 
linha 1300 verifica 

Leia-se; A linha 1240 aguarda... e a mes- 
ma linha verifica 


Pág. 66 - 2º col. - progr. 
Acrescente a linha 310: 
310 LET T=T+1:GOTO 130 


Pág. 66 - 3º col, - 2º parágr, 
Onde se lê: tempo gasto na linha 320 
Leia-se: tempo gasto na linha 310 


Pág. 80 - 1º col. - progr. 
Retire a linha 10, para funcionar no 
Apple Il e no TK-2000. 


Pág. 117 - 2º col. - 2º parágr. 
Onde se lê: As linhas 80 e 90 
Leia-se: As linhas 120 e 130 


Pág. 118 - 1º col. - 1º parágr. 
Substitua o trecho a partir da 8º li- 
nha por: 
tamanho do círculo, entrando diferen- 
tes valores para XC, YCe R. O núme- 
ro máximo para R que você pode colo- 
car irá depender, logicamente, das coor- 
denadas do centro do círculo. Este não 
pode exceder os limites da tela, senão 
ocorrerá um erro no comando HPLOT. 


Pág. 127 - 3º col, - 4º parágr. 
Onde se lê: <CTPL> e <C>. 
Leia-se: <CTRL> e <C>. 


Pág. 167 - 1º col. - 2º parágr. 
Onde se lê: o comando GETS 
Leia-se: o comando GET 


Pág. 168 - 2º col. - 2º parágr. 
Onde se lê: (chamado de hipe 
Leia-se: (chamado de bipe 


Pág. 220 - 3º col. - 5º parágr. 
Onde se lê: RTS 
Leia-se: RTE 


Pág. 259 - 1º col. - progr. 
Pág. 281 - 2º col. - 2º progr. 
Pág. 283 - 3º col. - 3º progr. 
O programa para o TK-2000 também 
funciona para o Apple. 


Pág. 344 - 1º col. - 2º parágr. 
Onde se lê: linha 140, 
Leia-se: linha 410, 


Pág. 344 - 1º col. - 3º parágr. 
Onde se lê: linha 420 
Leia-se: linha 490 


Pág. 656 - 1º col. - progr. 

Corrija a linha 6210: 
6210 IF A$<40 THEN PRINT “COMO 
SUA VELOCIDADE ERA BAIXA,” 
:PRINT'NADA ACONTECEU”: 
GOTO 6500 


Pág. 692 - 2º col. - 6º parágr. 
Onde se lê: CCTRL-D 
Leia-se: CTRL-D 


Pág. 845 - 3º col. - progr. 
Corrija as linhas: 

2060 IF P=1 THEN PR% 1 

2220 NEXT:PRINT 

2230 PRINT & 0:RETURN 


Pág. 932 - quadro - 11º parágr. 
A indicação também é válida para o 
Apple II. 


Pág. 1034 - 2º col. - progr. 
Apague a linha 360 e acrescente: 
361 DIM T(16,9) 


— ERÊ EA 


Pág. 88 - 2º col. - 1º parágr. 
Onde se lê: pelo comando MA. 
Leia-se: pelo comando ASS. 


Pág. 116 - 3º col. - progr. 
Para rodar no TK-2000, substitua as 
linhas 50 e 60: 
50 HPLOT 10,75 TO 11,190 
60 HPLOT 10,190 TO 200,190 


Pág. 117 - 2º col. - 2º parágr. 

Onde se lê; As linhas 80 e 90 servem pa- 
ra desenhar a antena. 

Leia-se: As linhas 120 e 130 servem pa- 
ra desenhar a antena. 


Pág. 117 - 3º col. - progr. 

Para rodar no TK-2000, acrescente as 
linhas: 
18 XL=XC:YL=YC+R 
29 XN=XC + R+SIN(N):YN=YC+R+ 
COS(N) 
30 HPLOT XL,YL TO XN,YN:XL = 
XN:YL=YN 


Pág. 118 - 1º col. - 1º parágr. 
Substitua o trecho a partir da 8º li- 

nha por: 

tamanho do círculo, entrando diferen- 

tes valores para XC, YC e R. O nú- 


mero máximo para R que você pode 
colocar irá depender, logicamente, das 
coordenadas do centro do círculo. Es- 
te não pode exceder os limites da te- 
la, senão ocorrerá um erro no coman- 
do HPLOT. 


Pág. 127 - 2º col. - 3º parágr. 

Onde se lê: Para entender melhor, ex- 
perimente introduzir a linha: 

Leia-se: Para entender melhor, experi- 
mente introduzir a linha (não vale pa- 
ra o TK-2000): 


Pág. 161 - 3º col. - progr. 
Pág. 162 - 3º col. - progr. 

Estes programas também podem ser 
executados no TK-2000. 


Pág. 432 - 3º col. 
Onde se lê: 1160 MP:HGR 
Leia-se: 160 MP:HGR 


Pág. 482 - 2º col. - progr. 

Pág. 483 - 1º col. - progr. 

Pág. 485 - 1º col. - progr. 

Pág. 486 - 2º e 3º col. - progr. 

Pág. 487 - 2º col. - progr. 

Pág. 518 - 1º col. - progr. 

Estes programas não podem ser exe- 

cutados no TK-2000. 


Pág. 656 - 1º col. - progr. 

Corrija a linha 6210: 
6210 IF A$<40 THEN PRINT “COMO 
SUA VELOCIDADE ERA BAIXA,” 
:PRINT'NADA ACONTECEU”: 
GOTO 6500 


Pág. 768 - 2º col. - progr. 
Pág. 769 - 3º col. - progr. 
Pág. 771 - 1º col. - progr. 
Pág. 773 - 1º col. - progr. 
Pág. 782 - 2º col. - progr. 
Pág. 786 - 2º col. - progr. 
Pág. 787 - 2º col. - progr. 
Pág. 858 - 3º col. - progr. 
Pág. 875 - 1º e 2º col. - progr. 


Estes programas não podem ser exe- 
cutados no TK-2000. 


Pág. 932 - quadro - 11º parágr. 
A indicação também é válida para o 
TK-2000. 


Pág. 960 - 1º col. - progr. 
Pág. 974 - 3º col. - progr. 
Pág. 976 - 3º col. - progr. 
Pág. 977 - 2º col. - progr. 
Pág. 979 - 1º e 3º col. - progr. 
Pág. 980 - 2º col, - progr. 
Pág. 1372 - 2º col. - progr. 
Pág. 1374 - 2º col. - progr. 
Pág. 1376 - 1º col. - progr. 

Estes programas não podem ser exe- 
cutados no TK-2000. 








